"worksheetfunction sınıfının vlookup özelliği alınamıyor" hatası

[manisalı88]

Merhaba arkadaşlar. Aşağıda belirtiğim kodda Run-time error '1004' worksheetfunction sınıfının vlookup özelliği alınamıyor hatası alıyorum. neden olabilir acaba.

Sub HARFLI_NOTLAR()
    Set sT = ThisWorkbook.Worksheets("Transkript")
    Set sH = ThisWorkbook.Worksheets("Harf Notları")
    Set sM = ThisWorkbook.Worksheets("Müfredatlar")
  
    '1. dönem dersleri
    say10 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "1. Dönem")

        For aa = 1 To say10
            sT.Cells(aa + 6, 8) = Application.WorksheetFunction.VLookup(sT.Cells(aa + 6, 1), sH.Range("A:B"), 2, 0)
        Next aa
    
    '2. dönem dersleri
    say20 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "2. Dönem")
        
        For bb = 1 To say20
            sT.Cells(bb + 6, 18) = Application.WorksheetFunction.VLookup(sT.Cells(bb + 6, 11), sH.Range("A:B"), 2, 0)
        Next bb

    '3. dönem dersleri
    say30 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "3. Dönem")
        
        For cc = 1 To say30
            sT.Cells(cc + 21, 8) = Application.WorksheetFunction.VLookup(sT.Cells(cc + 21, 1), sH.Range("A:B"), 2, 0)
        Next cc

    '4. dönem dersleri
    say40 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "4. Dönem")
        
        For dd = 1 To say40
            sT.Cells(dd + 21, 18) = Application.WorksheetFunction.VLookup(sT.Cells(dd + 21, 11), sH.Range("A:B"), 2, 0)
        Next dd

End Sub

 

[tamer42]

Merhaba arkadaşlar. Aşağıda belirtiğim kodda Run-time error '1004' worksheetfunction sınıfının vlookup özelliği alınamıyor hatası alıyorum. neden olabilir acaba.

Sub HARFLI_NOTLAR()
    Set sT = ThisWorkbook.Worksheets("Transkript")
    Set sH = ThisWorkbook.Worksheets("Harf Notları")
    Set sM = ThisWorkbook.Worksheets("Müfredatlar")
 
    '1. dönem dersleri
    say10 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "1. Dönem")

        For aa = 1 To say10
            sT.Cells(aa + 6, 8) = Application.WorksheetFunction.VLookup(sT.Cells(aa + 6, 1), sH.Range("A:B"), 2, 0)
        Next aa
   
    '2. dönem dersleri
    say20 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "2. Dönem")
       
        For bb = 1 To say20
            sT.Cells(bb + 6, 18) = Application.WorksheetFunction.VLookup(sT.Cells(bb + 6, 11), sH.Range("A:B"), 2, 0)
        Next bb

    '3. dönem dersleri
    say30 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "3. Dönem")
       
        For cc = 1 To say30
            sT.Cells(cc + 21, 8) = Application.WorksheetFunction.VLookup(sT.Cells(cc + 21, 1), sH.Range("A:B"), 2, 0)
        Next cc

    '4. dönem dersleri
    say40 = WorksheetFunction.CountIf(sM.Range("A2:A1000"), sT.Range("AD14") & "-" & "4. Dönem")
       
        For dd = 1 To say40
            sT.Cells(dd + 21, 18) = Application.WorksheetFunction.VLookup(sT.Cells(dd + 21, 11), sH.Range("A:B"), 2, 0)
        Next dd

End Sub

Örnek bir dosya yüklerseniz daha çabuk cevap alırsınız...

 

[manisalı88]

Dosyayı ekte gönderdim. Koruma şifresi vardır. Şifre 123

 

[tamer42]

Dosyayı ekte gönderdim. Koruma şifresi vardır. Şifre 123

Kodunuzdaki;

Application.WorksheetFunction.VLookup

ifadelerini

Application.VLookup

olarak düzenlermisiniz,

 

[manisalı88]

Teşekkür ederim. sorun çözüldü.

 

[tamer42]

Teşekkür ederim. sorun çözüldü.

Rica ederim.