iki if yazma

[d_yuksel]

Private Sub UserForm_Initialize()
Dim X As Long, Satır As Long

Me.Caption = "BUGÜN ÖDEME SÖZÜ VERENLER"

For X = 2 To Range("E65536").End(3).Row
If Cells(X, 5) = Date Then
ListBox1.ColumnCount = 4
With ListBox1
.AddItem
.List(Satır, 1) = Format(Cells(X, 5), "dd.mm.yyyy")
.List(Satır, 2) = Cells(X, 2)
.List(Satır, 3) = Cells(X, 7)
.List(Satır, 0) = Cells(X, 1)
Satır = Satır + 1
End With
End If
Next
End Sub

üstadlar benim istediğim.. eğer G hücreinde YERİNDE YOK yazıyor ise de userformda görüntülensin. bunun komutunu yazar mısınız?

 

[meslan]

merhaba

If Cells(X, 5) = Date or cells(X,7).value="YERİNDE YOK" Then

 

[d_yuksel]

maalesef olmadı.. yardımcı olabilecek kimse var mı

 

[meslan]

Dosyanızı eklerseniz kesinlikle olur.

 

[d_yuksel]

dosya ekte teşekkürler..

 

[meslan]

Merhaba
Bak arkadaşım burada E kolonunun son satırına kadar döngü var.
Bir defa döngü yapıyor. ondan almıyor.

 For X = 2 To Range("[COLOR="Red"]A[/COLOR]65536").End(3).Row

Ddüzeltin işlem tamam.
Kolay gelsin.

 

[d_yuksel]

çok teşekkür ederim..