• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri aktarma

Y

Yesilyurtlu

Katılım
22 Mayıs 2009
Mesajlar
1,017
Excel Vers. ve Dili
Office 2003
Sayfa1 deki verileri sayfa1(2) ye nasıl aktarabiliriz makro ile

yardımcı olabilir misiniz
 

Ekli dosyalar

:cool:
Kod: 
Sub aktar()
Dim liste()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
liste = Range("B7:D" & Cells(65536, "B").End(xlUp).Row)
sat = Sheets("Sayfa1 (2)").Cells(65536, "B").End(xlUp).Row + 1
Sheets("Sayfa1 (2)").Range("B" & sat).Resize(UBound(liste, 1), UBound(liste, 2)) = liste
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı"

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst