Ú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

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