hücre dolu ise o satırı listboxta gösterme

[uguristanbul]

lütfen yardım
ekli dosyada soru butonuna basıldığında açılan formda listbox2(sıra listesi)nin
8(sayfada R kolonu) inci kolunu dolu ise o satırı listbox2(sıra listesi)de göstermesin (ama tabiki sayfada kayıtlı olacak)
saygılar
lütfen acil yardım

 

[uguristanbul]

neden cevap gelmiyor anlamıs degilim hic bir soruma cevap alamıyorum demekki sorun bende

 

[Orion1]

Dosyanız ektedir.

For i = 2 To Sheets("sıralama").Cells(65536, "K").End(xlUp).Row
    If Sheets("sıralama").Cells(i, "R").Value = "" Then
        ListBox2.AddItem
        For k = 0 To 8
            ListBox2.List(x, k) = Cells(i, k + 11).Value
        Next
        x = x + 1
    End If
Next

 

[uguristanbul]

sayın evren gizlen
emeğiniz için teskkur ancak ben soruyu eksik sormusun gercekten ozur
listbox 2 ye cift tıkladığınızda frame 5in enable true oluyor ve burdan combo 10 dan clickle veya list box 5 ten cift tıklayarak bilgiyi p sutununa aktarıyoruz r sutununa bilgi girmek icin ise
eğer p sutunu dolu ise liste2 ye cift tıkladığımızda frame 6 aktif hale gelip combo9dan clickle veya liste9 dan cift tıklayarak r sutununu dolduruyoruz
yapmıs olduğunuz kodlama cift tıklamaya izin vermiyor ( ListBox2.AddItem)da hata veriyor)
userform4(sıra ekranı formunun kodları aşagıdaki gibidir
Private Sub UserForm_open()

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox10_click()
TextBox8.Value = ComboBox10.Value
sonsat = ListBox2.ListIndex + 2
Cells(sonsat, 11) = TextBox3
Cells(sonsat, 12) = TextBox4
Cells(sonsat, 13) = TextBox5
Cells(sonsat, 14) = TextBox6
Cells(sonsat, 16) = TextBox8
Cells(sonsat, 17) = TextBox9
Cells(sonsat, 18) = TextBox10
If TextBox10.Value = "" Then
TextBox11.Value = ""
End If
If TextBox10.Value <> "" Then
TextBox11.Value = Format(Time, "hh.mm")
End If
Cells(sonsat, 19) = TextBox11
ListBox2.RowSource = "sıralama!k2:s" & [k65536].End(3).Row
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
UserForm_Initialize
End Sub

Private Sub ComboBox11_Change()
ComboBox11.RowSource = "sıralama!b2:b65536"
Set s1 = Sheets("sıralama")
sat = s1.Columns(2).Find(ComboBox11.Value).Row
TextBox12.Value = Date
TextBox13.Value = ComboBox11.Value
TextBox14.Value = s1.Cells(sat, 3).Value
TextBox15.Value = s1.Cells(sat, 4).Value
TextBox16.Value = Format(Time, "hh.mm")

Son = Sheets("sıralama").[j65536].End(3).Row
SiraNo = s1.[j65536].End(3).Row + 1
s1.Range("j" & SiraNo) = SiraNo - 1
Sheets("sıralama").Cells(Son + 1, 11) = TextBox12.Value
Sheets("sıralama").Cells(Son + 1, 12) = TextBox13.Value
Sheets("sıralama").Cells(Son + 1, 13) = TextBox14.Value
Sheets("sıralama").Cells(Son + 1, 14) = TextBox15.Value
Sheets("sıralama").Cells(Son + 1, 15) = TextBox16.Value
UserForm_Initialize
End Sub

Private Sub ComboBox5_Change()

End Sub

Private Sub ComboBox9_Change()
TextBox10.Value = ComboBox9.Value
TextBox2 = Format(Time, "hh.mm")
ComboBox10_click
Frame2.Visible = True
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Frame2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub Frame4_Click()

End Sub

Private Sub Frame6_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Frame5.Enabled = True
TextBox3 = ListBox2.List(ListBox2.ListIndex, 0)
TextBox4 = ListBox2.List(ListBox2.ListIndex, 1)
TextBox5 = ListBox2.List(ListBox2.ListIndex, 2)
TextBox6 = ListBox2.List(ListBox2.ListIndex, 3)
TextBox7 = ListBox2.List(ListBox2.ListIndex, 4)
TextBox8 = ListBox2.List(ListBox2.ListIndex, 5)
If TextBox8.Value = "" Then
Frame2.Visible = True
Frame5.Visible = True
Frame6.Visible = False
End If
If TextBox8.Value <> "" Then
Frame2.Visible = False
Frame6.Visible = True
End If
End Sub
Private Sub ListBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox10 = ListBox5.List(ListBox5.ListIndex, 0)
Frame2.Visible = True
UserForm_Initialize
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Frame2.Visible = True
ComboBox1 = ListBox1.List(ListBox1.ListIndex, 0)
ComboBox2 = ListBox1.List(ListBox1.ListIndex, 1)
ComboBox3 = ListBox1.List(ListBox1.ListIndex, 2)
Dim i As Long, SiraNo As Long, s1 As Worksheet
Set s1 = Sheets("sıralama")
SiraNo = s1.[j65536].End(3).Row + 1
s1.Range("j" & SiraNo) = SiraNo - 1
s1.Range("k" & SiraNo) = TextBox1.Value
s1.Range("l" & SiraNo) = ComboBox1.Value
s1.Range("m" & SiraNo) = ComboBox2.Value
s1.Range("n" & SiraNo) = ComboBox3.Value
s1.Range("o" & SiraNo) = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
UserForm_Initialize
End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub ListBox5_Click()

End Sub

Private Sub ListBox6_Click()

End Sub

Private Sub ListBox7_Click()

End Sub

Private Sub ListBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox9 = ListBox9.List(ListBox9.ListIndex, 0)
Frame2.Visible = True
UserForm_Initialize
End Sub

Private Sub TextBox11_Change()

End Sub

Private Sub TextBox12_Change()

End Sub

Private Sub TextBox13_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub UserForm_Click()

End Sub
Private Sub UserForm_Initialize()
Frame3.Visible = True
Frame4.Visible = True
Frame5.Visible = True
Frame5.Enabled = False
Frame6.Visible = False
TextBox1 = Format(Date, "dd.mm.yyyy")
TextBox12 = Format(Date, "dd.mm.yyyy")
TextBox1.Enabled = False
TextBox2 = Format(Time, "hh.mm")
TextBox7 = Format(Time, "hh.mm")
TextBox9 = Format(Time, "hh.mm")
TextBox16 = Format(Time, "hh.mm")
TextBox2.Enabled = False
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "50;30;50;90"
ListBox1.RowSource = "sıralama!b2:e" & [b65536].End(3).Row
ListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "60;50;30;50;30;70;30;65;30"
'ListBox2.RowSource = "sıralama!k2:S" & [k65536].End(3).Row
For i = 2 To Sheets("sıralama").Cells(65536, "K").End(xlUp).Row
If Sheets("sıralama").Cells(i, "R").Value = "" Then
ListBox2.AddItem
For k = 0 To 8
ListBox2.List(x, k) = Cells(i, k + 11).Value
Next
x = x + 1
End If
Next
ListBox5.ColumnCount = 1
ListBox5.ColumnWidths = "60"
ListBox5.RowSource = "sıralama!y2:y" & [y65536].End(3).Row
ListBox9.ColumnCount = 1
ListBox9.ColumnWidths = "60"
ListBox9.RowSource = "sıralama!x2:x" & [x65536].End(3).Row
ComboBox1.Value = "BARKOD"
ComboBox1.RowSource = "sıralama!b2:b65536"
ComboBox2.Value = "NO"
ComboBox2.RowSource = "sıralama!c2:c65536"
ComboBox3.Value = "PLAKA"
ComboBox3.RowSource = "sıralama!d2:d65536"
ComboBox4.Value = "2.MEVKİİ"
ComboBox4.RowSource = "sıralama!p265536"
ComboBox5.Value = "1.MEVKİİ"
ComboBox5.RowSource = "sıralama!p265536"
ComboBox6.Value = "3.MEVKİİ"
ComboBox6.RowSource = "sıralama!p265536"
ComboBox7.Value = "4.MEVKİİ"
ComboBox7.RowSource = "sıralama!p265536"
ComboBox8.Value = "5.MEVKİİ"
ComboBox8.RowSource = "sıralama!p265536"
ComboBox9.RowSource = "sıralama!x2:x65536"
ComboBox10.RowSource = "sıralama!Y2:Y65536"
ComboBox11.RowSource = "sıralama!b2:b65536"
End Sub

ilginize teskkur eder
ancak tam cözüm için tekrar bir çözüm üretmenizi rica ederim
teskkur ve saygılarımla