Sayfalar Arasi Veri Aktarimi

[mekuka]

Slm sayın ustalar. Ekte gönderdiğim dosyayı bir incelerseniz sevinirim. Bir sayfadaki veriyi belirtmiş olduğumuz sayfaya kopyalamak...

Şimdiden Teşekkürler :???:

 

[Kemal Demir]

sn.mekuka

Öncelikle Forumumuza Hoş Geldiniz.

Sub aktar()
    Application.Goto Reference:="alan"
    Selection.Copy
Sayfa = InputBox("Kopyalacak Sayfa Adını Giriniz")
Sheets(Sayfa).Select
    b = WorksheetFunction.CountA(ActiveSheet.Range("A1:a65536")) + 1
    
    Cells(b, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Range("A1").Select
    Application.CutCopyMode = False
    
    Sheets("Sheet2").Select
    Range("A1").Select

End Sub

kodu yukarıdaki gibi değiştiriniz.

 

[mekuka]

kod için teşekkürler ama;

her 3 sayfaya da kopyalıyor.

ben sadece ismini belirttiğim sayfaya kopyalamasını istiyordum.

Yardımınızı bekliyorum...