5 Koşula Göre Form No Bulma

[bendiler]

4 veya 5 Koşula Göre data sayfasından Form No Bulma ve bulunan Form no ya göre Rapor Bölümünde Sorgulama veya Aktarma Nasıl Yapabilirim
Gerekli Açıklamalar ekte mevcuttur.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub FORM_NO_SORGULA()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Y As Long
    
    Set S1 = Sheets("Kontrol")
    Set S2 = Sheets("Data")
    
    S1.Range("F4:G65536").ClearContents
    
    For X = 4 To S1.Range("A65536").End(3).Row
        For Y = 2 To S2.Range("A65536").End(3).Row
            If S1.Cells(X, 1) <> "" Then
                If S2.Cells(Y, "M") = S1.Cells(X, 1) Then
            End If
            If S1.Cells(X, 2) <> "" Then
                If S2.Cells(Y, "R") = S1.Cells(X, 2) Then
            End If
            If S1.Cells(X, 3) <> "" Then
                If S2.Cells(Y, "D") = S1.Cells(X, 3) Then
            End If
            If S1.Cells(X, 4) <> "" Then
                If S2.Cells(Y, "N") = S1.Cells(X, 4) Then
            End If
            If S1.Cells(X, 5) <> "" Then
                If S2.Cells(Y, "O") = S1.Cells(X, 5) Then
            End If
            
            S1.Cells(X, 6) = S2.Cells(Y, "B")
            GoTo Son
            
            End If: End If: End If: End If: End If
        Next
Son:
        If S1.Cells(X, 6) <> "" Then
            S1.Cells(X, 7) = "Mevcut"
        Else
            S1.Cells(X, 7) = "Bulunamadı"
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bendiler]

Teşekkürler
yanlız şöyle bir durum sözkonusu
A4, B4, C4, D4 ve E4 hücrelerinden hepsinin dolu olması durumunda sorun yok
bazen A4, B4, C4 ve D4 hücreleri dolu, E4 olmayabiliyor
yada A4, B4, C4 ve E4 hücreleri dolu, D4 olmayabiliyor
burumda A4, B4, C4 hücreleri sürekli olacak fakat D4 ve E4 lerden ikiside olabilir ve ya en az biri olacak böyle olması halinde sorgulama yapmıyor