arkadaşlar merhaba.
sayfada araştırarak kod oluşturdum ama devam edemedim.
Private Sub CommandButton1_Click()
Dim copy As Range
Dim paste As Range
Set copy = Worksheets("Sheet1").Range("A1:c1")
Set paste = Worksheets("Sheet2").Range("a1:C1")
copy.copy paste
Dim delete As Range
Set deleteCELLS = Worksheets("Sheet1").Range("$A1:$c1")
deleteCELLS.delete
End Sub
butona bastığımda
sayfa1 deki, ("A1:c1")("f1:h1")("k1:m1") satırlarını kopyalaması.
sayfa2 deki aynı yerlere yapıştırması (sadece yazıyı) ancak satır dolu ise alt satıra geçmesi gerekiyor.
en sonda sayfa1 deki veriyi silmesi gerekiyor.
benim yazdığım kodda
kopyalanacak sadece ilk aralığı tanımlayabiliyorum.
yapıştırma işleminde özel yapıştır yapmıyor, hedef satır doluysa onu siliyor.
sayfa birdeki veriyi değil hücreyi komple siliyor
yardımlarınız için teşekkür ederim.
sayfada araştırarak kod oluşturdum ama devam edemedim.
Private Sub CommandButton1_Click()
Dim copy As Range
Dim paste As Range
Set copy = Worksheets("Sheet1").Range("A1:c1")
Set paste = Worksheets("Sheet2").Range("a1:C1")
copy.copy paste
Dim delete As Range
Set deleteCELLS = Worksheets("Sheet1").Range("$A1:$c1")
deleteCELLS.delete
End Sub
butona bastığımda
sayfa1 deki, ("A1:c1")("f1:h1")("k1:m1") satırlarını kopyalaması.
sayfa2 deki aynı yerlere yapıştırması (sadece yazıyı) ancak satır dolu ise alt satıra geçmesi gerekiyor.
en sonda sayfa1 deki veriyi silmesi gerekiyor.
benim yazdığım kodda
kopyalanacak sadece ilk aralığı tanımlayabiliyorum.
yapıştırma işleminde özel yapıştır yapmıyor, hedef satır doluysa onu siliyor.
sayfa birdeki veriyi değil hücreyi komple siliyor
yardımlarınız için teşekkür ederim.