Diğer Bir dosyaya listelemek

[WHO_I_AM]

merhaba Arkadaşlar
Konuların tamamını incelemeye çalıştım ama. Sorunum ŞU
öRNEK 1 de araçların kredi tarih ve tutarları var. Örnek 2 ye plakayı yazdığımda Örnek 1 deki o plakalı araçları dökümünü yapmasını istiyorum.
Konu hakkında yardımlarınız için şimdiden teşekkürler.

 

[Ali]

İki ayrı çalışma kitabı olmadan aynı çalışma kitabındaki Örnek1'in Sayfa2 sinde dökümünü görseniz işinizi görürmü?

 

[WHO_I_AM]

olur tabiiki. şimdiden teşekkürler

 

[Ali]

B1 hücresine kolaylık olsun diye veri doğrulama ekledim. Siz öyle yapmayabilirsiniz.

Örnek dosyanız ektedir.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For suts1 = 2 To s1.[h65536].End(3).Row
If s1.Range("h" & suts1) = s2.[b1] Then
s1.Range("g" & suts1).Copy
s = s + 1
s2.Range("c" & s + 1).PasteSpecial
s1.Range("f" & suts1).Copy
s11 = s11 + 1
s2.Range("d" & s11 + 1).PasteSpecial
s1.Range("c" & suts1).Copy
s111 = s111 + 1
s2.Range("e" & s111 + 1).PasteSpecial
s1.Range("d" & suts1).Copy
s1111 = s1111 + 1
s2.Range("f" & s1111 + 1).PasteSpecial
End If
Next
End Sub