listeleme

[mustafanuri83]

merhaba arkadaşlar
excelde 3 adet sayfa açtım ve 2 sayfada birbirine benzer isimler yazdım.seçtiğim bir ismi 1.ve 2. sayfada arayıp 3.sayfaya listelemesini istiyorum ve hangi sayfada olduğunu.bunu nasıl yapabilirim? yardımcı olabilir misiniz?

 

[turist]

Örnek excel dosyanızı ekleyiniz.

 

[mustafanuri83]

örnek dosya gönderdim arkadaşlar....

 

[Orion1]

Dosyanız ektedir.

Sub listeleme59()
Dim sh1 As Worksheet, sh2 As Worksheet, j As Long
Dim sat1 As Long, sat2 As Long, i As Byte, isim As String, soyisim As String
Sheets("Sayfa3").Select
Range("A4:C" & Rows.Count).ClearContents
isim = UCase(Replace(Replace(Range("B1").Value, "ı", "I"), "i", "İ"))
soyisim = UCase(Replace(Replace(Range("B2").Value, "ı", "I"), "i", "İ"))
If isim = "" Then
    MsgBox "İsim  girilmediği için işlem iptal oldu!!", vbCritical, "U Y A R I"
    Range("B1").Select
    Exit Sub
End If
If soyisim = "" Then
    MsgBox "Soyİsim  girilmediği için işlem iptal oldu!!", vbCritical, "U Y A R I"
    Range("B2").Select
    Exit Sub
End If

Application.ScreenUpdating = False
sat2 = 4
For i = 1 To 2
    Set sh1 = Sheets(i)
    sat1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    If sat1 < 3 Then GoTo atla
    For j = 3 To sat1
        If UCase(Replace(Replace(sh1.Cells(j, "A").Value, "ı", "I"), "i", "İ")) = isim And _
        UCase(Replace(Replace(sh1.Cells(j, "B").Value, "ı", "I"), "i", "İ")) = soyisim Then
            Cells(sat2, "A").Value = sh1.Cells(j, "A").Value
            Cells(sat2, "B").Value = sh1.Cells(j, "B").Value
            Cells(sat2, "C").Value = sh1.Name
            sat2 = sat2 + 1
        End If
    Next j
atla:
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mustafanuri83]

bu aramayı macro değilde ,formüllerle yapmam mümkün mü?

 

[sakman26]

selam,
formüllerle çözümlenmeye çalışılmış örnek ektedir..İnceleyiniz...
kolay gelsin..