Şarta bağlı listeleme

[oguzgok]

Slm Arkadaşlar..

Excel sayfamım A6 hücresinden itibaren isimler kayıtlı ve E6 hücresinden itibaren ise miktarlar...
Benim yapmak istediğim ise, E6 hücre değeri misal 5 ve 10 değerine sahipse bu satırla ilgili kaydın listeye tabi olmaması...ve diğerleri için de...
Bu nedenle aşağıdaki kodda ne gibi bir değişiklik yapabiliriz...

İlgi ve alakanıza şimdiden teşekkürlerimi sunuyorum..

Private Sub UserForm_Initialize()
Dim p As Single
For p = 6 To 2000
If Cells(p, 1).Value = "" Then
ComboBox1.ListIndex = 0
Exit Sub
Else
ComboBox1.AddItem (Cells(p, 1).Value)
End If
Next
ComboBox1.ListIndex = 0
End Sub

 

[hamitcan]

Umarım doğru anlamışımdır.

Private Sub UserForm_Initialize()
Dim p As Single
For p = 6 To 2000
If Cells(p, 1).Value = "" Then
ComboBox1.ListIndex = 0
Exit Sub
ElseIf Cells(p, 5) <> 5 And Cells(p, 5) <> 10 Then
ComboBox1.AddItem (Cells(p, 1).Value)
End If
Next
ComboBox1.ListIndex = 0
End Sub

 

[oguzgok]

Sn. Hamitcan.. Mesaj&#305;n&#305;z&#305; yeni alabildim...
&#214;ncelikle &#231;ok te&#351;ekk&#252;r ediyorum. Tam istedi&#287;im gibi.. Ancak ba&#351;ka bir sorunla kar&#351;&#305;la&#351;t&#305;m...

A&#351;a&#287;&#305;da kod ile combobox taki verilerin her de&#287;i&#351;iminde textbox1 ve textbox2 ye veri aktar&#305;lmakta.. Lakin yukar&#305;daki koda g&#246;re combobox &#351;arta ba&#287;l&#305; listeleme yap&#305;yor. Ancak o ki&#351;ilere ait bilgiler hala textbox a gelmekte...Bunu nas&#305;l engelleyebiliriz..

Ba&#351;ka bir ifadeyle; A10 h&#252;cresinde O&#287;uz ismi kay&#305;tl&#305; ve combobox ta bu kayd&#305; se&#231;ti&#287;imde textbox1 ve textbox2 ye B10 ve C10 daki verilerin aktar&#305;lmas&#305; gerekmekte. Ancak, &#351;arta ba&#287;l&#305; combobox listelemesi g&#246;z&#246;n&#252;ne al&#305;nmak kayd&#305; ile...

Bu nedenle a&#351;a&#287;&#305;daki kodda ne gibi bir de&#287;i&#351;iklik yapmal&#305;y&#305;z..

Private Sub ComboBox1_Change()
TextBox1.Value = Sheets("VER&#304;").Range("B" & ComboBox1.ListIndex + 6)
TextBox2.Value = Format(Sheets("VER&#304;").Range("C" & ComboBox1.ListIndex + 6), "#,##0.00 -YTL.")
TextBox3.SetFocus
End sub

Te&#351;ekk&#252;r ediyorum...

 

[hamitcan]

&#214;rnek bir dosya g&#246;nderir misiniz?