İf then sorunu

[enegen]

Selam Arkadaşlar
Sorunum aşağıdaki kodu çalıştıramıyorum
If (ActiveCell.Offset(0, 9))ActiveCell.Offset(0, 16)) = "" Then
UserForm1.TextBox42 = "5 yıl"
End If
9 ile 16 arasındaki hücreler boş ise 5 yıl yazsın.

 

[Recep İpek]

9 ile 16 arasındaki hücreleri bu şekilde kontrol edemezsiniz.Bunun yerine hücreleri tek tek kontrol edip eğer tümü boş ise işlem yaptırabilirsiniz.

Aşağıdaki kodları deneyiniz.

Dim kontrol As Boolean
kontrol=False
For i=9 To 16
If ActiveCell.Offset(0, i).value<>"" Then 
kontrol=True
Exit For
End If
Next i
If  kontrol=False Then UserForm1.TextBox42 = "5 yıl"
End If

 

[enegen]

sayın Recep bey
ActiveCell.Offset(0, i).value<>"" Then kontrol=True
satırında hata veriyor.

 

[Recep İpek]

sayın Recep bey
ActiveCell.Offset(0, i).value<>"" Then kontrol=True
satırında hata veriyor.

Yukarıdaki kodları düzelttim.

 

[enegen]

yardımınız için çok teşekkür ederim
Emeğinize sağlık

 

[enegen]

Arkadaşlar
aşağıdaki koda göre
Dim kontrol As Boolean
kontrol = False
For i = 9 To 16
If ActiveCell.Offset(0, i).Value <> "" Then
kontrol = False
Exit For
End If
Next i
If kontrol = False Then UserForm1.TextBox44 = "5"
If kontrol = True Then UserForm1.TextBox44 = "2"
hücrelerden hepsi dolu ise 2 yıl yazsın. 8 hücre var 7 si dolu olsa bile 5 yıl yazsın
lütfen yardım

 

[Recep İpek]

s = 0
For i = 9 To 16
If ActiveCell.Offset(0, i).Value<>"" Then 
s = s + 1
End If
Next i
If  s = 8 Then 
UserForm1.TextBox44 = "2 yıl"
Else
UserForm1.TextBox44 = "5 yıl"
End If

Bu kodları deneyiniz?