Textbox içinde arama

[frakaj]

User form içine yerleştirdiğim textbox ta bulunan veri içerisinide arama yapmak
ve bulduğum değeri değiştirmek istiyorum.

Yani istediğim bir değeri text box içinde bul değiştir yapmak istiyorum.

İlgilenen olursa sevinirim.
Teşekkürler.

 

[ECYavuz]

Örnek sunmadığınız için sadece kod örneği sunabilirim...
Alltaki kod Butona bastığınızda;TextBox1 e yazdığınızı A sütünunda arar,
bulamazsa ikaz verir. Bulursa da hangi hücrede olduğunu bildirir.

Private Sub CommandButton1_Click()
Dim FirstMatch As String, strVal As String, MyMsg As String
Dim MyData As Variant
If Len(TextBox1) >= 1 Then
Set MyData = Columns("A").Find(TextBox1)
If Not MyData Is Nothing Then
FirstMatch = MyData.Address
Do
strVal = strVal & MyData.Address(False, False) & vbCrLf
Set MyData = Columns("A").FindNext(MyData)
Loop While Not MyData Is Nothing And MyData.Address <> FirstMatch
End If
Else
MsgBox "Aranılacak değeri girin..."
Exit Sub
End If
If strVal = Empty Then strVal = "Bulunamadı...."
MyMsg = "Aranılan değer " & TextBox1 & " nın bulunduğu hücreler:" _
& vbCrLf & String(35, "*")
MsgBox MyMsg & vbCrLf & strVal
Set MyData = Nothing
End Sub

 

[frakaj]

Kısa bir süre içerisinde detaylı bir açıklama yaptığınız için
Çok teşekkür ederim.

 

[frakaj]

Verdiğiniz kodları inceledim. Kısmen işime yaradı.
Ama benim tam olarak istediğim;
userform üzerinde bulunan textbox1 in içindeki örneğin 200 harflik bir metnin
içerisinden benim istediğim harfleri bulması ve istediğim bir harf yada karakterle
değiştirmesi.
Örneğin textbox ta bulunan metnin içindeki bütün "İ" leri "i" olarak değiştirmek.
Yardımlarınız için şimdiden teşekkürler

 

[ECYavuz]

Aşağıdaki kod, TextBox'a girdiğiniz bilgiyi Sayfanızın A sütununa kopyaladığınızda; tüm girme işlemleri bittiğinde; Formunuza ekleyeceğiniz bir CommandButona tıklayınca A sütünundaki tüm verileri Baş harfi büyük diğer harfler küçük olarak değiştirmenize yarar...

Private Sub CommandButton1_Click()
For AA = 1 To Cells(65536, "A").End(xlUp).Row
deg = Replace(Replace(Replace(Replace(Replace(Replace(Cells(AA, "A").Value, "İ", "i"), _
'"Ç", "ç"), "Ö", "ö"), "Ü", "ü"), "Ş", "ş"), "Ğ", "Ğ")
Cells(AA, "A").Value = WorksheetFunction.Proper(deg)
Next AA
MsgBox "Küçük harfe çevrildi..!!"
End Sub

Bu kod ise; TextBox1 bir yazı girdiğinizde; bunu Sayfa1 deki ilk boş alana koplarken, yazım hatalarını düzeltir ve öyle kaydeder.... Daha sonra TextBox unuzda bilgiyi yazım hataları düzeltilmiş olarak görürsünüz...

Sub kayit()
On Error Resume Next
Sheets("Sayfa1").Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'Kayıt sırasında TextBox a girilen bilgiyi olduğu gibi alır...
ActiveCell.Offset(0, 0).Value = TextBox1.Text
'Kayıt sırasında, büyük harf-küçük harf uyumu kontrol edilerek kayıt yapılıyor.
ActiveCell.Offset(0, 0).Value = Evaluate("=PROPER(""" & TextBox1.Text & """)")
TextBox1.Text= ActiveCell.Offset(0, 0).Value
Range("a1").Select
End Sub

 

[frakaj]

Aşağıdaki kod, TextBox'a girdiğiniz bilgiyi Sayfanızın A sütununa kopyaladığınızda; tüm girme işlemleri bittiğinde; Formunuza ekleyeceğiniz bir CommandButona tıklayınca A sütünundaki tüm verileri Baş harfi büyük diğer harfler küçük olarak değiştirmenize yarar...

Bu kod ise; TextBox1 bir yazı girdiğinizde; bunu Sayfa1 deki ilk boş alana koplarken, yazım hatalarını düzeltir ve öyle kaydeder.... Daha sonra TextBox unuzda bilgiyi yazım hataları düzeltilmiş olarak görürsünüz...

İlgilendiğin için teşekkür ederim. Ama sanırım ben sorunumu tam olarak anlatamadım. Benim asıl yapmak istediğimi anlatabilmek için ufak bir örnek vereyim:
Textbox ın içine internetten aldığım bir metni yapıştırdım. Commanbutton a bastığımda metinde bulunan örneğin "Birleşmiş Milletler" yazısını "BM" olarak, "Avrupa Birliği" ni "AB" olarak ve "Türkiye Cumhuriyeti" ni "TC" olarak değiştirmek istiyorum.
Ben şuan bunu kısmen şu şekilde yapıyorum.
Textbox taki metni bir değişkene atıyorum.
daha sonra replace(değişken,"Avrupa Birliği","AB")=2.değişken komutuyla yapıyorum. Ama bu seferde değiştirilecek kelime sayısı arttıkça aşırı bir yavaşlama oluyor. Son olarak şunu da ekliyeyim, değiştirilecek kelimeleri başka bir excel dosyasından alıyorum.

Sanırım bir miktar sorunumu anlatabilmişimdir.
Eğer yardım edilebilecek durumdaysam lütfen yardım edin.
Teşekkürler.

 

[ECYavuz]

Say&#305;n Farakaj derdinizi &#231;ok iyi anl&#305;yorum... &#214;rnek bir dosya eklemedi&#287;iniz i&#231;in sadece genel anlamda yard&#305;mc&#305; olmaya &#231;al&#305;&#351;t&#305;m... &#199;&#252;nk&#252; hayali olarak istedi&#287;inizi tahayy&#252;l etmek durumunday&#305;z... Yard&#305;mc&#305; olmay&#305; tabiii ki &#231;ok isterim, burada bir arada bulunmam&#305;z&#305;n nedeni de bu de&#287;ilmi zayen. Ama bu konuda usta olan Uzmanlar&#305;m&#305;z da sizde bunu isteyeceklerdir.

(&#304;&#351; yerinden ayr&#305;lmak zorunday&#305;m ama evde tekrar sitedeyim...)

 

[frakaj]

Sayın Farakaj derdinizi çok iyi anlıyorum... Örnek bir dosya eklemediğiniz için sadece genel anlamda yardımcı olmaya çalıştım... Çünkü hayali olarak istediğinizi tahayyül etmek durumundayız... Yardımcı olmayı tabiii ki çok isterim, burada bir arada bulunmamızın nedeni de bu değilmi zayen. Ama bu konuda usta olan Uzmanlarımız da sizde bunu isteyeceklerdir.

(İş yerinden ayrılmak zorundayım ama evde tekrar sitedeyim...)

Yardımınız için teşekkürler.
Dosya ekliyemiyorum çünkü sorduklarım henüz yazıya dökemedim. Teori aşamasında. Neyse izninizle son bir kez ayrıntılı olarak anlatmak istiyorum.

Bir userform üzerinde textbox1 ve textbox2 birde commandbutton var.
CommanButton a bastığımda d:\data.mdb dosyasındaki data adlı tablonun
"bir" adlı sütununda bulunan değerleri textbox'ın içinde arayacak ve bulduklarını
aynı tablonun "iki" adlı sütunundaki karşılıkları ile değiştirecek.
Benim asıl yapmak istediğim bu.
Belki çok şey istemiş olabilirim. Ama gerçekten neredeyse rüyama girecek kadar
oldu. Son bir yardım eden olursa sevinirim.
Teşekkürler.