- Apple Watch Sport - ez is csak egy okosóra
- Megjött a jubileumi Pixel széria
- Samsung Galaxy S25 Edge - a tegnap határán
- Yettel topik
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Fotók, videók mobillal
- iPhone topik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Megérkezett a Google Pixel 7 és 7 Pro
- One mobilszolgáltatások
Új hozzászólás Aktív témák
-
Gülredy
tag
Hogyan tudnám ezt a kódot úgy módosítani, hogy ne egy megadott intervallumot írjon ki pl A9
9-ig hanem mondjuk A9
9-től lefele az összes sort (balról jobbra) addig amíg van olyan cella amiben adat van?
Mert ha csak egy nagyobb számot írok a D-nek akkor egy csomó ;-t rak a fájlba, ami meg viszont kell, mert így kell kinéznie a fájban az adatoknak, mindnek külön sorba.
szerző1;cím1;kiadáséve1;kategória1;
szerző2;cím2;kiadáséve2;kategória2;
....Szóval amit beolvas a cellákból azok is ugyan ebben a sorrendben vannak, csak az nem megy hogy ne csak egy sort olvasson be, hanem annyi sort amennyiben adat van!
Private Sub CommandButton3_Click()
Dim ce As Range
Open "D:\export_from_xls.txt" For Append As #1
fileba = ""
For Each ce In Range("A9:D9")
fileba = fileba & ce.Value & ";"
Next ce
Print #1, fileba
Close #1
End Sub
Új hozzászólás Aktív témák
- World of Tanks - MMO
- Futás, futópályák
- Azonnali VGA-s kérdések órája
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- AliExpress tapasztalatok
- OLED monitor topic
- Apple Watch Sport - ez is csak egy okosóra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Megjött a jubileumi Pixel széria
- További aktív témák...
- Újszerű ASUS ROG Ally - 7"120Hz - Z1 Extreme - 16GB/512GB - (RC71L-NH001W) fehér - 2 év garancia
- Számítógép, i5 7400, Gtx 1050Ti 4GB, 16gb ddr4, 512 ssd
- HP,15.6" FullHd IPS,8.gen.core i5 (8X4,0Ghz)8-32GB RAM,256GB-1TB SSD,nagyon jó akku, szép á
- Dell Latitude 7410 /I5-10310U, 16GB RAM, SSD/ Leírás! Beszámítás! Posta oK!
- ASUS VivoBook S412 14" /i3-8145, 8GB RAM, 250GB SSD/ Beszámítás! Posta ok!
- Lenovo Thunderbolt 3 kábel (4X90U90617)
- Azonnali készpénzes INTEL CPU NVIDIA VGA számítógép felvásárlás személyesen / postával korrekt áron
- BESZÁMÍTÁS! MSI H110M i7 7700 16GB DDR4 250GB SSD 1TB HDD GTX 1660 6GB Zalman N4 Cooler Master 400W
- Bomba ár! Dell Latitude E7470 - i7-6GEN I 16GB I 256GB SSD I 14" FHD I HDMI I CAM I W11 I Gari!
- Xiaomi Redmi Note 13 Pro 256GB Kártyafüggetlen 1 év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest