• DİKKAT

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

Başka sayfalardan veri almak

Katılım
10 Kasım 2006
Mesajlar
34
Excel Vers. ve Dili
exel xp türkçe
merhabalar
sorunum şu tüm iller sayfam var ve iller sayfam var aynı çalışma kitabında.
tüm iller sayfasına her ildeki verileri alacak makro yazmak istiyorum.
düne kadar çalışıyordu. bugün verileri güncelleyince 3 5 tane ili atlıyor verilerini getirmiyor.
ildeki veriyi hangi satırda sonlandığını görecek ve tüm iller sayfasında da en son hangi satırda veri varsa ondan bir sonraki satıra yapıştıracak. düne kadar çalışan makro aşağıdaki gibiydi.

Sheets("rize").Select
Range("E10:K12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tüm İller").Select
Range("B65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste




yardımlarınız için şimdiden teşekkürler.
 
Hayır çok basit bi hata yapmışım onu düzelttim koddaki aralığı B65535 olarak belirlemiştim. Veriler yaklaşık 100000 satırmış onun için 65000 den sonra tekrardan ilk satırdan yapıştırmaya başlıyormuş.)
teşekkürler.
 
Merhaba,

Range("B65535").End(xlUp).Offset(1, 0).Select


yerine

Kod:
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
yazarsanız bundan sonra çıkacak sürümlerde de geçerli olur. Belki satır sayısını tekrar arttırabilirler.
 
Güzel olur teşekkür ederim.
 
Geri
Üst