Makro ile Ara_Bul_Aktar

[Utekiner]

Merhaba;

Örnekteki çalışma konusunda yardımcı olabilir misiniz. (ekteki örnek tamamlanmış hali.)

Sheet2 sayfasındaki sütun bilgilerine göre Sheet1 sayfasına A ve B sütunundaki bilgileri dikkate alarak veri aktarmak istiyorum.

Dosyada Sheet1 deki A ve B sütununda yazılı bilgiler doğrultusunda Sheet2 veri aktarmak istiyorum.

Ekstra olarak,

Sheet2 sayfasındaki sütunlar M sütununa kadar dolu ise, A ve B sütunundaki bilgiler doğrultusunda Sheet2 X - X3 sütununlarının birini veya her ikisini Sheet1 E - F sütunlarına getirmek istersem Kodda ne gibi düzenlemeler yapmalıyım.

Sürekli raporlama işlemlerinde buna benzer veriler ile çalışmaktayız. Yazacağınız kodun ufakta olsa nerelerinde değişiklik yapmam gerektiğini paylaşabilir misiniz. Teşekkür ederim.

https://s2.dosya.tc/server10/zfnjf9/Ara_Bul.xlsm.html

 

[gicimi]

@Utekiner Bey

Kodlara göre düzenleme yapabilir siniz.

Sub düşeyara()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s1.Range("G2") = WorksheetFunction.VLookup(s1.Range("F2"), s1.Range("A1:D1000"), 2, 0)
s1.Range("H2") = WorksheetFunction.VLookup(s1.Range("A14"), s2.Range("A:I"), 2, 0)
End Sub

 

[Utekiner]

Sn. @gicimi Bey makro bilgim zayıf olduğu için paylaşmış olduğunuz kodları tasarlayamadım.
@Korhan Ayhan , @dalgalikur, @YUSUF44 Hocalarım sizlerden vaktiniz var ise, yardım talep ediyorum.

 

[çıtır]

Dosyanız.

https://www.dosyaupload.com/nqhH

 

[gicimi]

Dosyanız.
https://www.dosyaupload.com/npVC

Merhaba Çıtır Bey,
Ekli dosyada kodları göremedim. İnceler misiniz.

 

[çıtır]

Merhaba Çıtır Bey,
Ekli dosyada kodları göremedim. İnceler misiniz.

Sayın gicimi;
Yanlışlıkla kodları yazdığım değilde, indirdiğim dosyayı yüklemişim.Özür dilerim.Beni uyardığınız için çok çok teşekkür ederim.#4 Nolu iletideki dosyayı yeniledim.Tekrar teşekkürler.

 

[gicimi]

Sayın gicimi;
Yanlışlıkla kodları yazdığım değilde, indirdiğim dosyayı yüklemişim.Özür dilerim.Beni uyardığınız için çok çok teşekkür ederim.#4 Nolu iletideki dosyayı yeniledim.Tekrar teşekkürler.

Sn. Çıtır Bey,
Yapmış olduğunuz çalışmaları yakinen takip ediyorum. Rica ederim. Saygılar.

 

[Utekiner]

Sn. @çıtır Bey ilginiz için teşekkür ederim.

 

[çıtır]

Sn. @çıtır Bey ilginiz için teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.