bu makroda bana yardımcı olurmusunuz

[yagmurdagul]

merhaba yardımcı olurmusunuz arkadaslar burda ben sunu yapmak ıstıyorum
2231745
2234578
2224568
5124568
5187565

gıbı gelen dosyalar var bana ben bunları makroyu calıstırdıgım da bana

223 ile baslayan ları
2231745
2234578

bır dosyada toplasın 512 ile baslayan ları 5124568 dıye kaydetrsın ıstıyorum bana yardımcı olurmusunuz tsk ederim arkadaslar

 

[yagmurdagul]

Sub Makro1()
ChDir "C:\acma"
Workbooks.OpenText Filename:="C:\acma\AC.txt", Origin:=437, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "<CMDFILE;"
For i = 2 To 99
If Range("A" + CStr(i)) = "AC" Then
Range("A" + CStr(i)) = "<MODSUB:CBLK=ACCSPORI,DN="
Range("C" + CStr(i)) = ";"
Else
If Range("A" + CStr(i)) = "KP" Then
Range("A" + CStr(i)) = "<MODSUB:BLK=ACCSPORI,DN="
Range("C" + CStr(i)) = ";"
End If
End If
Next i
Columns("A:A").EntireColumn.AutoFit
For J = 2 To 99
If Range("A" + CStr(J)) = "" Then
Range("A" + CStr(J)) = "<ENDFILE;"
J = 99
End If
Next J
ActiveWorkbook.SaveAs Filename:="C:\acma\ac.prn", FileFormat:=xlTextPrinter _
, CreateBackup:=False
End Sub





makro bu sek&#305;lde buraya b&#305;r sorgulama koyacag&#305;m ama kafa durdu ya bana yard&#305;mc&#305; olurmusunuz