Acil!!!Bir hücreden bir hücreye otomatik veri aktarma

[hilmi0707]

Arkadaşlar özür dilerim acil yazdım. Yıl sonu işlemleri arasında boğulup kaldım. Onur belgeleri ile ilgili bana çok kolaylık sağlayacak bir işlem yapmam gerekiyor. Gerekli bilgiler ekte. Teşekkür ederim.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub belgeyaz()
For i = 12 To Range("d65536").End(3).Row
[d10] = Cells(i, "d"): [e10] = Cells(i, "e")
ActiveSheet.PrintOut Copies:=1, Collate:=True
Next
End Sub

 

[hilmi0707]

Allah Razı oldun hocam.
Tam istediğim gibi..