sayfalar arası aktarma

[murataras-48]

Arkadaşlar resmi yazı ile beraber evrak defteri hazırlıyorum ama resmi yazıdaki bölümleri giden evrak defterine aktaramıyorum. Örneğin: resmi yazı daki d14 ü giden evraktaki c3 e, c9 u d3 e,L8 i e3 e,c11 i g3 e ve f10 u da h3 e aktarmak istiyorum bunları kaydederken devamını da aynı satıra değilde bir alt satıra aktarsın böyle aktardıkça alt alta aktarsın.

 

[Necdet]

merhaba,

Sheets("Giden Evrak").Range("C3")=Sheets("Resmi Yazı").Range("D14")

Ya da

Sheets("Giden Evrak").Cells(3, "C") = Sheets("Resmi Yazı").cells(14, "D")

ya da

Sheets("Resmi Yazı").Range("D14").Copy Sheets("Giden Evrak").Range("C3")