Combo ve spin button

Katılım
14 Nisan 2006
Mesajlar
71
Merhaba,

Combobox ile spin buttonu birbirine baglayarak birseyler yapmaya calisiyorum. Bir sayfadan suze tarzi islem yapmaya calisiyorum, secilen degerin satir numrasiyla geri donsun istiyorum. Ek'te bir dosya koydum bakabilirseniz sevinirim.

Tesekkurler
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
Katılım
14 Nisan 2006
Mesajlar
71
abdi' Alıntı:
Sayın etobus,
1. sorunuzla ilgili olarak sitede yayınlanmış bir kod öneriyorum
Kod:
Private Sub UserForm_Initialize() 
For X = 2 To Cells(65536, 1).End(xlUp).Row 
If WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, 1)) = 1 Then 
ComboBox1.AddItem Cells(X, 1).Value 
End If 
Next 
End Sub
ilgili link
http://www.excel.web.tr/viewtopic.php?t=15362&start=0&postdays=0&postorder=asc&highlight=
Cok tesekku ediyorum, Cok guzel calisiyor, Acaba ikinci soruyu nasil yapabilecegimi biliyor musun?
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
Böyle bir deneyin.

Kod:
Private Sub ComboBox1_Change()
Cells(1, 3) = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0)
aykactane = Application.WorksheetFunction.CountIf(Range("a1:a65000"), ComboBox1.Value)
SpinButton1.Min = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0)
SpinButton1.Max = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0) + Application.WorksheetFunction.CountIf(Range("a1:a65000"), ComboBox1.Value) - 1
End Sub
Private Sub SpinButton1_Change()
Cells(1, 3) = SpinButton1.Value
End Sub
 
Katılım
14 Nisan 2006
Mesajlar
71
danersin' Alıntı:
Böyle bir deneyin.

Kod:
Private Sub ComboBox1_Change()
Cells(1, 3) = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0)
aykactane = Application.WorksheetFunction.CountIf(Range("a1:a65000"), ComboBox1.Value)
SpinButton1.Min = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0)
SpinButton1.Max = Application.WorksheetFunction.Match(ComboBox1.Value, Range("a1:a65000"), 0) + Application.WorksheetFunction.CountIf(Range("a1:a65000"), ComboBox1.Value) - 1
End Sub
Private Sub SpinButton1_Change()
Cells(1, 3) = SpinButton1.Value
End Sub
Merhaba,

Kod cok guzel calisiyor inanimaz tesekkur ederim.

Fakat soyle bir sorun var. Hangi satirda oldugunu bir hucreye makro ile yazdiriyorum. Ve ardindan o satirdan Dolayli fonksiyonu ile o satirdai degerleri okuyorum fakat degerleri okuyamiyorum. Ne zaman ki userformu kapatiyorum o zaman degerler sayfada gozukuyor. Ne yapmaliyim?
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
Tam anlamadım sama sanırım sayfanın güncellenmesini istediğiniz satırdan önce
DoEvents
kullanırsanız sorun çözülür.
 
Katılım
14 Nisan 2006
Mesajlar
71
Merhaba,

Kullaninca soyle bir hata olustu:

WorksheetFunction Sınıfının Match ozelligi alinamiyor.

Acaba neden olabilir?
 
Üst