Belirli hücrelerdeki veriyi butonla kopylama

[szuzum]

b4-b21 d2-d9 d11-d16 d18-d19 d21-d23 d25-d32 d34-d39 m2-13 bu veri buton yardımıyla kopyalamak istiyorum mümkün mü?

 

[szuzum]

butonla veri silmeyi bu kodla yaptım

Sub sil()

If MsgBox(" DİKKAT! BU HESAP SİLİNDİĞİNDE GERİ ALINMAZ (DEVAM ETMEK İSTİYOR MUSUN ) ?", vbQuestion + vbYesNo, "") = vbNo Then
    If CloseMode = 0 Then: Cancel = True: Exit Sub
      End If
Range("d2:d9").Select
    Selection.ClearContents

    Range("M2:M13").Select
    Selection.ClearContents
 
Range("D11:D16").Select
    Selection.ClearContents
 
Range("d18:d19").Select
    Selection.ClearContents
 
Range("d21:d23").Select
    Selection.ClearContents
 
Range("d25:d32").Select
    Selection.ClearContents
 
Range("d34:d39").Select
    Selection.ClearContents
    
    
Range("I2:I9").Select
    Selection.ClearContents
    
    
Range("ı11:ı16").Select
    Selection.ClearContents
    
 Range("I21:I23").Select
    Selection.ClearContents
    
Range("I25:I32").Select
    Selection.ClearContents
    
Range("I34:I39").Select
    Selection.ClearContents
    
Range("ı18:ı19").Select
    Selection.ClearContents
    
Range("b4:b21").Select
    Selection.ClearContents
  MsgBox "HESAP SİLDİ   ", vbCritical

End Sub

 

[szuzum]

Konu aktif