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

• #5042 Delila_1 veterán core1113 #5029

  Új Válasz 2009-06-10 18:51:45 #5042

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

  Írtam egy makrós megoldást a 2. kérdésedre.
  A munka1 kiinduló lapon az A oszlopban vannak az irányítószámok, B oszlopban a megyék nevei, a többiben bármilyen adat.
  A többi lap neve pontosan egyezzen meg a B oszlop adataival.
  Minden lapon van címsor.
  A "Sheets(Array(" kezdetű sorban írd át a megyék nevét.

  Sub Irszám()
  
  Application.ScreenUpdating = False 'Képernyő frissítés tiltása
  
  'Előző adatok törlése a megyék lapjain.
  Sheets(Array("Pest", "Borsod", "Hajdú", "Zala", "Szolnok")).Select
  Rows("2:6000").Select
  Selection.Delete Shift:=xlUp
  Range("A2").Select
  
  'Sorok másolása a lapokra
  Sheets("Munka1").Select
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  megye = Cells(sor, 2)
  Rows(sor & ":" & sor).Copy
  Sheets(megye).Select
  Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
  ActiveSheet.Paste
  Sheets("Munka1").Select
  Next
  Sheets("Munka1").Select: Range("A2").Select
  Application.CutCopyMode = False
  
  Application.ScreenUpdating = True 'Képernyő frissítés engedélyezése
  End Sub

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