hücreden hücreye veri aktarma

[onur3466]

butona bastığımda sarı renkli alandaki verilerin mavi alana taşınmasını istimekteyim

 

[dEdE]

Merhaba,
Taşımaktan kastınızı tam olarak anlamadım. Kopyala/yapıştır mı? Kes/yapıştır mı?
Her ikisini de kodda yazdım. Birini silersiniz.

Private Sub CommandButton1_Click()
    ss = Sheets("Sayfa3").Cells(Rows.Count, 2).End(3).Row
    Range("B6:C" & ss).Copy Range("O6") 'bu satır kopyalar
    Range("B6:C" & ss).Cut Range("O6") ' bu satır keser yapıştırır
End Sub

 

[dEdE]

Teşekkür beklemiyoruz.
Beş satır da olsa kod yazmışız.
Aradan 5 gün geçmiş. Dün foruma uğramışsınız.
İşe yaradı ya da yaramadı diye dönüş yapmak çok mu zor?
Bunu sormak hakkım diye düşünüyorum.

 

[onur3466]

hocam kusura bakmayın gerçekten şirket dışında olduğumdan yazmadım gerçekten çok özür dilerim geç oldu am çok teşekkür ederim