Tüm belgede arama yaptırmak

[ferhatgurbuz]

ekteki dosyada Userform üzerinde bulunan kod BV sütununda arama yaptırmak için düzenlenmiş.ben bunu tüm belge için uyarlamak 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
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

 

[Skorpiyon]

Sayın ferhatgurbuz,

Azminize hayran kaldım, aynı soruyu (yanlış görmedi isem) 3 değişik başlık altında sormuşsunuz.

Aklıma sonradan gelen bir yol ile dosyanızın istediğiniz şekildeki hali ektedir. Yalnız sizin tamamlamanız gereken kodlar var. O kadarını da size bıraktım artık. (Activecell.Offset komutu ile textboxların hangi hücrelerden değer alacağını göstereceksiniz. 10 kadarını ben yaptım, gerisini size bıraktım.Aynı yöntem ile rahatlıkla tamamlayabilirsiniz.)

Sorgu Çalıştır ve Spin Button altındaki kodlarda tamamlamanız gereken yerler var. Sorgu bölümündeki Textbox44'e Excel sayfanızdaki hangi bilgiyi girerseniz girin, bilgiler forma yerleşmekte.

Saygılarımla.

 

[ferhatgurbuz]

Teşekkür ederim. Sayın Sertkaya aynı şekilde bende size samimi bir şekilde benimle veya başkalarıyla bukadar ilgilendiğiniz için tebrik ederim. Aslında konunu özeti şu. Ben exceli kendi başıma öğrendim. Bu formu tanıdıktan yani sizlerle tanıştıktan sonra çok seyi sizlere sorarak öğrenmeye başladım. Benim çalışmamın belli aşamasında sizin dün verdiğiniz şekilde arama yapılabiliyordu. Ancak Sayın Leventm arkadaşımız form üzerine SpinButton ekledi ondan sonra işler karıştı.Ben her ikisindende vazgemiyorum. Dün Leventm arkadaşımıza mesaj yazmıştım. O da bana yeni bir başlık altında yeniden forma göndermemi iştedi. O yüzden başlıklar çoğaldı. Kusura bakmayın.