combobox daki kritere göre hücreye git

Katılım
12 Ağustos 2005
Mesajlar
57
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu combobox6 ya kopyalayarak deneyin.

Kod:
private sub combobox6_click()
on error resume next
sat=[f1:f65536].find(combobox6).row
cells(sat,"a").select
end sub
 
Katılım
12 Ağustos 2005
Mesajlar
57
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
 
Üst