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

• #28846 Delila_1 veterán Kobe #28844

  Új Válasz 2015-10-02 07:40:40 #28846

  Ú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 Kobe #28844 üzenetére

  Sub Masolas()
  Dim sor As Long
  
  sor = 2
  Do While Sheets("Sheet1").Cells(sor, "A") <> ""
  Sheets.Add.Name = "Sheet" & sor
  ActiveSheet.Move After:=Sheets(Sheets.Count)
  Sheets("Sheet1").Range("A" & sor).Copy Sheets("Sheet" & sor).Range("B3")
  sor = sor + 1
  Loop
  End Sub

  Címsort feltételezve az első lap 2. sorától indítottam (sor=2).

• #28845 Fferi50 Topikgazda Kobe #28844

  Új Válasz 2015-10-01 22:23:36 #28845

  Ú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

  

  Fferi50

  Topikgazda

  válasz Kobe #28844 üzenetére

  Szia!

  Ha a sorok száma alapján szeretnéd dinamizálni, akkor:
  For each sor in Sheets("Sheet1").UsedRange.Rows
  célmunkalap létrehozása/kijelölése
  ide jönnek a másolási műveletek
  nem ártana ellenőrizni, hogy nincs-e esetleg üres sor benne, ha van, azt nyilván ki kell hagyni a másolásból.
  Next

  Üdv.

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