Değişebilen Makro

[baydeniro]

Merhaba Arkadaşlar, yazdığım makrolar kullandıkları referans bilgi değişse bile makro yazılırken hangi veri kullanılmışsa hep aynı veriye göre işlemini yapıyor. Halbuki bizim makrodan beklentimiz verileri değişen ama formatları aynı olan işlemleri kolaylaştırılması. Değişen veriyi dikkate alan makro nasıl yapılır ?

 

[Levent Menteşoğlu]

Değişen aralıktaki verileri diğer sayfaya aktarmak istiyorsanız, kod içindeki alan tanımlamalarınıda değişken yapmanız gerekir. Sizin dosyanıza göre aşağıdaki kodu çalıştırırsanız, verinin değiştirilerek diğer sayfaya nasıl aktarıldığını görebilirsiniz. Burada dikkat ederseniz değişken aralık "s1.Range([g2])" kısmında tanımlanmıştır. Aralıkta sizin dosyanızdaki G2 hücresinden "[g2]" hücre tanımlaması ile alınmıştır.

Sub SAYFA()
Set s1 = Sheets("tablo")
Set s2 = Sheets("rapor")
s1.Range([g2]).Copy s2.[a1]
End Sub

 

[baydeniro]

Teşekkür

Sayın leventm ilginize çok teşekkürler. Çok yararlı, çok kullanışlı bir çözüm oldu. Başarılarınızın devamını dilerim.