Aktar Yardımı

[Yesilyurtlu]

Sub Aktar()
Sheets("bilgi").Range("C9").Copy Sheets("Komisyon Onayı").Range("d22")
Sheets("bilgi").Range("C10").Copy Sheets("Komisyon Onayı").Range("d23")
Sheets("bilgi").Range("C11").Copy Sheets("Komisyon Onayı").Range("d24")
Sheets("bilgi").Range("C12").Copy Sheets("Komisyon Onayı").Range("d25")
Sheets("bilgi").Range("C13").Copy Sheets("Komisyon Onayı").Range("d26")
End Sub

Değerli uzmanlarım
yukarıda ki makroda bilgi sayfasındaki c9 hücresi kare içine alınmışsa d22 hücresine de kare içinde aktarıyor.Renkli ise renkli aktarıyor.
Bunu c9 hücresi nasıl olursa olsun d22 ye sade aktarabilir mi?

 

[aydın3838]

selam
veriler alt alta sıralımı kaydedecek

yoksa her defesında c9 a mı???

 

[BG]

Sayın Yesilyurtlu

Sub Aktar()
Sheets("bilgi").Range("C9").Copy Sheets("Komisyon Onayı").Range("d22")
Sheets("bilgi").Range("C10").Copy Sheets("Komisyon Onayı").Range("d23")
Sheets("bilgi").Range("C11").Copy Sheets("Komisyon Onayı").Range("d24")
Sheets("bilgi").Range("C12").Copy Sheets("Komisyon Onayı").Range("d25")
Sheets("bilgi").Range("C13").Copy Sheets("Komisyon Onayı").Range("d26")
End Sub

Değerli uzmanlarım
yukarıda ki makroda bilgi sayfasındaki c9 hücresi kare içine alınmışsa d22 hücresine de kare içinde aktarıyor.Renkli ise renkli aktarıyor.
Bunu c9 hücresi nasıl olursa olsun d22 ye sade aktarabilir mi?

Aşağıdaki gibi denermisiniz.

Sub aktar()
Sheets("Komisyon Onayı").[d22].Value = Sheets("bilgi").[c9].Value
Sheets("Komisyon Onayı").[d23].Value = Sheets("bilgi").[c10].Value
Sheets("Komisyon Onayı").[d24].Value = Sheets("bilgi").[c11].Value
Sheets("Komisyon Onayı").[d25].Value = Sheets("bilgi").[c12].Value
Sheets("Komisyon Onayı").[d26].Value = Sheets("bilgi").[c13].Value
End Sub

 

[Yesilyurtlu]

Gökhan Abi teşekkür ediyorum.Sağolasın