tablar arası veri aktarma

[ilkiliroglu]

arkadaşlar ekte gönderdiğim dosyayı sizler sayesinde hazırladım bunun için öncelikle hepinize sonsuz teşekkürlerekteki dosyada a tabından b ve c tablarına veri aktarımını sağlayan bir makro yazılmış durumda ben d tabını ekleyeceğim bunun için a tabından d tabına ilgili verilerin a tabındaki verileri aktar butonuna bastığımda gerçekleşmesi gerekiyor d tabındaki sutunların üzerine a tabında hangi sutundan veriyi alacağını yazdım ilginiz ve yardımlarınız için sonsuz teşekkürler

 

[muratct]

arkadaşlar ekte gönderdiğim dosyayı sizler sayesinde hazırladım bunun için öncelikle hepinize sonsuz teşekkürlerekteki dosyada a tabından b ve c tablarına veri aktarımını sağlayan bir makro yazılmış durumda ben d tabını ekleyeceğim bunun için a tabından d tabına ilgili verilerin a tabındaki verileri aktar butonuna bastığımda gerçekleşmesi gerekiyor d tabındaki sutunların üzerine a tabında hangi sutundan veriyi alacağını yazdım ilginiz ve yardımlarınız için sonsuz teşekkürler

kod sayfasına size fikir verebilecek 3 satır ekledim.kodu incelerseniz

Set s4 = Sheets("D") aktarım yapılacak sayfayı ifade ediyor.

S2.Cells(Satır, "B") = Aralık.Offset(0, 1) ' tarih
S2.Cells(Satır, "C") = Aralık.Offset(0, 2) 'sipariş no
S2.Cells(Satır, "D") = Aralık.Offset(0, 10) 'gauge bu kodlar ise hangi sütunlara A sayfasındaki hangi sütunların aktarılacağını ifade ediyor.