Arama makrosuyla ilgili

[gkhnaktas]

Forumdaki diğer başlıklardan örnekleyerek işime çok yarayacak bir arama makrosu yapmaya çalıştım. ekteki dosyada gönderdim fakat biraz eksikleri var.
Açıklamaları dosya üzerine yazdım.
Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
[B][COLOR="Red"]Range("B1").Value = Selection.Address[/COLOR][/B]
ara = [B][COLOR="Red"]CDbl[/COLOR][/B](TextBox1.Value)
[B][COLOR="red"]If ActiveCell.Column > 1 Then
    MsgBox "Sadece a sütununda arama yapabilirsiniz.Aktif hücre a sütununda olmalı..!", vbCritical, "UYARI"
    Exit Sub
End If
Set bul = Range("a1:a65536").Find(ara, ActiveCell, xlValues, xlWhole, , xlNext)[/COLOR][/B]
On Error GoTo 10
If bul = ara Then
sat = bul.Row
sut = Cells(sat, 256).End(1).Column
Rows(sat).Select
End If
Exit Sub
10
MsgBox "Bulunamadı"
End Sub

 

[gkhnaktas]

Evren Bey çok teşekkürler yanıt için. Fakat sanırım bir yeri hatalı anlatmışım.
Demek istediğim aramayı bitirip formu kapatırken KAPAT tuşuna bastığımda,
Makroyu çalıştırmadan hemen önce aktif durumda olan hücrenin tekrar aktif olmasını istiyorum.
Örneğin Ben 1500 üncü satırda çalışırken arama tuşu beni 2. satıra götürecek ve kapattığımda tekrar 1500. satıra döneceğim.

 

[Orion1]

Evren Bey çok teşekkürler yanıt için. Fakat sanırım bir yeri hatalı anlatmışım.
Demek istediğim aramayı bitirip formu kapatırken KAPAT tuşuna bastığımda,
Makroyu çalıştırmadan hemen önce aktif durumda olan hücrenin tekrar aktif olmasını istiyorum.
Örneğin Ben 1500 üncü satırda çalışırken arama tuşu beni 2. satıra götürecek ve kapattığımda tekrar 1500. satıra döneceğim.

Dosyayı güncelledim 2nci mesajdan indirebilirsiniz.

 

[erzen]

Aynı işlemi userform üzerinden nasıl yapabiliriz. Yani userform üzerinde değeri giriyoruz ara butonuna basıyoruz veriler geliyor. tekrar ara butonuna bastığımızda arama yaptırdığım değerle aynı başka kayıt varsa onu getirsin bu böyle devam etsin. Örnek dosya ekte.

 

[Orion1]

Aynı işlemi userform üzerinden nasıl yapabiliriz. Yani userform üzerinde değeri giriyoruz ara butonuna basıyoruz veriler geliyor. tekrar ara butonuna bastığımızda arama yaptırdığım değerle aynı başka kayıt varsa onu getirsin bu böyle devam etsin. Örnek dosya ekte.

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k As Range
Set k = Range("A1:A65536").Find(TextBox1.Text, ActiveCell, xlValues, xlWhole, , xlNext)
If k Is Nothing Then
    MsgBox "[ " & TextBox1.Text & " ] Nolu Kayıt bulunuamamıştır..!!", vbCritical, "YOK"
    Exit Sub
End If
k.Select
TextBox2.Text = ActiveCell.Offset(0, 1).Value
TextBox3.Text = ActiveCell.Offset(0, 2).Value
TextBox4.Text = ActiveCell.Offset(0, 3).Value
TextBox5.Text = ActiveCell.Offset(0, 4).Value

End Sub