kopyalamak ile ilgili olarak kodlarda düzenleme.

[alimo]

Değerli arkadaşlar,
ekli dosyamda belirtiğim gibi,

Sub Button1_Click()
Dim c As Range
For Each c In Selection
c.Copy c.Offset(, 1)
Next c
End Sub

bu kodlar seçili hücreleri bir sonraki sutuna kopyalar.İstediğim ,seçili hücreleri bir yada birkaç sutun öncesine kopyalatmak.
kolay gelsin.


Tamda kodları foruma gönderecekken ,çözümünü buldum.parantez içinde istenilen rakamları dğiştirince işlem tamam.öncekiler için negatif sayılar yazmak gerekli.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub Button1_Click()
ActiveCell.Copy ActiveCell.Offset(0, -2)
End Sub

 

[tahsinanarat]

Kaç sutun geri ise eksi işareti koyarak yazınız

Sub Button1_Click()
Dim c As Range
For Each c In Selection
c.Copy c.Offset(, -2)
Next c
End Sub

Bende dip notunuzu ve Sn. V.Basic For Applications arkadaşımızın çözümünü sonradan fark ettim kusura bakmayın