Merhabalar;
"C:\bnkdsk.txt" dosyası içeriğini excel'e aktarmak istiyorum. Aşağıda kodu hazırladım. Ancak "bnkdsk.txt" dosyasının içeriği :
2H10910619728 000000001090.62SERKAN ÖGEYİK
2H10910620398 000000001849.94YETER YÜCEL
2H10910620546 000000002099.95SİBEL KOŞUCU
2H10910618674 000000001899.96EZGİ ARAYAN
2H10910621042 000000000908.20FATMA GÜL EDA BALAK
Bu şekildedir. Kod içeriğinde ilgili istediğim alanları otomatik olarak metni sütüna çevirdikten ve para alanı değerlerindenki "." ifadesini "," 'e çevirdikten sonra hücre biçimini para formatına çevirmek istediğimde tutarların olduğu alanda 0 değerlerini silmiyor ve "!" işareti atıyor. Sadece hücre içindeki "0" ları manuel silip para biçimine tıkladığımda TL'ye çeviriyor. Yardımlarınızı bekliyorum.
_______________________________________________________________
Sub Kopyala()
Dim MyFile As String
MyFile = "C:\BNKDSK.txt"
Open MyFile For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, InputData
Cells(6 + i, 1) = InputData
Loop
Close #1
' Alanlar seçilerek metni sütuna sonra ücret alanı para biçimine dönüştürülüyor.
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A7"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(29, 1)), TrailingMinusNumbers _
:=True
Stop
Range("B7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "#.##0,00 TL"
Range("A7").Select
End Sub
"C:\bnkdsk.txt" dosyası içeriğini excel'e aktarmak istiyorum. Aşağıda kodu hazırladım. Ancak "bnkdsk.txt" dosyasının içeriği :
2H10910619728 000000001090.62SERKAN ÖGEYİK
2H10910620398 000000001849.94YETER YÜCEL
2H10910620546 000000002099.95SİBEL KOŞUCU
2H10910618674 000000001899.96EZGİ ARAYAN
2H10910621042 000000000908.20FATMA GÜL EDA BALAK
Bu şekildedir. Kod içeriğinde ilgili istediğim alanları otomatik olarak metni sütüna çevirdikten ve para alanı değerlerindenki "." ifadesini "," 'e çevirdikten sonra hücre biçimini para formatına çevirmek istediğimde tutarların olduğu alanda 0 değerlerini silmiyor ve "!" işareti atıyor. Sadece hücre içindeki "0" ları manuel silip para biçimine tıkladığımda TL'ye çeviriyor. Yardımlarınızı bekliyorum.
_______________________________________________________________
Sub Kopyala()
Dim MyFile As String
MyFile = "C:\BNKDSK.txt"
Open MyFile For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, InputData
Cells(6 + i, 1) = InputData
Loop
Close #1
' Alanlar seçilerek metni sütuna sonra ücret alanı para biçimine dönüştürülüyor.
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A7"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(29, 1)), TrailingMinusNumbers _
:=True
Stop
Range("B7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "#.##0,00 TL"
Range("A7").Select
End Sub