Açılan kutudaki müşteri sayfasına kayıt

[hakpin]

Kıymetli hocalarım;
İstihkaklarla ilgili yapmış oduğum ekteki programda, "istihkak giriş" sayfasında oluşturulacak "kaydet" butonuna tıkladığımda sol üsteki açılır kutuda hangi yüklenici seçili ise o yüklenici sayfasına;
Y3 hücresindeki tutarı "E8,E9,sırasıyla E19 'a kadar,
O18 hücresindeki tutarı "M8,M9,sırasıyla M19 'a kadar,
O 20 hücresindeki tutarı "N8,N9,sırasıyla N19 'a kadar,
AJ 25 hücresindeki tutarı "O8,O9,sırasıyla O19 'a kadar,
ve bugün tarihinide D8 den D19 Kadar her kayıtta yazmasını istiyorum. Yardımcı olursanız çok sevinirim,çok makbule geçecek,çünkü yüklenici sayısı dosyadakinden hayli fazla. Selamlar

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub AKTAR()
sayfa = [d3]
With Sheets(sayfa)
.[d8:d19] = Date
.[e8:e19] = [y3]
.[m8:m19] = [o8]
.[n8:n19] = [o20]
.[o8: o19] = [aj25]
End With
End Sub