Aşağıdaki kod üzerinde bir sorun var

[ferhatgurbuz]

Aşağıdaki kod üzerinde ekleme yapmak istiyorum

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

 

[ferhatgurbuz]

iki tane option button koyup Bv sütunu ile b sütunu arasında arama yaptırmak istiyorum. Yani 1. option button işaretli iken bv sütununu 2.option button işaretli iken yalnızca b sütünunu yada şuandaki bv sutununu iptal edip tüm belgeyi aratmak istiyorum