SpinButton veya iler geri butonları ile ilgili

[ferhatgurbuz]

SpinButton veya iler geri butonları ile ilgili

Dosya açıldığında Kişisel Bordro adıl Userformda TextBox44 te mahkeme adına göre arama yaptırıyorum. Örnek "İdare Mahkemesi" diye.Aranan veriyi buluyor.
İdare Mahkemesi diye data sayfasında 5 veya 6 tane daha veri var. Nasılki İlk bulunan İdare Mahkemesi verileri ekranda görünüyorsa ben diğerini de ileri geri veya sonraki gibi butonlarla görmek istiyorum.

 

[ferhatgurbuz]

yokmu yardım edecek bir arkadaş. Yardımlarınızı bekliyorum.

 

[ferhatgurbuz]

ya arkadaşla eğer olması mümkün değilse bari onu söyleyin

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[ferhatgurbuz]

Leventm çok teşekkür ederim. Kaç gündür bu soruya cevap bekliyordum. Sabah Sabah o kadar mutlu oldumki Allah sizden razı olsun.

 

[ferhatgurbuz]

çok az bir sorunum kaldı bana yardım edecek arkadaşlar arıyorum

 

[ferhatgurbuz]

Sayın Leventm sizden bir küçük ricam daha olacak Örnek dosyanızdaki Userform1 der bir option buton örneği var. Aynı şekilde Userform3 option buton koyarak mahkeme adına veya personel noya göre sorgulama yapmak istiyorum. Yani bv sütunu ile b sütünu arasında bir seçenek istiyorum.

 

[ferhatgurbuz]

arkadaşlar bu koınuyla ilgilenen yokmu

 

[ferhatgurbuz]

arkadaşlar örnek dosyayı neden açamıyorum bilen varmı. Birileri açmayı deneyebilir mi

 

[ferhatgurbuz]

aşağıdaki kodda "BV" sütununa göre arama yapıyoruz. sorum şu TextBox44 de herhangi bir değer girip isim, ad, no gibi bunu tüm data sayfasında aratmak mümkün mü.


Dim Txt() As New Class2
Dim sat
Dim satir(10000)
Private Sub CommandButton1_Click()
say = WorksheetFunction.CountIf([bv:bv], TextBox44)
For a = 1 To say
adr = "bv" & sat + 1 & ":bv65536"
sat = WorksheetFunction.Match(TextBox44, Range(adr), 0) + sat
satir(a) = sat
Next
SpinButton1.Max = say
SpinButton1_Change
End Sub
Private Sub SpinButton1_Change()
Sheets("Data").Select
If TextBox44.Value = "" Then
MsgBox ("Maliye No Giriniz"), vbCritical, ("Maliye No Bölümü Boş")
Exit Sub
End If
say = WorksheetFunction.CountIf([bv:bv], TextBox44)
If say > 0 Then
sat = satir(SpinButton1.Value)
TextBox1.Value = Cells(sat, "a").Value
TextBox2.Value = Cells(sat, "b").Value
TextBox3.Value = Cells(sat, "c").Value
TextBox4.Value = Cells(sat, "d").Value
TextBox5.Value = Cells(sat, "e").Value
TextBox6.Value = Cells(sat, "f").Value
TextBox7.Value = Cells(sat, "j").Value
TextBox8.Value = Cells(sat, "n").Value
TextBox9.Value = Cells(sat, "p").Value
TextBox10.Value = Cells(sat, "s").Value
TextBox11.Value = Cells(sat, "aw").Value
TextBox12.Value = Cells(sat, "av").Value
TextBox13.Value = Cells(sat, "au").Value
TextBox14.Value = Cells(sat, "Aa").Value
TextBox15.Value = Format(Cells(sat, "o").Value, "#,##0.00")
TextBox16.Value = Format(Cells(sat, "q").Value, "#,##0.00")
TextBox17.Value = Format(Cells(sat, "r").Value, "#,##0.00")
TextBox18.Value = Format(Cells(sat, "t").Value, "#,##0.00")
TextBox19.Value = Format(Cells(sat, "v").Value, "#,##0.00")
TextBox20.Value = Format(Cells(sat, "x").Value, "#,##0.00")
TextBox21.Value = Format(Cells(sat, "ak").Value, "#,##0.00")
TextBox22.Value = Format(Cells(sat, "z").Value, "#,##0.00")
TextBox23.Value = Format(Cells(sat, "ad").Value, "#,##0.00")
TextBox24.Value = Format(Cells(sat, "ab").Value, "#,##0.00")
TextBox25.Value = Format(Cells(sat, "Af").Value, "#,##0.00")
TextBox26.Value = Format(Cells(sat, "al").Value, "#,##0.00")
TextBox27.Value = Format(Cells(sat, "ag").Value, "#,##0.00")
TextBox28.Value = Format(Cells(sat, "bq").Value, "#,##0.00")
TextBox29.Value = Format(Cells(sat, "br").Value, "#,##0.00")
TextBox30.Value = Format(Cells(sat, "bu").Value, "#,##0.00")
TextBox31.Value = Format(Cells(sat, "ao").Value, "#,##0.00")
TextBox32.Value = Format(Cells(sat, "Ap").Value, "#,##0.00")
TextBox33.Value = Format(Cells(sat, "Am").Value, "#,##0.00")
TextBox34.Value = Format(Cells(sat, "Al").Value, "#,##0.00")
TextBox35.Value = Format(Cells(sat, "ba").Value, "#,##0.00")
TextBox36.Value = Format(Cells(sat, "az").Value, "#,##0.00")
TextBox37.Value = Format(Cells(sat, "bt").Value, "#,##0.00")
TextBox38.Value = Format(Cells(sat, "ar").Value, "#,##0.00")
TextBox39.Value = Format(Cells(sat, "bl").Value, "#,##0.00")
TextBox40.Value = Format(Cells(sat, "ay").Value, "#,##0.00")
TextBox41.Value = Format(Cells(sat, "bs").Value, "#,##0.00")
TextBox45.Value = Cells(sat, "g").Value
TextBox43 = Format((CDbl(TextBox46) - CDbl(TextBox42)), "#,##0.00")
Else
MsgBox "Aranan Veri Bulunamadı !", vbExclamation
TextBox44.SetFocus
End If
End Sub

Private Sub CommandButton2_Click()
For X = 1 To 46
Controls("TextBox" & X) = ""
Next
TextBox44.SetFocus
End Sub
Private Sub CommandButton3_Click()
Sheets("Kisisel").Select
[e12] = TextBox1.Value
[e13] = TextBox2.Value
[e14] = TextBox3.Value
[e15] = TextBox4.Value
[e16] = TextBox5.Value
[e17] = TextBox6.Value
[e18] = TextBox7.Value
[e19] = TextBox8.Value
[e20] = TextBox9.Value
[e21] = TextBox10.Value
[e22] = TextBox14.Value
[e23] = TextBox11.Value
[e24] = TextBox12.Value
[e25] = TextBox13.Value
[ı9] = TextBox15.Value
[ı10] = TextBox16.Value
[ı11] = TextBox17.Value
[ı12] = TextBox18.Value
[ı13] = TextBox19.Value
[ı14] = TextBox20.Value
[ı15] = TextBox21.Value
[ı16] = TextBox22.Value
[ı17] = TextBox23.Value
[ı18] = TextBox24.Value
[ı19] = TextBox25.Value
[ı20] = TextBox26.Value
[ı21] = TextBox27.Value
[ı22] = TextBox29.Value
[ı23] = TextBox29.Value
[ı24] = TextBox30.Value
[ı28] = TextBox46.Value
[m9] = TextBox31.Value
[m10] = TextBox32.Value
[m11] = TextBox33.Value
[m12] = TextBox34.Value
[M13] = TextBox35.Value
[m14] = TextBox36.Value
[m15] = TextBox37.Value
[m16] = TextBox38.Value
[m17] = TextBox39.Value
[m18] = TextBox40.Value
[m19] = TextBox41.Value
[m26] = TextBox42.Value
[m28] = TextBox43.Value
ActiveWindow.SelectedSheets.PrintOut
End Sub
Private Sub CommandButton4_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
ReDim Preserve Txt(45)
For X = 15 To 41
Set Txt(X).Txt = Controls("TextBox" & X)
Next
TextBox44 = "İDARE MAHKEMESİ"
End Sub
Private Sub OptionButton1_Click()
Sheets("Kisisel").Select
If OptionButton1 Then [c32] = "Adı geçenin maaşında herhangi bir haciz kesnitisi yoktur."
If OptionButton1 Then [k34] = "Arife ÖZBİLEN"
If OptionButton1 Then [k35] = "İdari İşler Müdürü"
End Sub
Private Sub OptionButton2_Click()
Sheets("Kisisel").Select
If OptionButton2 Then [c32] = ""
If OptionButton2 Then [k34] = ""
If OptionButton2 Then [k35] = ""
End Sub