Elimde excel vbaile yazılmış bu kod var. 
"Sub Arama()

    Dim ROTA_GRANUL As Worksheet
    Dim ONCELIK As Worksheet
    Dim ArananDeger As Range
    Dim ArananDegerG As Range
    Dim EslesenDeger As Range
    Dim EslesenDegerG As Range
    Dim E2 As Range
    Dim KontrolHucre As Range
    Dim Granulsure1 As Variant
    
    Set ROTA_GRANUL = ThisWorkbook.Worksheets("ROTA_GRANUL")
    Set ONCELIK = ThisWorkbook.Worksheets("ONCELIK")
    Set E2 = ONCELIK.Range("E2")
    
    For Each ArananDeger In ONCELIK.Range(E2, E2.End(xlDown))
    
        Set EslesenDeger = ROTA_GRANUL.Range("E:E").Find(ArananDeger.Value)
        
        If Not EslesenDeger Is Nothing Then
        
            Set ArananDegerG = ONCELIK.Cells(ArananDeger.Row, "G")
            Set EslesenDegerG = ROTA_GRANUL.Range("1:1").Find(ArananDegerG.Value)
            
            If Not EslesenDegerG Is Nothing Then
            
                Set KontrolHucre = ROTA_GRANUL.Cells(EslesenDeger.Row, EslesenDegerG.Column)
                
                If Not IsEmpty(KontrolHucre) Then
                
                    Granulsure1 = KontrolHucre.Value ' Hücredeki değeri kaydedin
                    
                Else
                    MsgBox ArananDeger.Value & " ve ekipmanın süresi yok" ' Yeni mesajı göster
                End If
                
            Else
                MsgBox ArananDeger.Value & " ürününde böyle bir ekipman yok" ' 4 mesajının yerine geçen yeni mesajı göster
            End If
            
        Else
            Exit For ' If sorgusundan çıkmak için bu satırı kullanın
        End If
    MsgBox Granulsure1
    Next ArananDeger
    
End Sub"
Bu kodun devamına "ROTA_GRANUL" sayfası için yaptığı bütün bu işlemleri "ROTA_FBD"  sayfası için de yapacak şekilde ekler misin? Ve "ROTA_GRANUL" sayfasında kullanmak için "G" sütunundan alınan değer, "ROTA_FBD" de kullanılması için "H" sütunundan alınmalıdır.