Új hozzászólás Aktív témák

• #23362 Delila_1 veterán slashing #23360

  Új Válasz 2014-09-21 07:45:44 #23362

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz slashing #23360 üzenetére

  A végét írd meg, most el kell rohannom.

  Sub valami()
  Dim usor As Long, uoszlop As Integer, oszlop As Integer, v$
  
  Sheets("Munka1").Select
  Range("D5").CurrentRegion.Copy Sheets("Másik lap").Range("A1")
  Sheets("Másik lap").Select
  usor = ActiveSheet.UsedRange.Rows.Count
  
  oszlop = 1
  Do
  Columns(oszlop).EntireColumn.Insert
  oszlop = oszlop + 2
  Loop While Cells(1, oszlop + 1) <> ""
  Columns(oszlop).EntireColumn.Insert
  
  v$ = InputBox("add meg az értéket")
  uoszlop = oszlop
  For oszlop = 1 To uoszlop Step 2
  Range(Cells(1, oszlop), Cells(usor, oszlop)) = v$
  Next
  End Sub

Új hozzászólás Aktív témák