Çözüldü Farklı Sayfalardan tabloya veri alma?

  • Konuyu başlatan Konuyu başlatan mars2
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
M

mars2

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
İyi Günler;
Liste adlı kitapta 3 adet sayfa bulunmaktadır.
1. sayfa Liste,
2. sayfa rapor,
3. sayfa analiste,

rapor sayfasında tablomun C3 hücresine dosya nosu yazdığımda C4, c5, c6, c7, c8, c9, c10 . c13 ila c18 arasındaki hücreler, ve c21 ila c23 arasındaki hücrelere analiste sayfasından,
Yine C26, c27, c30, c31, c32 hücrelerine ise Liste sayfasından veri almak istiyorum. Örnek ektedir.

Konu hakkında yardımlarınzla,
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala

Sayın leguminosea;​

İlginiz için teşekkürler,
Formülle yapmışsınız. Ancak, zaman içinde yanlışlıkla formülleri silinmesi mümkün olduğundan bunu kodla yapmak istiyorum. Bu konuda yardımlarınızı beklemekteyim.
 
Oyla 0 Olumsuz oyla

Sayın leguminosea;​


İlginize teşekkürler. Bilgisayarın başında bulunmadığım cevabınıza geç bakabildim.

Ancak, yazdığınız kodu örnek uygulamada denediğim zaman hata vermektedir.


1617253911614.webp
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Merhabalar Sn. @mars2
Alternatif olarak aşağıdaki kodları kullanabilirsiniz.

-- Rapor isimli sayfanın kod bölümüne ekleyiniz.
VBA: 
You must log in to view content
(46 satır)
Not: Kod güncellenmiştir.
 
Oyla 0 Olumsuz oyla

Sayın AhmetRasim;​


Kod için teşekkürler, kod örnekte çalışmakta ancak, dosya nosu yanlış veya farklı yazınca;
dNo = analiste.Range("B5:B" & aSon).Find(Range("C3")).Row satırı hata vermektedir.
Ancak, analistede ve liste böyle dosya nosu bulunmayınca, MsgBox "ARADIĞINIZ BULUNAMADI.", vbInformation, "BİLGİ" mesajı vermesi halinde hata giderilmiş olabilir mi ve nasıl çözebiliriz.
 
Oyla 0 Olumsuz oyla
İyi Günler;

Rapor sayfasındaki C3 hücresine dosya nosu yazdığımda, C4 hücresi (Birleştirilmiş olup C4:F4) ile diğer hücrelerinin (C5,C6, C7 vd...) içini silmesi veya temizlemesini aşağıdaki kodla yapmak istediğimde,

Sheets("rapor").Range("C4:F4").ClearContents

aSon = analiste.Range("A" & Rows.Count).End(xlUp).Row satırında hata vermekte olup excel kapanmaktadır.

hata nerede ve nasıl hücrelerin içini temizlemek mümkündür.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. @mars2
İlk mesajdaki paylaştığınız dosyada hücreler birleştirilmiş ve paylaştığım kodlar ile C3 hücresi boş olduğu zaman diğer hücreler de hata vermeden temizleniyor. Hata aldığınız dosyayı, kodları ile paylaşır mısınız?

**** Güncelleme Notu 04.05.2021 ****
Konuya dönüş yapılmadığı için, çözüldü olarak işaretlenip kilitlenmiştir.
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Üst