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

• #7361 Delila_1 veterán tusi74 #7356

  Új Válasz 2010-05-28 13:29:38 #7361

  Ú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 tusi74 #7356 üzenetére

  Csak most tudtam újra ránézni. Megvan a hiba, én követtem el.
  Új lap beszúrása esetén nem álltam vissza a kezdő lapra.
  Helyesen:

  Sub Masol()
  Sheets("Munka1").Select
  sor = 2
  Do While Cells(sor, 10) <> ""
  tal = 0
  lapnév = Cells(sor, 10)
  For lap = 2 To Worksheets.Count
  If Sheets(lap).Name = lapnév Then
  tal = 1
  Exit For
  End If
  Next
  If tal = 0 Then
  Worksheets.Add.Name = lapnév
  Sheets(lapnév).Move After:=Sheets(2)
  Sheets("Munka1").Select
  End If
  usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
  ActiveSheet.Range("A" & sor & ":I" & sor).Copy _
  Destination:=Sheets(lapnév).Range("A" & usor)
  sor = sor + 1
  Loop
  End Sub

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