-
IT café
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
-
Oly
őstag
Én egy ilyesmivel indultam neki:
Private Sub CommandButton1_Click()
Dim FileNum As Integer
Dim DestFile As String
Dim i, iv, c
iv = Range("A1").End(xlDown).Row:
c = 1
d = 3
DestFile = "Z:\TESZT\" & Cells(4, 4) & ".csv"
'DestFile = "Z:\TESZT\" & Cells(4, 4) & c & ".csv"
FileNum = FreeFile()
Open DestFile For Output As #FileNum
For i = 1 To iv
'MsgBox "i: " & i
'MsgBox "iv: " & iv
'MsgBox "d: " & d
'MsgBox "c: " & c
'If i = d + 1 Then
'c = c + 1
'd = d + 3
'DestFile = "Z:\TESZT\" & Cells(4, 4) & c & ".csv"
'End IfPrint #FileNum, Trim(Cells(i, 1))
Close FileNum
Next iMsgBox "The CSV file has been created succesfully!", vbOKOnly, "SAVE"
End Sub
Itt most csak 9 sort tesztelek, amit 3 soronként kellene szét szednie, de mindig csak a 3. sort rakja a CSV-be.
Új hozzászólás Aktív témák
- Milyen TV-t vegyek?
- Amazon Fire TV stick/box
- Ingyen teljesítménylöket egyes Radeon RX 9070-ek gazdáinak?
- 30 évre csökkentette lemaradását a litográfiai eszközök területén Oroszország
- Politika
- Telekom mobilszolgáltatások
- Autós topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Gyúrósok ide!
- Milyen alaplapot vegyek?
- További aktív témák...
- Office Professional Plus 2013, 2016, 2019, 2021, 2024 licenckulcsok - MEGA Akció!
- Új Windows 7, 8.1, 10, 11 telepítő pendrive-ok, pendrájvok és telepítőlemezek, DVD-k
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Xbox Game Pass Ultimate 1-36 hónap / PC Game Pass
- Hatalmas CD pakk Windows NT 95 2000 nero Sound Blaster és egyéb driver telepítőkkel
- Xiaomi Redmi Note 10s 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Gigabyte H610M i3 12100F 32GB DDR4 512GB SSD RX 6600 8GB AeroCool Shard Zalman 600W
- BESZÁMÍTÁS! H310CM i3 9100F 16GB DDR4 120GB SSD 1TB HDD GTX 1660S 6GB Fractal Design Focus G 400W
- BESZÁMÍTÁS! MSI B450 R5 3600 16GB DDR4 512GB SSD RX 6500XT 4GB Zalman S2 TG Zalman 500W
- Xiaomi 12T Pro 256GB / Normál állapotban / 12 hónap jótállással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest