- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- bambano: Bambanő háza tája
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- Meggyi001: RTX 5060 - Az új népkártya?
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Új hozzászólás Aktív témák
-
bende126
csendes tag
válasz
bende126 #2187 üzenetére
Sziasztok, még mindig ez előzményekben lévő makró megírása.
Jelenleg itt tartok:
Sub nyomtatas()
s1 = 1
s2 = 1
o1 = 1
Do While e1 < e2
s2 = s1 + 1
e2 = Cells(s2, 1).Value
e1 = Cells(s1, 1).Value
Do While Cells(s2, 1) = Empty
s2 = s1 + 1
Loop
sork = s1
sorv = s2
Loop
' a nyomtatás részhez még nem kezdtem hozzá, ezt azért tettem bele, hogy lássam, milyen terülere vonatkozik a fentebbi kód
For t = sork To sorv
Cells(1, 20).Value = s2
Cells(t, o1).Interior.Color = vbYellow
Next
End Sub, tudom, hogy nem jó, és, hogy mennyire jó poén tárgyává váltam, de ezt most hagyjuk!!
)
Lenne néhány kérdésem:
- Lehet úgy változót deklarálni, hogy a do while utasítás alatt található? Vagy már korábban meg kéne tennem?
- Jelenleg végtelen ciklus jön létre az excel kifagy. elvileg a Do While Cells(s2, 1) = Empty sor nem ennek elkerülésére lenne?
- a kijelölésre a ActiveSheet.Range(Cells(s1, o1), Cells(s2, o2)).Select sor jó lehet? - o2 lesz majd később, még nincs
Előre is köszönöm
Új hozzászólás Aktív témák
- Honor 400 256GB ÚJSZERŰ Euronics vásárlás Garancia 2027.05.24-ig
- DJI Goggles Integra drón szemüveg
- Asztali Konfig - z97 - 4770K - Sapphire RX580 8GB- 8 GB DDR3
- ÚJ, GARIS! Dell Latitude 5450 - 14" FHD / Ultra 5 125U / 16GB DDR5 / 512GB NVMe SSD / HDMI 2.1
- Megkímélt állapotban Samsung Galaxy A51 4/128GB
- BESZÁMÍTÁS! Apple Macbook Pro 13" 2020 M1 16GB 1TB SSD macbook garanciával hibátlan működéssel
- Apple Watch SE 2 44mm, Újszerű, 1 Év Garanciával
- Samsung Galaxy S24 Ultra / 12RAM 1024GB / Gyárifüggetlen / 12hó Garanciával
- GYÖNYÖRŰ iPhone 12 mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2955
- 2 TB-os Kingston NV3 M.2 SSD - 6000 MB/s olvasás
Állásajánlatok
Cég: FOTC
Város: Budapest