Merhaba excelde bir sayfada a b c sutunlarında asagıdakı gibi veriler var
yazıdakı kod ıle txt aktarım yapıyordum 1 er satır bosluk koyarak cıkarıyordu Txt olarak
bunu su sekılde yapabilirmiyim .
1 satır bosluk
2.satır bosluk
3.satır ve 17.satır arasında bosluk olmayacak
tekrar bosluk ve 28.satır olarak Txt ye cıkartabilirmiyim.
yazıdakı kod ıle txt aktarım yapıyordum 1 er satır bosluk koyarak cıkarıyordu Txt olarak
bunu su sekılde yapabilirmiyim .
1 satır bosluk
2.satır bosluk
3.satır ve 17.satır arasında bosluk olmayacak
tekrar bosluk ve 28.satır olarak Txt ye cıkartabilirmiyim.
Kod:
Dim deg As String, i As Long, st As Long, j As Byte
st = Cells(Rows.Count, "A").End(xlUp).Row
dosya = Worksheets("veri").Range("G3").Value & ".txt"
Open (Environ("USERPROFILE") & "\Desktop\" & "\" & dosya) For Output As #1
For i = 1 To st
If Cells(i, 1).Value <> "" Then
For j = 1 To 5
deg = deg & " " & Cells(i, j)
Next j
deg = Right(deg, Len(deg) - 1)
Print #1, deg: deg = "": Print #1, deg
End If
Next i
Close #1
'MsgBox Worksheets("veri").Range("G3").Value & " numaralı bilgi notu olusturuldu." & vbLf & ""
UserForm3.Show
Shell "notepad.exe " & Environ("USERPROFILE") & "\Desktop\" & "/" & dosya
Sheets("anasayfa").Select| A1 | B1 | C1 |
| A2 | B2 | C2 |
| A3 | B3 | C3 |
| A4 | B4 | C4 |
| A5 | B5 | C5 |
| A6 | B6 | C6 |
| A8 | B8 | C8 |
| A9 | B9 | C9 |
| A10 | B10 | C10 |
| A11 | B11 | C11 |
| A12 | B12 | C12 |
| A13 | B13 | C13 |
| A14 | B14 | C14 |
| A15 | B15 | C15 |
| A16 | B16 | C16 |
| A17 | B17 | C17 |
| A28 | B28 | C28 |