Snasui Excel Forum

Code: Select all

 
Sub Matt()
Workbooks("ÃËÑÊMatt.xlsx").Worksheets("Sheet1").Range("A1:C1421").Copy

Sheets.Add
ActiveSheet.Name = "ÃËÑÊMatt"
Range("A1048576").End(xlUp).Select
Selection.PasteSpecial xlPasteValues

End Sub

Sub Check()

Dim rSH As Worksheet
Dim sSh As Worksheet
Set rSH = Worksheets("ÃËÑÊMatt")
Set sSh = Worksheets("data")

Dim ptype As String, Matt As String, result As String

Sheets("data").Select

Range("C1").Value = "Result"


For a = 2 To sSh.Range("A" & Rows.Count).End(xlUp).Row

        Matt = sSh.Range("A" & a).Value
        ptype = sSh.Range("B" & a).Value
        result = sSh.Range("C" & a).Value
        
        For b = 2 To rSH.Range("A" & Rows.Count).End(xlUp).Row
            If (rSH.Range("A" & b).Value = ptype And rSH.Range("B" & b).Value = Matt) Then
            sSh.Range("C" & a).Value = result
            Else
            sSh.Range("C" & a).Value = "False"
            
            Exit For
            
        End If
            
    Next b
Next a

Debug.Print "Completed"
            
End Sub

Sub Run()

Call Matt
Call Check

End Sub

Code: Select all

Sub Check()

    Dim rSH As Worksheet
    Dim sSh As Worksheet
    Dim f As Boolean
    Set rSH = Workbooks("รหัสMatt.xlsx").Worksheets("รหัสMatt")
    Set sSh = ThisWorkbook.Worksheets("data")
    
    Dim ptype As String, Matt As String, result As String
    
    Sheets("data").Select
    sSh.Activate
    Range("C1").Value = "Result"
    
    
    For a = 2 To sSh.Range("A" & Rows.Count).End(xlUp).Row
    
            Matt = sSh.Range("A" & a).Value
            ptype = sSh.Range("B" & a).Value
            result = sSh.Range("C" & a).Value
            
            For b = 2 To rSH.Range("A" & Rows.Count).End(xlUp).Row
                If (rSH.Range("A" & b).Value = ptype And rSH.Range("B" & b).Value = Matt) Then
    '                sSh.Range("C" & a).Value = result
                    f = True
                    Exit For
    '            Else
    '                sSh.Range("C" & a).Value = "False"
    '                Exit For
                
                End If
                
            Next b
            If f Then
                sSh.Range("c" & a).Value = True
            Else
                sSh.Range("c" & a).Value = False
            End If
    Next a
    
    Debug.Print "Completed"
            
End Sub