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

• #7364 Delila_1 veterán tusi74 #7363

  Új Válasz 2010-05-28 14:23:41 #7364

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

  Szívesen, és elnézést a szerencsétlenkedésemért.

• #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

• #7358 Delila_1 veterán tusi74 #7356

  Új Válasz 2010-05-28 12:54:46 #7358

  Ú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

  Töröld ki az adatokat, ahogy a #7353-ban írtam. Fuss neki újra, és nézd meg a sort, ahol elakad. Ott lesz valami gubanc.

• #7355 Delila_1 veterán tusi74 #7354

  Új Válasz 2010-05-28 12:49:04 #7355

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

  Üres cella lehet a J oszlopban, ahol nem kellene.

• #7353 Delila_1 veterán tusi74 #7352

  Új Válasz 2010-05-28 12:30:47 #7353

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

  Előtte töröld a lapok tartalmát, mert a makró nem figyeli, hogy az adott sor szerepel-e már a saját lapján: kijelölöd együttesen a lapokat, és úgy törölsz.

• #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

• #7349 Delila_1 veterán tusi74 #7347

  Új Válasz 2010-05-28 12:03:41 #7349

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

  Akkor nem lesz problémád a makróval?
  A többi lap neve legyen azonos a J oszlopban találhatókkal.

• #7339 Delila_1 veterán tusi74 #7338

  Új Válasz 2010-05-28 11:12:18 #7339

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

  Csak ez a két ország szerepel?

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