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...

mars2

Kullanıcı
Katılım
11 Mar 2018
Mesajlar
57
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,
 
32 64 bit kontrol kod satırları
Iskonto hesaplama küsürat sorunu

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
 
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: 
İndirmek için giriş yapmanız gerekmektedir.
(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
ikisinden biri olması lazım
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
veya
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satı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.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt