Ú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).

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