sayıları aramak ve o satırı baska bir yere yazmak

[kayra75]

merhaba,
Aranacak numaralar sorgu kriterleri ekranında bulunmakta. Bu numaraları ana tablo sheetinde J kolonunda bulacak ve bulduğu satırdaki bütün bilgileri sonuc sayfasında alt alta sıralayacak bir sorguyu nasıl yapabilirim.
Teşekkürler.

 

[Ömer]

Merhaba,

Makroyla mı yoksa formülle mi yapmak istiyorsunuz.

Ayrıca sonuç sayfasına olmasını istediğiniz değerlerden birkaç tanesini manuel yazarak bu sayfanın şablonunu oluşturarak eklerseniz dosyayı inceleyenler konuyu daha hızlı anlayacaktır..

.

 

[kayra75]

Merhaba öMER,

mAKRO İLE YAPMAYI TERCİH EDERİM..

 

[Ömer]

Mesajın devamında açıklama yazmıştım. Şablon oluşturarak yeni bir dosya eklermisiniz..

.

 

[kayra75]

Merhaba
ornek sablon ekte yer alıyor. cok tesekkür ederim simdiden

 

[Ömer]

Module kopyalarak çalıştırınız..

Sub BulAktar()
 
Dim c As Range, sat As Long, ilkadres As Variant
Dim Sc As Worksheet, Sa As Worksheet, i As Long
 
Set Sc = Sheets("sorgu kriterleri")
Set Sa = Sheets("ana tablo")
 
Application.ScreenUpdating = False
Sheets("sonuc").Select
Range("A2:O" & Rows.Count).ClearContents
 
sat = 2
For i = 2 To Sc.Cells(Rows.Count, "A").End(xlUp).Row
    With Sa.[J:J]
        Set c = .Find(Sc.Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                Sa.Range("A" & c.Row & ":O" & c.Row).Copy Range("A" & sat)
                sat = sat + 1
 
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
Next i
 
Application.ScreenUpdating = True
End Sub

.

 

[kayra75]

cok tesekkür ederimm.. ellerinize sağlık