İKİ KOŞULA BAĞLI LİSTELEME

[meydanci1408]

ÝKÝ KOÞULA BAÐLI LÝSTELEME

Arkadaşlar iyi akşamlar,

Sayfa1 de datalarım,
Sayfa2 de Rapor sayfam var.

Sayfa2 de;
H5 sütununa yazacağım değeri Sayfa1 deki A sütununda arayacak, ve
K5 Sütununa yazacağım değeri de Sayfa1 deki B sütununda arayacak ve bu iki koşul yerine gelince,
Sayfa 1 deki C,D,E,F,G,H sütunlarındaki değerleri Sayfa2 deki H6 dan itibaren listelenmesini istiyorum,,

Yardım ederseniz sevinirim..

 

[agd]

merhaba,
örnek dosya eklermisiniz....

iyi akşamlar,,

 

[meydanci1408]

Ã?rnek Dosya gönderiyorum,,
İnşallah çözülür, çok uğraştım ama yapamadım,,
şimdiden teşekkürler..

 

[meydanci1408]

Sanırım Çözüme ulaşacak bir arkadaş çıkmadı,,,

 

[Levent Menteşoğlu]

Aşağıdaki kodu Bordro sayfasında bir butona bağlayarak çalıştırın. Tablolarınızda çok mecbur olmadıkça birleştirilmiş hücreler kullanmanızı hiç bir zaman önermem. Çünkü bu tip hücreler kod yazmayı zorlaştırmaktadır.

[vb:1:cd77426ef0]Sub formdoldur()
Application.ScreenUpdating = False
[b12:al26].ClearContents
Rows("12:26").MergeCells = False
Set s1 = Sheets("DATA")
For a = 2 To s1.[a65536].End(xlUp).Row
If s1.Cells(a, 1) = [h7].Value And s1.Cells(a, 5) = [ag6].Value Then
say = WorksheetFunction.CountA([b12:b26]) + 12
Rows(11).Copy
Rows(say).PasteSpecial Paste:=xlFormats
Cells(say, 2) = s1.Cells(a, 1).Value
Cells(say, 9) = s1.Cells(a, 8).Value
Cells(say, 13) = s1.Cells(a, 9).Value
Cells(say, 17) = s1.Cells(a, 11).Value
Cells(say, 21) = s1.Cells(a, 10).Value
Cells(say, 25) = s1.Cells(a, 6).Value
Cells(say, 29) = s1.Cells(a, 2).Value
Cells(say, 33) = s1.Cells(a, 3).Value
End If
Next
Application.CutCopyMode = False
[a1].Select
End Sub
[/vb:1:cd77426ef0]