- Mikrotik routerek
- Facebook és Messenger
- Windows 10
- Nemzetbiztonsági aggályok merültek fel a TP-Link kapcsán
- Ezentúl Indiában készülnek majd az USA-ban árusított Apple iPhone-ok
- ASUS routerek
- Milyen routert?
- Otthoni hálózat és internet megosztás
- Linksys WRT54G/GL/GS router
- Telekom otthoni szolgáltatások (TV, internet, telefon)
-
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
- Diablo 3 Collector's Edition
- Assassin's Creed Shadows Collector's Edition PC
- Vírusirtó, Antivirus, VPN kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Android / Server / Mail / stb.
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 4060 8GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- iPhone 15 Pro 128GB, Szép állapot, Független, 100%, Garanciával!
- Új FULL HD webkamera + Számla
- Csere-Beszámítás! Huawei Matebook D15 R7 3700U / 8GB DDR4 / RX Vega 10 / 150GB SSD
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest