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

• #7351 Delila_1 veterán tusi74 #7350

  Új Válasz 2010-05-28 12:22:17 #7351

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

  Óhajod parancs.

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