• DİKKAT

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

  • MÜJDE!!!! EXCEL WEB TR Adminlerinden Online EXCEL Seminerleri

    Online eğitimlere başlamadan önce sizlerin görüşlerini almak istiyoruz. Lütfen aşağıdaki konuda görüşlerinizi paylaşır mısınız... TEŞEKKRÜR EDERİZ

    ONLİNE EĞİTİM ANKETİ

Yan sayfadan seçime göre veri alma.

sward175

Altın Üye
Katılım
4 Şubat 2011
Mesajlar
871
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2016 TÜRKÇE
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,477
Excel Vers. ve Dili
Excel 2007 Türkçe
Ekstra bir şey yoksa Özet Tablo(Pivot Table) ile yapabilirsiniz.
 

sward175

Altın Üye
Katılım
4 Şubat 2011
Mesajlar
871
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2016 TÜRKÇE
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,477
Excel Vers. ve Dili
Excel 2007 Türkçe
Bence kendinizi biraz zorlayın. Formülden daha kolay. Özet Tablonun nimetlerinden uzak kalmayın. :)
 

sward175

Altın Üye
Katılım
4 Şubat 2011
Mesajlar
871
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2016 TÜRKÇE
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
 

faye_efsane

Altın Üye
Altın Üye
Katılım
1 Eylül 2008
Mesajlar
473
Excel Vers. ve Dili
2010 TR
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

Altın Üye
Katılım
4 Şubat 2011
Mesajlar
871
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2016 TÜRKÇE
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
492
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
#hamitcan bey bizde formülle yapılmasını talep ediyorum.
 

sward175

Altın Üye
Katılım
4 Şubat 2011
Mesajlar
871
Excel Vers. ve Dili
Excel Vers. ve Dili:
OFFICE 2016 TÜRKÇE
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,477
Excel Vers. ve Dili
Excel 2007 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
492
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