SpinButton kodu çalışmıyor.

[ferhatgurbuz]

Arkadaşlar dosya boyutu büyük olduğu için örnek ekleyemedim.

Aşağıdıki kod ile form üzerinde sorgu çalıştırıp verileri çağırıyorum.

Private Sub CommandButton1_Click()
Sheets("Personel_Bilgi").Select
If TextBox1.Value = "" Then
MsgBox "Personel No'su Boş Olamaz..!", vbCritical
TextBox1.SetFocus
End If
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:Bw65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox2.Value = Cells(k.Row, "D").Value 'ADI
TextBox3.Value = Cells(k.Row, "E").Value 'SOYADI
TextBox4.Value = Cells(k.Row, "F").Value 'DERECE
TextBox5.Value = Cells(k.Row, "G").Value 'KADEME
TextBox6.Value = Cells(k.Row, "H").Value 'DERECE
Else
MsgBox "Aranan Veri Bulunamadı.!"
End If
TextBox1.SetFocus
End Sub



Aynı verileri SpinButton ile görmek istedim. Bu kodu denedim ama olmadı, Yani başka bir çalışma sayfasında vardı uyarlamaya çalıştım da olmadı,.




Private Sub SpinButton1_SpinUp()
Sheets("Personel_Bilgi").Select
If TextBox1.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If

sat = ActiveCell.Row
For s = (sat + 1) To Range("A65536").End(3).Row

Set bak = Range("b" & s & ":bw" & s).Find(TextBox1.Value, , xlValues, xlWhole)
If bak Is Nothing Then GoTo 5
Cells(s, "a").Select
GoTo 6
5
Next
6

TextBox2.Value = Cells(k.Row, "D").Value 'ADI
TextBox3.Value = Cells(k.Row, "E").Value 'SOYADI
TextBox4.Value = Cells(k.Row, "F").Value 'DERECE
TextBox5.Value = Cells(k.Row, "G").Value 'KADEME
TextBox6.Value = Cells(k.Row, "H").Value 'DERECE
End Sub



bu konuda yardımcı olurmusunuz.

 

[ECYavuz]

Sayın Ferhat;

SpinButton bildiğiniz gibi kayıtları ileri geri almak gibi bir işlemde kuulanılırsa anlamlı olur... Ben programlarımda örnek olarak;

Private Sub SpinButton1_Change()
On Error Resume Next
If SpinButton1.Value > Sonuç Then SpinButton1.Value = Sonuç - 1
If SpinButton1.Value < Ba&#351;lang&#305;&#231; Then SpinButton1.Value = Ba&#351;lang&#305;&#231;
Se&#231;im = SpinButton1.Value
ListBox1.ListIndex = Se&#231;im - 2
Call &#304;&#351;lemi_YapPresed&#252;r&#252;
End Sub

mant&#305;&#287;&#305;nda kullan&#305;yorum.. Ama sizin yapmak istedi&#287;iniz ile SpinButton kullan&#305;m&#305;n&#305;n ne yarar sa&#287;layaca&#287;&#305;n&#305; anlam&#305;&#351; de&#287;ilim...

 

[ferhatgurbuz]

Ya asl&#305;nda benim de amac&#305;m o yani ileri geri almak. Bir veri sayfas&#305;nda bir ka&#231; tane ahmet var &#246;rne&#287;in. Ben sorgu &#231;al&#305;&#351;t&#305;r ile arad&#305;&#287;&#305;m zaman bir tane ahmetin bilgileri geliyor. Bende Spin Button ile di&#287;er akhmetleri de g&#246;rmek istiyorum. Yanl&#305;&#351; anlatm&#305;&#351;&#305; olabilirim ama benim yapmak isted&#287;imde kay&#305;tlar&#305; ileri geri alarak di&#287;er isimleri yani ayn&#305; olan isimleri g&#246;rmek

 

[ECYavuz]

sat = ActiveCell.Row
For s = (sat + 1) To Range("A65536").End(3).Row

kan&#305;mca; SpinButton1.Value yu sat de&#287;erine e&#351;itlemeniz gerekiyor. &#231;&#252;nk&#252; spinbuttona her bast&#305;&#287;&#305;n&#305;zda say&#305; bir artar veya azal&#305;r, ve her change olay&#305;n&#305;dan sonra bu kontrol edilir. Yani spinbutton sizin arama sat&#305;r&#305;n&#305;z&#305;n say&#305;s&#305;n&#305; artt&#305;r&#305;p eksiltecek ve siz sonra o sat&#305;rdaki bilgiyi textbox de&#287;eri ile kar&#351;&#305;la&#351;t&#305;racaks&#305;n&#305;z.

 

[ferhatgurbuz]

ŞİFRELER 1 dir. Bilgi_Girişi adlı userform üzerine Kişisel_Bodro adlı userform üzerindeki SpinButtonun aynısını koymak istedim ama olmadı. Yani Bilgi girişi adlı userform üzerinde sorgu çalıştırdıktan sonra aynı isimleri kaydırmak istiyorum. Yardımcı olursanız çok sevinirim.

 

[ferhatgurbuz]

sat = ActiveCell.Row
For s = (sat + 1) To Range("A65536").End(3).Row

Set bak = Range("b11" & s & ":bw65536" & s).Find(TextBox1.Value, , xlValues, xlWhole)
If bak Is Nothing Then GoTo 5
Cells(s, "a").Select
GoTo 6
5
Next
6
TextBox2.Value = Cells(k.Row, "D").Value 'ADI

bu kodun a&#231;&#305;l&#305;m&#305;n&#305; yapabilir miyiz arkada&#351;lar.

 

[ferhatgurbuz]

Arkada&#351;lar biliyorum fazla oldum ama bir zahmet. Rica ediyorum. Bir bakabilirmisiniz.