macroda dosya adlarının kullancı tarafından belirlenmesi

[aatoş]

merhabalar.
daha önce sizden yardım alarak faydalandığım makroda dosya adlarını her defasında macroya girerek düzelme yaparak programı çalıştırıyorum.gayet düzgün çalışıyor.fakat bu macro dosya çok olunca her defasında gir düzelt çalıştır bayagı dikkat ve zaman istiyor.benim yapılmasın istedigim macro çalışınca ekrana giriş ve çıkış adlarını ben bir mesajla veya user form vs gibi.. gelsin ben belirleyim.macronun içine girerek düzeltme yapmayım.şimdiden ilgilenen arkadaşlara teşekkürler..

Sub txt_aktar_59()

'Microsoft Scripting Runtime Referansı Gerektirir
Dim Kayit As Variant
Dim FS As Object, Dosya As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set Dosya = FS.OpenTextFile(ThisWorkbook.Path & "\Banka2.txt", ForReading)
Kayit = Split(Dosya.ReadAll, vbCrLf, , vbTextCompare)
Dosya.Close
Open (ThisWorkbook.Path & "\Yeni dosya1.txt") For Output As #1
For i = LBound(Kayit) + 1 To UBound(Kayit) - 2
Print #1, Kayit(i)
Next
Close #1
MsgBox "Yeni txt dosyasına diğer dosyadan ilk ve son satır lar hariç akatrım yapıldı" _

End Sub

 

[halit3]

bunu denermisiniz.

Sub txt_aktar_59()
'Microsoft Scripting Runtime Referansı Gerektirir
Dim Kayit As Variant
Dim FS As Object, Dosya As Object
Set FS = CreateObject("Scripting.FileSystemObject")
b = Application.GetOpenFilename
If b = False Then
MsgBox "Veri alınacak dosyayı seçmediniz.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
eski_kod = ThisWorkbook.Path & "\Banka2.txt"
Set Dosya = FS.OpenTextFile(b, ForReading)
Kayit = Split(Dosya.ReadAll, vbCrLf, , vbTextCompare)
Dosya.Close
yeni_dosya_adi = InputBox("Dosya adıgiriniz.", "Dosya Adı", "Yeni dosya")
Open (ThisWorkbook.Path & "\" & yeni_dosya_adi & ".txt") For Output As #1
For i = LBound(Kayit) + 1 To UBound(Kayit) - 2
Print #1, Kayit(i)
Next
Close #1
MsgBox "Yeni txt dosyasına diğer dosyadan ilk ve son satır lar hariç akatrım yapıldı" _
End Sub

 

[aatoş]

Merhaba HALİT BEY..
İlginiz ve emeğiniz için teşekkürler.Bana zaman ve emek konusunda çok yardımcı oldunuz.tam istedigim gibi olmuş elinize sağlık.iyi çalışmalar kolay gelsin....

 

[halit3]

Merhaba HALİT BEY..
İlginiz ve emeğiniz için teşekkürler.Bana zaman ve emek konusunda çok yardımcı oldunuz.tam istedigim gibi olmuş elinize sağlık.iyi çalışmalar kolay gelsin....

iyi çalışmalar.