ıf(ıserror)

[haso_excel]

Merhaba arkadaşlar,

Sub vlookup_1() 'sheet den
On Error GoTo hata
For sut = 1 To WorksheetFunction.CountA(Range("c:c"))
'For sut = 1 To 3
Range("d" & sut) = WorksheetFunction.VLOOKUP(Range("c" & sut), Sheets("Sheet2").Range("a:b"), 2, 0)
Next
Exit Sub
hata:
MsgBox "c sütununda verisiz hücreyi doldurmalısınız."
End Sub

Koddada göreceğiniz üzere Sheet2 den Sheet1 in C kolonuna veri getirmeye çalışıyorum. Veri yoksa if(iserror) de olduğu gibi mesela "yok" yazdırmak için kodu nasıl düzeltmem gerekiyor.

 

[mustafaine1]

isblank komutu isinizi gormuyormu

 

[haso_excel]

Benim amacım değer yoksa "yok" yazması,sonuca gitmek için herşey mübahtır desem)

 

[haso_excel]

Sub bosluk()
For sut = 1 To WorksheetFunction.CountA(Range("A:A"))
If Cells(sut, 3) = 0 Then
Cells(sut, 3).Value = "yok"
End If
Next sut
End Sub

Yukarıdaki kod ile hallettim.