- Megjött a Chieftec VEGA M szériás tápok legnagyobb teljesítményű kiadása
- 280 Hz-es, remekül felszerelt WOLED monitor jött a Gigabyte gondozásában
- Itt az AI videók TikTokja, az OpenAI új agymenése
- Rekordösszegért kerül szaúdi kézbe az Electronic Arts
- Nem saját tervezésű a Zhaoxin új szerverprocesszora
Ú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
- iPhone topik
- 3D nyomtatás
- Hogy is néznek ki a gépeink?
- Xbox Series X|S
- AMD vs. INTEL vs. NVIDIA
- Kerékpárosok, bringások ide!
- Akciófigyelő: Komoly kedvezményekkel és ajándékokkal startol a Xiaomi 15T széria
- Projektor topic
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Mikrotik routerek
- További aktív témák...
- Samsung A41 -- Teljesen felújított--
- ASUS ROG Strix Gamer Laptop, Ryzen 7 4800H, RTX 3050 Ti, Makulátlan Állapotban
- Lenovo Thinkpad P14s "Kis Tervező Vágó" Notebook -75% Ryzen 7 Pro 4750U 32/512 Radeon 2GB FHD IPS
- kártyafüggetlen iPhone 16 Pro 128GB Natural Titanium + kiegészítők
- Apple AirPods Pro 2. generáció
- Konzol felvásárlás!! Nintendo Switch
- AKCIÓS! HP EliteBook 830 G7 i5-10210U 16GB 256GB 1 év garancia
- Amazon Kindle 10th Generation ébresztős tok
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2190, 100% Akkumulátor
- Dell USB-C dokkolók: (K20A) WD19/ WD19S/ WD19DC + 130W, 180W, 240W töltők
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest