Butonlu Sayfa Aktarımında Eksik Gelen Bilgileri Tamamlama

SilinenUye8231

Kullanıcı
Katkı: %1
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba, hayırlı cumalar.

Ekte gönderdiğim dosyamın 1.sayfasındaki bilgileri 2.sayfaya butonla getirmek istiyorum, butona bastığımda bazı bilgiler gelmiyor.

Yardımcı olur musunuz?
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. @SilinenUye8231 ;

Bilgilerin tamamının gelmeme nedeni hücre aralığı tanımlanan satırla ilgili.
-- Sheets("Sayfa1").Range("B1000").End(3).Row kısmı Sayfa1 de B sütunundaki son dolu hücrenin satır numarasını alıyor.
-- Sheets("Sayfa2").Range("A6:A" & Sheets("Sayfa1").Range("B1000").End(3).Row) bu satır çalıştığı zaman da oluşan hücre aralığı A6:A9 olduğu için kod belirlenen aralıkta doğru çalışıyor.

Örnek olarak hücre aralığını aşağıdaki gibi değiştirirsek Sayfa1 deki tüm bilgiler gelir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
** Kod açıklaması şu şekilde,
-- Sayfa1 deki son dolu hücrenin satır numarası son isimli değişkene alınıyor. (Örnek dosyada dolu satır 9)
-- Sheets("Sayfa2").Range(Cells(6, "A"), Cells(son + 6 - 1, "A")) satırı ile hücre aralığı tanımlanıyor.
Bu satırdaki ifadeler
-- Cells(6, "A") ifadesinin karşılığı A6 hücresi.
-- Cells(son + 6 - 1, "A") ifadesinde ise 6. satıra son isimli değişken değerini ekliyoruz ki kayıt sayısı kadar ilerlesin satır numarası.
Neden -1 yaptık? 6. satırda başlık olduğu için. -1 yapmamak için son+5 olarak da kullanabilirsiniz.
-- Range(Cells(6, "A"), Cells(son + 6 - 1, "A") ifadesinin karlığı A6:A14 olur.
 
Oyla 0 Olumsuz oyla
Sayın Ahmet Bey, ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Ayrıca açıklama içinde çok teşekkür ediyorum.

Hayırlı cumalar diliyorum.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst