Sayfayi Aynen Aktarmak

[86126]

rapor adlı sayanın rapor2 adlı dosyaya aynen aktarılmasını istiyorum. bu i
şlemi makro ile yapmak istiyorum. yardımlarınızı bekliyorum.
Private Sub Kaydet()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim Dolusay1, Dolusay2

Set Sh1 = Worksheets("Sayfa1")
Set Sh2 = Worksheets("Sayfa2")

Dolusay1 = WorksheetFunction.CountA(Sh1.Range("A:A"))
Dolusay2 = WorksheetFunction.CountA(Sh2.Range("A:A"))

Sh1.Range("A1:A" & Dolusay1).EntireRow.Copy Sh2.Range("A" & Dolusay2 + 1)
End Sub


BU KODU MACRO OLARAK ATAYAMADIM. MAKROLARIN ARASINDA GÖZÜKMÜYOR KISAYOL NASIL YAPABİLİRİM

 

[bedersu]

İlk gönderdiğim kod tüm sayfayı kopyalıyordu o yüzden sildim.Kodalrın arasında gözükmemesinden kastınız nedir?Kodlarda sorun yok gibi

 

[86126]

kodları butona atayamadım makro ata dediğimde macroların arasında göremiyorum

 

[baydeniro]

Evet bedersu, ben de denedim olmadı.

 

[omerceri]

Kodlar modülde değilde sayfaların birinin kod sayfasında olabilir.
sayfa sekmelerinde teker teker kod sayfalarını açarak kodları bulup bu kodları oluşturacağınız modül sayfasına kopyalayın

 

[Orion1]

Merhaba.

Private Sub Kaydet()

Yukarıdaki Private Yazan kelimeyi silin.
Sadece

 Sub Kaydet()

olsun.

 

[86126]

teşekkür ederim kardeş

 

[baydeniro]

Teşekkürler Sezar.

 

[bedersu]

evet.Bakmak ve görmek buna denir işte.ben baktım ama Sezar gördü