Aradığım Değer ve Ona Bağlı A,B,C,D verilerini getirme

[mskkaya01]

Merhaba

firmaya ait araçlara birden fazla kişiler biniyor.
Hangi araca kimler bindi, kimler hangi tarihte kaç litre yakıt altı ve yakıtın tutarı.
I2 hücresine araç plakası yazdığım zaman yukarıda anlatmış olduğum verileri sağ tarafta bulunan
(J, K, L, M, N) sütunlarına gelmesini istiyorum. (excel dosyasında detaylı anlattım)
macro olmazsa sevinirim.

şimdiden herkese teşekkkür ederim.

 

[TiOr]

Merhaba,

Benzer bir konu var yardımcı olması açısında paylaşıyorum;

Eşitse Satırı Kessin ve Sayfa 2'ye Yapıştırsın...

Merhaba Kıymetli Üstatlar, Ekte paylaştığım dosya bir talep takip listesinden alıntıdır. Burada yapmak istediğim ve yapamadığım D SÜTUNU J-K-L SÜTUNLARI ile eşitse Sayfa 1 den satırı kessin ve sayfa 2 ye yapıştırsın. Böyle bir şey yapılabilmesi mümkün müdür? Şöyle izah edeyim 15 satırlık bir...

www.excel.web.tr

Kendine göre kodları alır ve yerleştirirsin kendi projene.

İyi çalışmalar.

 

[mskkaya01]

öncelikle çok teşekkür ederim macro çalışamıyorum, aynı çalışmayı buldum kendime göre tasarladım çokta başarılı lakin oda macrolu

 

[TiOr]

Merhaba,
Yardımcı olan olmassa ki olur
Müsait olmam durumunda hazırlar paylaşırım.
Benimde pek bilgim yoktu ama kurcalayı kurcalayı az buçuk öğrendik
Hayırlı akşamlar.

 

[mskkaya01]

Merhaba,
Yardımcı olan olmassa ki olur
Müsait olmam durumunda hazırlar paylaşırım.
Benimde pek bilgim yoktu ama kurcalayı kurcalayı az buçuk öğrendik
Hayırlı akşamlar.

tşk ederim hocam iyi çalışmalar.

 

[ÖmerFaruk]

Verdiğiniz dosya özelinde

J3 hücrenize yapıştırın.
=EĞERHATA(İNDİS(C:C;KÜÇÜK(EĞER($B$2:$B$9999=$I$2;SATIR($B$2:$B$9999);"");SATIR(A1)));"")
K-L-M sütunlarına ve aşağı doğru sürükleyerek çoğaltabilirsiniz.

N3 hücrenize de aşağıdaki formülü kullanabilirsiniz
=TOPLA(M3:M20)

 

[mskkaya01]

Verdiğiniz dosya özelinde

J3 hücrenize yapıştırın.
=EĞERHATA(İNDİS(C:C;KÜÇÜK(EĞER($B$2:$B$9999=$I$2;SATIR($B$2:$B$9999);"");SATIR(A1)));"")
K-L-M sütunlarına ve aşağı doğru sürükleyerek çoğaltabilirsiniz.

N3 hücrenize de aşağıdaki formülü kullanabilirsiniz
=TOPLA(M3:M20)

Merhaba Ömer bey yardımlarınız için teşekkür ederim, kodları uyguladım lakin hiç bir şey gelmedi

 

[Ali]

Ekte formülle listeleme çalışması yaptım, incelersiniz.

 

[mskkaya01]

Ekte formülle listeleme çalışması yaptım, incelersiniz.

Ali bey bir kaç hata var onları giderebilirsek tamamdır. LIST sayfasının 2. satırdaki kişiler gelmiyor

 

[Ali]

Dosyayı görmem lazım.

 

[mskkaya01]

Dosyayı görmem lazım.

Buyrun hocam

 

[Ali]

Formülde 3 olan kısımları 2 olarak değiştirin .Örnek LIST!$B$3:$B$1000 değil LIST!$B$2:$B$1000 olacak

Rapor sayfası B2 hücresi için

=EĞER(SATIRSAY($A$2:A2)<=$H$1;İNDİS(LIST!$B$2:$B$1000;KÜÇÜK(EĞER(LIST!$A$2:$A$1000=$A$1;SATIR(LIST!$A$2:$A$1000)-SATIR(LIST!$A$2)+1);SATIRSAY($A$2:A2)));"")

diğerlerini de buna göre düzeltirsiniz.

 

[mskkaya01]

Formülde 3 olan kısımları 2 olarak değiştirin .Örnek LIST!$B$3:$B$1000 değil LIST!$B$2:$B$1000 olacak

Rapor sayfası B2 hücresi için

=EĞER(SATIRSAY($A$2:A2)<=$H$1;İNDİS(LIST!$B$2:$B$1000;KÜÇÜK(EĞER(LIST!$A$2:$A$1000=$A$1;SATIR(LIST!$A$2:$A$1000)-SATIR(LIST!$A$2)+1);SATIRSAY($A$2:A2)));"")

diğerlerini de buna göre düzeltirsiniz.

hocam özür dileyerek, beceremedim

 

[Ali]

Revize dosya ektedir.

 

[mskkaya01]

Revize dosya ektedir.

yardımlarınızdan dolayı çok teşekkür ederim Ali bey

 

[mskkaya01]

ali hocam merhaba
veri tabanındaki kişi sayısı çoğaldıkça sorun olmaya başladı
filtreyi büyükten küçüğe yapınca arama yapmıyor

 

[YUSUF44]

Bence makro kullanmaktan korkmayın. Büyük verilerde makro daha kolay işlem yapar. Örneğin aşağıdaki kodları Rapor sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız A1 hücresini değiştirdiğinizde istediğiniz sonucun çok hızlı bir şekilde elde edildiğini görebilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
eski = Cells(Rows.Count, "A").End(3).Row
son = Sheets("LIST").Cells(Rows.Count, "A").End(3).Row
If eski > 1 Then Range("A2:E" & eski).ClearContents
If Target = "Tüm Liste" Then
    Sheets("LIST").Range("A2:E" & son).Copy [A2]
ElseIf Target <> "" Then
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
   
    sorgu = "select * from [LIST$A:E] where KATEGORİ='" & Target & "'"
    Set rs = con.Execute(sorgu)
   
    [A2].CopyFromRecordset rs
End If
End Sub

 

[mskkaya01]

Bence makro kullanmaktan korkmayın. Büyük verilerde makro daha kolay işlem yapar. Örneğin aşağıdaki kodları Rapor sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız A1 hücresini değiştirdiğinizde istediğiniz sonucun çok hızlı bir şekilde elde edildiğini görebilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
eski = Cells(Rows.Count, "A").End(3).Row
son = Sheets("LIST").Cells(Rows.Count, "A").End(3).Row
If eski > 1 Then Range("A2:E" & eski).ClearContents
If Target = "Tüm Liste" Then
    Sheets("LIST").Range("A2:E" & son).Copy [A2]
ElseIf Target <> "" Then
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
  
    sorgu = "select * from [LIST$A:E] where KATEGORİ='" & Target & "'"
    Set rs = con.Execute(sorgu)
  
    [A2].CopyFromRecordset rs
End If
End Sub

tşk ederim hocam deniyeceğim