Sadece belli koşulları sağlayan satırların görüntülenmesi

Katılım
21 Ocak 2008
Mesajlar
312
Excel Vers. ve Dili
Excel 2013 / Türkçe
Farklı bölgelerde satış yapmakta olan pazarlama elemanlarımızla ilgili satış bilgileri basite indirgenmiş haliyle ekli dosyada mevcut. Sipariş sırasına göre benzer kayıtlar, alt alta girilmektedir. Bir başka sayfada yapmak istediğim şey şu:
Örneğin; A elemanımın, Bursa'daki tüm satışlarını alt alta

ya da, tüm elemanların X malını, kimlere, ne kadar sattığını alt alta görmek istiyorum.

Excel böyle bir filtreleme yapmaya müsaitmidir ? Yapılabilirse hangi fonksiyon, nasıl bu işimi görür ?

Ekli dosyayı görüntüle 37557
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Dosyanız ektedir. Kodlar Sayın Korhan Ayhan' ın çalışmasından alıntıdır..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.:cool:
Kod:
Sub sorgu()
Dim pazarlamaci As String, k As Range, sat As Long
Dim adr1 As String, adr2 As String, ilk_adres As String
Sheets("Toplam_Satışlar").Select
pazarlamaci = InputBox("Pazarlamacı Adını Giriniz :", "PAZARLAMACI SORGULA")
Set s2 = Sheets("SORGU")
Application.ScreenUpdating = False
s2.Range("B4:F65536").ClearContents
If pazarlamaci = "" Then Exit Sub
sat = 4
Set k = Range("B4:B65536").Find(pazarlamaci, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do
            adr1 = Range(Cells(k.Row, "B"), Cells(k.Row, "F")).Address
            adr2 = Range(Cells(sat, "B"), Cells(sat, "F")).Address
            s2.Range(adr2).Value = Range(adr1).Value
            Set k = Range("B4:B65536").FindNext(k)
            sat = sat + 1
        Loop While Not k Is Nothing And k.Address <> ilk_adres
    End If
Application.ScreenUpdating = True
Sheets("SORGU").Select
MsgBox "Aktarma Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Son düzenleme:
Katılım
21 Ocak 2008
Mesajlar
312
Excel Vers. ve Dili
Excel 2013 / Türkçe
Say&#305;n Espinonajl (isminizi bulamad&#305;m kusura bakmay&#305;n),
Ekledi&#287;iniz sayfalarda hi&#231; bir form&#252;l ya da makroya rastlayamad&#305;m. Ama bir &#351;eyler(!) &#231;al&#305;&#351;&#305;yor yine de... Nereye gizlediniz bu kod ya da form&#252;lleri ? =) Bu i&#351;in s&#305;rr&#305;n&#305; payla&#351;&#305;rsan&#305;z mutlu olurum...

Say&#305;n Evren Gizlen,
Makronuzu dikkatle inceliyorum. Benzer &#351;ekilde sorunumu &#231;&#246;zmeye &#231;al&#305;&#351;aca&#287;&#305;m.

Her ikinize de ilginiz ve eme&#287;iniz i&#231;in te&#351;ekk&#252;rler ediyorum.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sayın Espinonajl (isminizi bulamadım kusura bakmayın),
Eklediğiniz sayfalarda hiç bir formül ya da makroya rastlayamadım. Ama bir şeyler(!) çalışıyor yine de... Nereye gizlediniz bu kod ya da formülleri ? =) Bu işin sırrını paylaşırsanız mutlu olurum...

Sayın Evren Gizlen,
Makronuzu dikkatle inceliyorum. Benzer şekilde sorunumu çözmeye çalışacağım.

Her ikinize de ilginiz ve emeğiniz için teşekkürler ediyorum.
Rica ederim.
İyi çalışmalar.:cool:
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Sayın Espinonajl (isminizi bulamadım kusura bakmayın),
Eklediğiniz sayfalarda hiç bir formül ya da makroya rastlayamadım. Ama bir şeyler(!) çalışıyor yine de... Nereye gizlediniz bu kod ya da formülleri ? =) Bu işin sırrını paylaşırsanız mutlu olurum...

Sayın Evren Gizlen,
Makronuzu dikkatle inceliyorum. Benzer şekilde sorunumu çözmeye çalışacağım.

Her ikinize de ilginiz ve emeğiniz için teşekkürler ediyorum.
Merhaba,

İilgili kodlar sayfaların kod bölümünde mevcuttur..
 

ojibu

Altın Üye
Katılım
14 Haziran 2005
Mesajlar
196
Excel Vers. ve Dili
Office 365, Office 2019
Altın Üyelik Bitiş Tarihi
28-06-2025
da&#287;&#305;t makrosu ile ekteki dosyaya bir bak. pazarlamac&#305; ismi ile yeni sayfalar a&#231;ar.
 
Son düzenleme:
Katılım
21 Ocak 2008
Mesajlar
312
Excel Vers. ve Dili
Excel 2013 / Türkçe
Arkada&#351;lar harikas&#305;n&#305;z...

Yard&#305;mlar&#305;n&#305;zla &#246;n&#252;mde m&#252;thi&#351; bir ufuk a&#231;&#305;ld&#305;. G&#246;ndermi&#351; oldu&#287;unuz dosyalar&#305; inceleyerek, kendi &#231;al&#305;&#351;mama uyarlamaya gayret edece&#287;im. 3 ayr&#305; y&#246;ntemle sorunun &#231;&#246;z&#252;m&#252;n&#252; &#246;&#287;renmi&#351; oldum. Bu kar&#305;&#351;&#305;mdan g&#252;zel bir yemek ortaya &#231;&#305;kar in&#351;aallah.
Yaln&#305;z bir &#351;eyi merak ettim. Kod yaz&#305;l&#305;m&#305; makro tekni&#287;i ile mi yap&#305;ld&#305; yoksa bizzat elle mi yaz&#305;ld&#305; ?
(Ojibu, size de ilginiz ve eme&#287;iniz i&#231;in te&#351;ekk&#252;r ederim...)
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Arkadaşlar harikasınız...

Yardımlarınızla önümde müthiş bir ufuk açıldı. Göndermiş olduğunuz dosyaları inceleyerek, kendi çalışmama uyarlamaya gayret edeceğim. 3 ayrı yöntemle sorunun çözümünü öğrenmiş oldum. Bu karışımdan güzel bir yemek ortaya çıkar inşaallah.
Yalnız bir şeyi merak ettim. Kod yazılımı makro tekniği ile mi yapıldı yoksa bizzat elle mi yazıldı ?
(Ojibu, size de ilginiz ve emeğiniz için teşekkür ederim...)
Ben elle yazdım.:cool:
 

ojibu

Altın Üye
Katılım
14 Haziran 2005
Mesajlar
196
Excel Vers. ve Dili
Office 365, Office 2019
Altın Üyelik Bitiş Tarihi
28-06-2025
bana de&#287;il forma te&#351;ekk&#252;r etsen yeridir. &#231;&#252;nk&#252; bende bu &#231;al&#305;&#351;malar&#305; hep bu formdan &#246;&#287;rendim. uygulad&#305;m. .vermi&#351; oldu&#287;um bu makro sitede mevcut.sadece size uyarlad&#305;m.herkese te&#351;ekk&#252;r.iyiki vars&#305;n excel.web.tr
 
Üst