- Katılım
- 12 Ekim 2010
- Mesajlar
- 224
- Excel Vers. ve Dili
- 2013 türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2021
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
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