PROHARDVER! témák
Mobilarena témák
IT café témák
-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
Ó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
Topikgazda
Fferi50Aktív témák
- exHWSW - Értünk mindenhez IS
- Samsung Galaxy S25 - végre van kicsi!
- Asustor NAS
- Tényleg azt kaptuk, amit ígértek? Teszteltük a Crimson Desertet
- Háztartási gépek
- Xiaomi 17 Ultra - jó az optikája
- MÁV topic
- Milyen videókártyát?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Aranylemezre került a Forza Horizon 6
- További aktív témák...
Új fizetett hirdetések
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Gyermek PC játékok
Üzleti előfizetők hirdetései
- BESZÁMÍTÁS! Asus Z370A i7 9700 16GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Adata 600W
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- iPhone 11 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS4305, 100% Akksi
- BESZÁMÍTÁS! ASUS B760 i7 13700K 32GB DDR5 512GB SSD RTX 4070 12GB Aerocool P500B Digi ARGB 750W
- LENOVO ThinkPad T14s Gen 2 touchscreen - i7-1185G7, 16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest