Yan sayfadan seçime göre veri alma.

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,112
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office 365 Tr 64 Bit
Herkese Merhabalar,
Ekli dosyada FATURA sayfasına bilgi girişi yapılıyor.
Yapmak istediğim ise FİRMA BAZLI ÖDENMEMİŞ FATURALAR sayfasında E2 hücresinden yapılan seçime göre ÖDENMEMİŞ faturaların bilgisini almak.
Konu hakkında yardımlarınızı rica ederim.
Saygılarımla,
sward175
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Ekstra bir şey yoksa Özet Tablo(Pivot Table) ile yapabilirsiniz.
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,112
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office 365 Tr 64 Bit
Sayın, hamitcan Hocam.
İlginize teşekkür ederim.
Formül ile olsa, Pivot Table' ye biraz uzağım.
Saygılarımla,
sward175
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Bence kendinizi biraz zorlayın. Formülden daha kolay. Özet Tablonun nimetlerinden uzak kalmayın. :)
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,112
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office 365 Tr 64 Bit
Sayın, hamitcan Hocam,
Dosya bir kaç kişi tarafından kullanıldığı ve Pivot Tabloya alışkın olunmadığı için formül ile çözüm aramıştım.
Teşekkür ederim.
Saygılarımla.
sward175
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,334
Excel Vers. ve Dili
2019 TR
Merhaba, bende alternatif olarak Dilimleyici örneğini vereyim.

Tabloda herhangi bir hücreyi tıkladığınız zaman menüde Tablo Tasarımı menüsü yer alır.
Bu menü içerisinde yer alan Dilimleyici Ekle komutuna tıkladığınız zaman tablo başlıklarının olduğu bir pencere açılır.
230394
230395

Bu pencerede dilimleyici ile filtre uygulanacak başlıklar işaretlenir.
Sizin dosyanızda Müşteri Adı ve Durum başlıklarının işaretlenmesi gerekir.

Seçim sonucu iki pencere oluşur.
230396
Bu pencerelerde yer alan butonlara göre sayfadaki Tablo üzerinde filtre işlemi yapabilirsiniz.

Ekran görüntüsü
230397



Dilimleyici uygulaması, Sizin için uygun olmazsa, ikinci alternatif ise makro kodu ile işlemi gerçekleştirmek.
FİRMA BAZLI ÖDENMEMİŞ FATURALAR sekmesi üzerinde Sağ Tuş \ Kod Görüntüleyi tıklayıp, açılan sayfaya aşağıdaki kodu yapıştırınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then

Dim firma As Worksheet, fatura As Worksheet
Dim son As Long, son2 As Long, i As Long
Set firma = Sheets("FİRMA BAZLI ÖDENMEMİŞ FATURALAR")
Set fatura = Sheets("FATURALAR")

son = firma.Cells(Rows.Count, 1).End(3).Row
son2 = fatura.Cells(Rows.Count, 1).End(3).Row

firma.Range("A6:J" & son + 1).Clear
son = 5
    For i = 2 To son2
        If Target.Value = fatura.Cells(i, 4) And fatura.Cells(i, 8) = "ÖDENMEMİŞ" Then
           son = son + 1
           firma.Cells(son, 1) = fatura.Cells(i, 1)
           firma.Cells(son, 2) = CDate(fatura.Cells(i, 2))
           firma.Cells(son, 3) = CDate(fatura.Cells(i, 3))
           firma.Cells(son, 4) = fatura.Cells(i, 4)
           firma.Cells(son, 5) = fatura.Cells(i, 5)
           firma.Cells(son, 6) = fatura.Cells(i, 6)
           firma.Cells(son, 7) = fatura.Cells(i, 7)
           firma.Cells(son, 8) = fatura.Cells(i, 8)
           firma.Cells(son, 9) = CDate(fatura.Cells(i, 9))
           firma.Cells(son, 10) = fatura.Cells(i, 10)
        End If
    Next i
End If
End Sub
Ekran görüntüsü
230398
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,112
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office 365 Tr 64 Bit
Sayın,faye_efsane,

Her iki önerinizi de deneyeceğim.
Çok teşekkür ederim.
saygılarımla,
sward175
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
#hamitcan bey bizde formülle yapılmasını talep ediyorum.
 

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,112
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office 365 Tr 64 Bit
Sayın, İdris SERDAR Hocam,
İlgi ve alakanıza teşekkür ediyorum.
Gayet güzel sonuç veriyor.
Sağ Olun.
Saygılarımla,
sward175
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
İdris Bey, yine döktürmüş, ellerine sağlık. Sayın sward175 ve KMLZDMR yine de bana göre formülle bu işlemi yapmak daha zor ama tercih size kalmış.
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
İdris Bey, yine döktürmüş, ellerine sağlık. Sayın sward175 ve KMLZDMR yine de bana göre formülle bu işlemi yapmak daha zor ama tercih size kalmış.
Amacım formül öğrenmek.
İdris Serdar beyden farklı şekilde yaptım ama ÖDENMİŞ leri de getirdi.
 
Üst