Arama (Find) Makrosu Hakkında ?

[stirra_ej]

Aşağıda yazılı olan arama makro kodunda KODLAR Adlı hücre aralıklarında arama yaptığımda alt alta benzer değerler olan hücrede en altında olan veya en üste olan değerin bir altında ki benzer değeri buluyor.. Kodlar adı altındaki hücre aralığında aradığım değer hücrenin en başında olanı bulmasını istiyorum

Ne gibi bir değişiklik yapabilirim. Yardımcı olurmusunuz...

Private Sub arasofor()
Dim Sof As Range
Dim Sof2 As Range
If TextPlakasi.Value = "" Then Exit Sub
Set Sof = Range("KODLAR3").Find(TextPlakasi.Value, , xlValues, xlWhole)
If Not Sof Is Nothing Then
Sof.Select
Sof.Value = TextPlakasi.Value
TexSoforAdi.Value = Sof.Offset(0, 1).Value



Else
Hata = ("Plakaya ait arama kaydı bulunamadı..!!")
MsgBox Hata, 48

End If
End Sub

 

[Orion1]

bununla ilgili örnek dosya yollarsanız ,daha çabuk ve doğru yanıt alabilirsiniz.

 

[stirra_ej]

https://www.dosyayukle.biz/36d

Ana Sayfada karşınıza çıkan ilk pencerede sağ alt köşede araç bilgileri var,, Oraya 2 tane aynı plakaya ait şoförleri farklı araç bilgisi ekleyin ve güncelle butonuna basın.
Ardından aynı yere plaka adı girerek ara butonuna basın kayıtlardan birini buluyor
Başka araya bastığınızda ise diğer kayıtı bulmuyor. Çünkü bir alt hücrede başka arama yapıyor..
Ara seçeneği kullandığımızda ilk üst hücredekini bulmuş olsa başka ara çalışmış olacak ama ara butonuda kayıt edileni en üst hücrede aramayıp bir altındakini seçiyor..

 

[Orion1]

hangi sayfada işlem yapıyor.Ve activehücreyi neden select yaptınız?

 

[stirra_ej]

Tüm işlemler o sayfada oluyor

ekleme işlemi yaptıktan sonra
arama işlemi yapıyoruz
o sayfada belirli bir hücre aralığına KODLAR3 adını verdim
ekleme işlemini o hücre aralığına yapıyor

sonra plaka bilgisi girip ara dediğimizde
KODLAR 3 HÜCRE ARALIĞINI ARIYOR VE
hücrenin ilk başındaki kaydı bulmayıp
bir altındakini buluyor
neden ilk baştakini bulmuyor onu anlamadım
Select bulduğu hücreyi seçip ekleme yaptığımız text boxu dolduruyor işte

 

[stirra_ej]

For Each lı bir şey olması lazım buraya diye düşünüyorum ama ne dersiniz..

 

[Orion1]

Aktif hücrenin 2 satır altını ve 1 sütun ötesini arıyor.sadece 1 hücreye bakıyor

Private Sub plakabaska_Click()

Set t = ActiveCell(2, 1).Find(TextPlakasi.Value, , xlValues, xlWhole)

 

[stirra_ej]

Abi vakit ayırdığın için çok teşekkür ederim. Ama sorunu çözdüğümü sanıyorum, Bir kod düzenlemesi ile tam oalrak istediğim şeyi yaptım.
Çok Çok teşekkür ederim vakit ayırdığın için.

Dim Sof As Range
If TextPlakasi.Value = Empty Then Exit Sub
For Each Sof In Range("KODLAR3")
Sof.Select
Sof.Value = TextPlakasi.Value
TexSoforAdi.Value = Sof.Offset(0, 1).Value

Set Sof = Nothing
Exit Sub

Next Sof

 

[stirra_ej]

Olduğunu sandım ama olmadı hocam

 

[stirra_ej]

Arama yaparken yan bilgileri Ofset değerlerini doldurmuyor Sizin öneriniz ne olacaktı acaba