ActiveCell.Offset le kopylama

[a_self_lion]

ActiveCell.Offset(0, 6).Value = ActiveCell.Offset((-1, 6).Copy).PasteSpecial

burda yapmak istediğim aktif olan hüçrenin 6 sutün sağındaki hüçrenin bir üstündeki veriyi kopyala ve yapıştır ama bir türlü nasıl yapıldığını çözemedim

yardımcı olabilirmisiniz....

 

[veyselemre]

şöyle bir deneyin
[vb:1:84d7d7d90e]
ActiveCell.Offset(0, 6).FillDown
[/vb:1:84d7d7d90e]

 

[osmantelci]

Sub Kopyala()
 ActiveCell.Offset(-1, 6).Copy ActiveCell.Offset(0, 6)
End Sub

Sub DenemeVerisi()
With ActiveCell.Offset(-1, 6)
.Value = "Deneme Kopyalama İşlemi"
.Interior.Color = 65535
.Font.Color = 255
End With
End Sub