bulma makrosu

[snskutlu]

Merhaba Arkadaşlar

Çalıştığım projeyle ilgili iki sorum var.

Proje, sütun boyunca üç bine yakın veri içeriyor(Benzersiz sayısal veriler. Barkod numarası gibi)

Soru1: Bu sütun boyunca textbox'a yazılı sayıyı aramak istiyorum. Aradığım veriyi en hızlı şekilde bulacak döngü şekli nedir?

Soru2: Textbox' a yazdığım sayının ilk 7 rakamını sütun boyunca yazılı 13 karakterli sayıların ilk 7 rakamıyla karşılaştırıp bulacak bir döngü yazmak istiyorum. Bu işlemi (For Each deger in Range.............) ile yapabiliyorum. Ancak Selection.Find yöntemi ile başaramadım. Yardımcı olabilir misiniz?

Her zaman her soruma cevap aldığım tüm excel.web.tr dostlarına teşekkür ederim. İyi çalışmalar.

 

[Emir Hüseyin Çoban]

. . .

Buldurmak sorun değilde...

Bulunca ne yaptıracağız.
O hücreyimi seçecek, hücredeki değerimi alacak vs.

. . .

 

[snskutlu]

Merhaba.
Bulduğumuzda, örneğin bulunan değerin hizasındaki diğer kayıtları bir listbox a aktarmak istiyorum. Teşekkür ederim. Hüseyin Çoban

 

[dEdE]

Merhaba,
1. sorunuz için aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.Goto Reference:=Range(Range("A:A").Find(TextBox1.Value, LookAt:=xlWhole).Address)
ListBox1.ColumnCount = 2
ListBox1.AddItem
ListBox1.Column(0, 0) = Cells(ActiveCell.Row, 2).Value
ListBox1.Column(1, 0) = Cells(ActiveCell.Row, 3).Value
'.................
End Sub

 

[Emir Hüseyin Çoban]

. . .

1 için

Private Sub TextBox1_Change()
On Error Resume Next
ListBox1.Clear
ListBox1.ColumnCount = 2
For i = 1 To [B65536].End(3).Row
If Cells(i, "B") Like TextBox1.Text Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Cells(i, "B")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "C")
End If
Next i
End Sub

. . .

 

[snskutlu]

Arkadaşlar cevaplarınız için teşekkürler. 2. soru için bir örnek yazabilir misiniz?