txt dosyasından hücreye formatlı yazım

[k0081]

merhaba arkadaşlar;

Ekli dosyayı görüntüle rapor1.txt

A sütununa Bolt 20 B sütununa da 80 yazdırabilirmiyim ?

 

[halit3]

kod:

Sub Veri_Al()
Dim Dosya, deg1, deg2, sat
Dosya = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Lütfen veri almak istediğiniz txt dosyasını seçiniz...")
If Dosya = False Then
MsgBox "İşleminiz iptal edilmiştir."
Exit Sub
End If
Open Dosya For Input As #1
Do While Not EOF(1)
Line Input #1, deg1
If IsNumeric(Left(Trim(deg1), 1)) Then
deg2 = Split(Trim(deg1), " ")
sat = sat + 1
Cells(sat, 1) = deg2(15) & " " & Mid(deg2(16), 1, 2)
Cells(sat, 2) = Mid(deg2(16), 4, 2)
End If
Loop
Close #1
MsgBox "İşlem tamam."
End Sub

 

[k0081]

halit3;

Hocam çok teşekkürler., tamamdır.. eline sağlık.. Allah razı olsun..

 

[halit3]

halit3;

Hocam çok teşekkürler., tamamdır.. eline sağlık.. Allah razı olsun..

Teşekkürler iyi çalışmalar