Combo ve spin button

[etobus]

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

 

[abdi]

Sayın etobus,
1. sorunuzla ilgili olarak sitede yayınlanmış bir kod öneriyorum

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=

 

[etobus]

Sayın etobus,
1. sorunuzla ilgili olarak sitede yayınlanmış bir kod öneriyorum

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?

 

[etobus]

2. soruya bir cozum fikri olan var mi acaba?

 

[etobus]

Arkadasla bu bana cok acil lazim yardim edecebilir misiniz?

 

[danersin]

Böyle bir deneyin.

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

 

[etobus]

Böyle bir deneyin.

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?

 

[danersin]

Tam anlamadım sama sanırım sayfanın güncellenmesini istediğiniz satırdan önce
DoEvents
kullanırsanız sorun çözülür.

 

[etobus]

Merhaba,

Kullaninca soyle bir hata olustu:

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

Acaba neden olabilir?