Koşullu Çağırma

[Tolgashan]

Arkadaşlar (....) koyduğum yere öyle bişey yazmalıyım ki (10) sütunundaki 1/4 leri listbox1 de göstermesin. Teşekkürler

Private Sub UserForm_Activate()
Dim trh, cins, i
Sheets("Sayfa1").Activate
ListBox1.Clear
For Each trh In Range("k2:k51")
' If trh = "" Then GoTo son
cins = trh.Offset(0, 1)
'On Error Resume Next
If Month(trh) = Month(Date) Or Month(trh) = Month(Date) + 1 Then
'If (trh) >= Date - 365 And (trh) <= Date - 335 Then
ListBox1.AddItem
ListBox1.Column(0, i - 1) = trh.Offset(0, -10)
ListBox1.Column(1, i - 1) = trh.Offset(0, -8) & " " & trh.Offset(0, -7)
ListBox1.Column(2, i - 1) = Format(trh, "dd.mm.yyyy")
ListBox1.Column(3, i - 1) = trh.Offset(0, -1) (.................................................................)
ListBox1.Column(4, i - 1) = trh.Offset(0, 7)

End If
Next
'son:
ListBox1.ColumnWidths = "25;110;65;30;10"
CommandButton8.Enabled = False
TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4.Text = Empty
TextBox5.Text = Empty

End Sub

 

[Tolgashan]

Yardımcı olabilecek biri yokmu arkadaşlar?

 

[Korhan Ayhan]

İlgili satırı aşağıdaki gibi değiştirip deneyiniz.

ListBox1.Column(3, i - 1) = IIf(trh.Offset(0, -1) = "1/4", "", trh.Offset(0, -1))

 

[Tolgashan]

Teşekkür ederim Korhan bey çalıştı formül lakin ben 1/4 derken; eğer 10 sütununda 1/4 varsa hiçbir hücreyi çağırmasın anlamında yazmıştım. kusura bakmayın eksik yazdım.

 

[Korhan Ayhan]

Bu durumda kodların başına bir IF koşulu eklemelisiniz.

ListBox1.Clear
If WorksheetFunction.Countif(Range("J:J"), "1/4") > 0 Then Exit Sub

 

[Tolgashan]

Teşekkür ederim Koray Bey