Kopyala ve sil makrosu.

[sward175]

Herkese Merhabalar.
Kullandığım dosyada 2 sayfa bulunuyor.
1. sayfa ismi Giriş
2. sayfa ismi Stok
Aşağıdaki kopyalama ve silme işlemlerini Giriş sayfasına bir buton ekleyerek uygulamak istiyorum.
Bu kodun yazılması hususunda yardımlarınızı rica ederim.
Saygılarımla,
sward175

Stok sayfası C87' yi Giriş sayfası C4' e getir.

Stok sayfası C88' i Giriş sayfası C5' e getir.

Stok sayfası F87' yi Giriş sayfası G4' e getir.

Stok sayfası F88'i Giriş sayfası G5' e getir.

Giriş sayfası D6270' i : C62:C70' e kopyala.

Giriş sayfası E76:E86' yı : D7686' ya kopyala.

Giriş sayfası O76:O86' yı: C76:C86' ya kopyala.

D9:J10 hücrelerini SİL.

F62:H70 hücrelerini SİL.

G76:M86 hücrelerini SİL.

B93, C93, E93, F93 hücrelerini SİL.

 

[okan32]

Deneyiniz...

Sub VeriKopyalama()
  
     Sheets("Stok").Range("C87").Copy
    Sheets("Giriş").Range("C4").PasteSpecial Paste:=xlValues
    Sheets("Stok").Range("C88").Copy
    Sheets("Giriş").Range("C5").PasteSpecial Paste:=xlValues
    Sheets("Stok").Range("F87").Copy
    Sheets("Giriş").Range("G4").PasteSpecial Paste:=xlValues
     Sheets("Stok").Range("F88").Copy
    Sheets("Giriş").Range("G5").PasteSpecial Paste:=xlValues
      Sheets("Giriş").Range("D62:D70").Copy
    Sheets("Giriş").Range("C62:C70").PasteSpecial Paste:=xlValues
      Sheets("Giriş").Range("E76:E86").Copy
    Sheets("Giriş").Range("D76:D86").PasteSpecial Paste:=xlValues
        Sheets("Giriş").Range("O76:O86").Copy
    Sheets("Giriş").Range("C76:C86").PasteSpecial Paste:=xlValues
       Sheets("Giriş").Range("D9:J10").ClearContents
        Sheets("Giriş").Range("F62:H70").ClearContents
        Sheets("Giriş").Range("G76:M86").ClearContents
        Sheets("Giriş").Range("B93,C93,E93,F93").ClearContents
End Sub

 

[sward175]

Sayın, okan32,
Yardımınız için çok teşekkür ederim.
Sağlıklı günlere.
sward175

 

[sward175]

Sayın, okan32, Merhaba,
Yazmış olduğunuz iki sayfa arasındaki bilgi transferinde rakamları değil de formül kopyalıyor.
Sadece rakamları getirmesi için kodda düzenleme yapmanızı rica ederim.
sward175

 

[okan32]

Sayın, okan32, Merhaba,
Yazmış olduğunuz iki sayfa arasındaki bilgi transferinde rakamları değil de formül kopyalıyor.
Sadece rakamları getirmesi için kodda düzenleme yapmanızı rica ederim.
sward175

Kod Düzenlendi

 

[sward175]

okan32, Merhaba,

İlk satırda yazan,
Sub VeriKopyalama()

Sub VeriKopyala()
arasındaki boşluk nedeni ile hata veriyor.!!