-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- A fociról könnyedén, egy baráti társaságban
- Futás, futópályák
- Szinte csak formaság: bemutatkozott a Pixel 6 és Pixel 6 Pro
- Politika
- Tőzsde és gazdaság
- Napelem
- Forza sorozat (Horizon/Motorsport)
- Android alkalmazások - szoftver kibeszélő topik
- Hobby rádiós topik
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.