- Katılım
- 14 Nisan 2011
- Mesajlar
- 64
- Excel Vers. ve Dili
- MİCROSOFT 2016
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.
Kod:
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