Boşsa koşul çalışsın

[haso_excel]

Merhaba arkadaşlar,

IF(ISBLANK(N2)=TRUE;"CEKI ALIMADI";"CEKI ALINDI") formulun kod halini aşağıdaki gibi yazmaya çalışıyorum fakat çalıştırdığımda olmazsa koşulu çalışıyor. Muhtemelen kullandığım fonksiyonda bir eksiklik var yardımcı olursanız sevinirim.

Sub kod()
For A = 2 To WorksheetFunction.CountA(Range("A:A"))
If Cells(A, 14).Value = " " Then
Cells(A, 18).Value = " CEKI ALINMADI "
ElseIf Cells(A, 14).Value <> " " Then
Cells(A, 18).Value = " CEKI ALINDI "
End If
Next A
End Sub

Amacım N kolonundaki hücreleri kontrol edip R kolonuna N kolonundaki boş hücreler için çeki alnmadı, dolular için alındıa yazacak

 

[haso_excel]

Sub hdhasan()

For a = 2 To WorksheetFunction.CountA(Range("A:A"))
If IsEmpty(i, 14).value = True Then
Cells(a, 18).Value = " NOT YET DUE "
End If
Next a

End Sub

Böylede olmadı nerde hata yapıyorum ?

 

[haso_excel]

Sub tah_kontrol()

For a = 2 To WorksheetFunction.CountA(Range("A:A"))
If IsEmpty(Cells(a, 14)) = True Then
Cells(a, 18).Value = "ÇEKİ ALINMADI"
ElseIf IsEmpty(Cells(a, 14)) = False Then
Cells(a, 18).Value = "ÇEKİ ALINDI"

End If
Next a

End Sub

hallettim arkadaşlar teşekkürler

 

[baydeniro]

Sayın haso_excel, emeğiniz ve paylaşım için çok teşekkürler. Bu da forumun güzelliklerinden birisi. Bazen kendi soruna kendin cevap buluyorsun. Bu forumun içinde olmak bile insanın vizyonunu genişletiyor.