- Rap, Hip-hop 90'
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- Kalandor: SYNTHONY - Darude Sandstorm (Live from Melbourne)
- GoodSpeed: AdGuard Family Plan: Lifetime Subscription akár 9 eszközre!
-
LOGOUT.hu
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
veterán
válasz
mr.nagy #11309 üzenetére
Sub Tizenhat()
Dim sor As Integer, usor As Integer, oszlop As Integer, sor_1 As Integer
oszlop = 1: sor_1 = 1
usor = Range("A65536").End(xlUp).Row
For sor = 10 To usor
If sor_1 < 5 Then
Cells(sor_1, oszlop) = Cells(sor, 1)
sor_1 = sor_1 + 1
Else
sor_1 = 1
oszlop = oszlop + 4
sor = sor - 1
End If
If oszlop = 17 Then
MsgBox "Ide jön a nyomtatás"
'ide jön a nyomtatás
Range("A1:A4,E1:E4,I1:I4,M1:M4").ClearContents
oszlop = 1
End If
Next
End Sub
Új hozzászólás Aktív témák
Hirdetés
- BESZÁMÍTÁS! MSI B450M R5 5600X 32GB DDR4 512GB SSD RX 6700XT 12GB AIO Enigma XL Seasonic 650W
- BESZÁMÍTÁS!Gigabyte B760M i5 13400F 32GB DDR4 512GB SSD RTX 3060Ti 8GB NZXT H510 WHITE BeQuiet! 650W
- Újra Akcióban!!! Ducky One 2 Mini és SF billentyűzetek a bolti ár töredékéért! Számla+Gari
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- AKCIÓ! Gigabyte B450M R7 2700 16GB DDR4 512GB SSD RX 6600 8GB GDDR6 CM MasterBox 5 Lite 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest