makrodan gereksiz bölümlerin çıkartılması

[burhancavus61]

Bazı makroları birleştirerek yeni bir makro yaptım fakat makroda istemediğim bölümleri çıkartamadım hata verdi.
Öncelikle makro çalışınca yeni kitap oluşturuyor ben bunu makroyu çalıştırdığım aktif hücrede çalıştırmak istiyorum. İkinci olarak ise txt dosyasını önce adresten alıyordum şimdi ise dosyayı gözat yöntemi ile alıyorum ve gereksiz olan adres satırı komutunu kaldırınca hata veriyor. Son olarak ise txt dosyasından aldığım veriyi meral aydının doğum tarihi 11/01/2008 olmasına rağmen veriyi aldığında hücreye 01/11/2008 olarak atıyor. Çok uğraştım bir türlü çözemedim yardımlarınızı bekliyorum.



Sub txt2()
Dim Gozat As FileDialog
Application.DisplayAlerts = False
Set Gozat = Application.FileDialog(msoFileDialogFilePicker)
With Gozat
.Title = "Dosya Seçiniz"
.Filters.Clear
.Filters.Add "Metin Dosyası", "*.TXT"
If .Show Then

End If
End With
Application.DisplayAlerts = True

ChDir "C:\"
Workbooks.OpenText Filename:= _
"C:\ailebilgi.txt", Origin:=1254, _
StartRow:=5, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 5), Array(10 _
, 5), Array(12, 5), Array(74, 5), Array(84, 5), Array(91, 5), Array(106, 5), Array(108, 5), _
Array(173, 5), Array(177, 5), Array(189, 5)), TrailingMinusNumbers:= _
True
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
End Sub

 

[burhancavus61]

arkadaşlar bi el atsanız çözersiniz sanırım

 

[burhancavus61]

Aarkadaşlar benim sorunumada 1 el atarmısınız.

 

[burhancavus61]

cevap vermek istemiyor herhalde kimse

 

[Ayhan Ercan]

Merhaba Sayın burhancavus

cevap vermek istemiyor herhalde kimse

Lütfen önyargılı olmayınız..

Emin olun herkes cevap vermek ister. Sorunuzu daha net ve daha anlaşılır sormayı deneyiniz....

 

[parsley2]

kodları aşağıdaki şekilde düzeltirsen direk alır.

Dim Gozat As FileDialog
Application.DisplayAlerts = False
'Set Gozat = Application.FileDialog(msoFileDialogFilePicker)
Set Gozat = Application.FileDialog(msoFileDialogOpen)
'With Gozat
'.Title = "Dosya Seçiniz"
'.Filters.Clear
'.Filters.Add "Metin Dosyası", "*.TXT"
'If .Show Then

'End If
'End With
Application.DisplayAlerts = True

ChDir "C:\"
Workbooks.OpenText Filename:= _
"C:\ailebilgi.txt", Origin:=1254, _
StartRow:=5, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 5), Array(10 _
, 5), Array(12, 5), Array(74, 5), Array(84, 5), Array(91, 5), Array(106, 5), Array(108, 5), _
Array(173, 5), Array(177, 5), Array(189, 5)), TrailingMinusNumbers:= _
True
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
'End Sub

 

[burhancavus61]

cevap vermek istemiyor herhalde kimse

 

[burhancavus61]

sayın parsley2

yazmış olduğum kodu çalıştırdığım zaman aktif sayfaya verielri almasını istiyorum fakat çalışınca yeni kitap oluşturuyor ve verileri oraya yazıyor.
Birde gözat penceresinden metin dosyasını ben seçmeliyim bu koddaki

ChDir "C:\"
Workbooks.OpenText Filename:= _
"C:\ailebilgi.txt"

bölümü kullanmadan yapamazmıyım. bukodları silince makro çalışmıyor.

Yani kod çalıştığında gözat penceresinden txt dosyasını seçmeliyim çünkü dosya değişken olacak ve hangi sayfada çalıştırılırsa oraya yazılacak.