Makro ile bul

[bilalakdeniz]

Tanımlanan kelime hesap kodunu. Fiş aktar kısmında karşısına yazmasını istiyorum. Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ARA_BUL_HESAP_KODUNU_YAZ()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, BUL As Range
 
    Set S1 = Sheets("TANIMLAMA")
    Set S2 = Sheets("FİŞ AKTAR")
 
    S2.Range("D2:D65536").ClearContents
 
    For X = 2 To S1.Range("A65536").End(3).Row
        Set BUL = S2.Range("G:G").Find(S1.Cells(X, "A"))
        If Not BUL Is Nothing Then
            BUL.Offset(0, -3) = S1.Cells(X, "B")
        End If
    Next
 
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bilalakdeniz]

Birden fazla kelimelerin, sadece birinci kelimenin hesap kodunu yazıyor.