buton ile kopyala yapıştır formül eksikliği

Katılım
13 Ekim 2020
Mesajlar
8
Excel Vers. ve Dili
2020 / ingilizce
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 :D

yardımlarınız için teşekkür ederim.
 
Üst