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

• #15596 lappy őstag gurabli #15595

  Új Válasz 2012-11-20 07:15:24 #15596

  Ú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

  

  lappy

  őstag

  válasz gurabli #15595 üzenetére

  Egy hasonló macro a problémára!
  Sub Makró1()
  For i = 0 To 298 'ez az oszlop első 298 celláját másolja
  Range("A" & i + 1).Select 'másolandó cella kijelölése (pl A1, A2, stb...)
  Selection.Copy 'cella másolása
  Range("B" & i * 16 + 1).Select 'célcella kijelölése (pl B1, B17, B33, stb...)
  ActiveSheet.Paste 'cellába másolás
  Application.CutCopyMode = False 'kijelölés megszüntetése
  Next
  End Sub

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