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

• #15598 Delila_1 veterán gurabli #15595

  Új Válasz 2012-11-20 09:15:15 #15598

  Ú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 gurabli #15595 üzenetére

  Minden feladatra van több megoldás. Lappy válasza is biztosan jó, én mást agyaltam ki.

  Úgy látom a csatolt képen, hogy azon a lapon, ahonnan másolni kell, az N oszlopban folyamatosan vannak adatok, ezért ebből az oszlopból veszem az utolsó sort.
  A két Set kezdetű sorban írd át a lapok nevét.

  Sub Tizenhat()
  Dim sorIN%, sorID%, usorIN%, WSIN As Worksheet, WSID As Worksheet
  Set WSIN = Sheets("Innen")
  Set WSID = Sheets("Ide")
  usorIN% = WSIN.Cells(Rows.Count, "N").End(xlUp).Row 'utolsó sor az Innen lapon
  
  sorID% = 10
  Do
  For sorIN% = 2 To usorIN%
  WSID.Cells(sorID%, "G") = WSIN.Cells(sorIN%, "N")
  sorID% = sorID% + 6
  Next
  Loop While sorIN% < usorIN%
  End Sub

• #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