combobox daki kritere göre hücreye git

[okyanus]

herkeze selamlar

aradım ama bulamadım ve hevesim kırılmaya başladı
sorunum
a/b/c/d/e/f sutunlarımda satırlar dolusu veriler var
combobox6 ya f stununda yazan kodlardan biri düştüğünde
bu kriterin bulunduğu satırda ( a,x ) hücresi aktif olsun

 

[Levent Menteşoğlu]

Aşağıdaki kodu combobox6 ya kopyalayarak deneyin.

private sub combobox6_click()
on error resume next
sat=[f1:f65536].find(combobox6).row
cells(sat,"a").select
end sub

 

[okyanus]

teşekürler syn leventm

ilk denemelerimde sorun yok
çalışıyor
ama yinede bir göz atın isterseniz
yerleşimde hatam varmı


Private Sub combobox6_click()

Son = [A65536].End(xlUp).Row - 1
If ComboBox6.ListCount <> Son Then Exit Sub
sat = ComboBox6.ListIndex + 2
ComboBox1 = Cells(sat, 1).Value
ComboBox2 = Cells(sat, 2).Value
ComboBox3 = Cells(sat, 3).Value
ComboBox4 = Cells(sat, 4).Value
ComboBox5 = Cells(sat, 5).Value
ComboBox6 = Cells(sat, 6).Value
ComboBox7 = Cells(sat, 7).Value
ComboBox8 = Cells(sat, 8).Value
ComboBox9 = Cells(sat, 9).Value
ComboBox10 = Cells(sat, 10).Value
ComboBox11 = Cells(sat, 11).Value
ComboBox12 = Cells(sat, 12).Value
ComboBox13 = Cells(sat, 13).Value
ComboBox14 = Cells(sat, 14).Value
ComboBox15 = Cells(sat, 15).Value
ComboBox16 = Cells(sat, 20).Value
On Error Resume Next
sat = [f1:f65536].Find(ComboBox6).Row
Cells(sat, "a").Select
CommandButton1.SetFocus
End Sub