PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
Delila_1
veterán
Úgy látszik, a napokban nem sokmindent lehet rámbízni.
Ezesetben egyszerű a dolog.tusi74
Feltételezem, hogy az egyes országok lapjai üresen ásítozva várják az adatok özönét, és a kiinduló lap neve Munka1, ahol az első sor a címsor.
Sub Masol()
Sheets("Munka1").Select
sor = 2
Do While Cells(sor, 10) <> ""
lapnév = Cells(sor, 10)
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
Topikgazda
Fferi50Aktív témák
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- M4 iMac 2021 24" - 16GB RAM, 512 GB SSD 27% ÁFÁS
- Dell 27" USB-C Hub Monitor - P2723DE - 27% ÁFÁs
- Huawei Watch GT 3 42 mm 6 hónap Garancia Beszámítás Házhozszállítás
- ELADÓ FÓLIÁZOTT HP EliteBook 840 G9 i7-1265U 16GB 512GB 14" FHD+ 1 év teljeskörű garancia
- Lenovo Thinkpad X1 Yoga 6th Gen. i7 11th, 32GB RAM 27% ÁFÁS (0326)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest