düşey arama formulünün kodlu yazımı.

[Korhan Ayhan]

Selamlar,

Ayrıca eğer aktarım yapılacak kitap kapalı ise iki dosyada aynı klasörde olmak şartı ile aşağıdaki kodu bir sonraki gibi değiştirirseniz dosya otomatik olarak açılıp aktarım yapılacaktır.

Eski hali;

Set K2 = Workbooks("Kitap2.xls")

Yeni hali;

Set K2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Kitap2.xls")

 

[abbasonline]

Korhan bey aktarımı yapamadım, verilerin bulunduğu excel dosyası ile aktarım yapılacak excel dosyası aynı dosya içinde ayrı ayrı bulunmaktadır, Verilerin bulunduğu Excel kitabcığının ismi (TÜM VUKUATLAR) aktarımı yapılacak olan sayfanın ismide aynısı ( TÜM VUKUATLAR);
aktarım yapılacak kitapcığın ismi(ARAMA SON) Aktarım yapılacak sayfası ise (Sayfa 1), yardımlarınız için çok teşekkür ederim.Sağolun.

 

[Korhan Ayhan]

Selamlar,

#20 nolu mesajımdaki kodu güncelledim. İncelermisiniz.

Makronun çalışması için dosyalar aynı klasör altında olmalıdır. Aktarım yapılacak dosya açılır aktarım yapılır ve dosya kayıt edilip kapanır.

 

[abbasonline]

Korhan bey, dosyalar aynı klasör altında, her ikiside açık makroları çalıştır diyorum (Subscript out of range) bu hatayı veriyor. kodu her iki kitapcığada yapıştırdım.

 

[Korhan Ayhan]

Selamlar,

Kodda kitap ve sayfa isimlerini kendi dosyalarınızdaki kitap ve sayfa isimlerinizle kontrol ediniz. Aynı olması gerekiyor. Eğer hala olmuyor derseniz dosyalarınızı foruma ekleyin kontrol edelim.

 

[abbasonline]

Korhan bey, çok sağolun sizlere zahmet verdik teşekkür ederim, Kolay gelsin.

 

[abbasonline]

Korhan bey dosyalar ekte;

Dosyalardaki makroyu çalıştır dediğimde hata veriyor, ayrıca makroyu çalıştır demesemde (ARAMA SON) excel kitapcığını her açtığımda kendisi diğer (TÜM VUKUATLAR) kitapcığından verileri alması mümkün olurmu, Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyaları denermisiniz. Kod "ARAMA SON" isimli kitabınızın ThisWorkbook bölümündedir.

 

[abbasonline]

Korhan bey Teşekkürler, çok sağolun, kolay gelsin.

 

[abbasonline]

Korhan bey ekli dosyadaki kodları uyguladım ve şu an çalışmakta, ancak Tüm Vukuatlar dosyası açıkken kod girdiğimiz Arama Son dosyasını açmaya çalıştığımda, Tüm vukuatlar dosyasını otomatik olarak kapatmaktadır, bu sorun düzeltilebilirmi. (ama verileri yine almaktadır.)

 

[Korhan Ayhan]

Selamlar,

ARAMA SON kitabını açın kodlara ulaşın. Kod içindeki aşağıdaki satırı bulup silin.

K1.Close

 

[abbasonline]

Korhan bey, teşekkür ederim. sağolun.

 

[turuncu32]

Bana ilçeye göre mahalle isimlerini seçmem gerek yardımcı olur musunzu