Aynı Kayıtlardan İkincisini Bulma Promlemi

[hamzacan]

Aynı Kayıtlardan Ýkincisini Bulma Promlemi

Arkadaşlar veri tabanımdaki kayıtları

Dim plaka As Range
For Each plaka In Range("f1:f" & WorksheetFunction.CountA(Range("f1:f1500")))
If StrConv(plaka.Value, vbUpperCase) = StrConv(Txtplaka.Value, vbUpperCase) Then
If plaka <> Txtplaka Then
GoTo soralim
End If

şeklinde aratıyorum.Bu şekilde her seferinde 1. kayıta gidiyor.İkinci kayıta gitmek için bayağı uğraştım ama sonuç nafile.

 

[hamzacan]

Arkadaşlar BUL butonunun yanına DİÐER diye bir command buton daha atadım.Bul butonu arattığım kaydın ilkini buluyor.Bunda sorun yok.
DİÐER butonuna da sira numarası ile aynı olan satırdan sonrasını aratmak istiyorum ama başaramadım...

For Each plaka In Range("f & txtsira :f" &_ worksheetFunction.CountA_(Range"f1:f1500")))
If StrConv(plaka.Value, vbUpperCase) = StrConv_(Txtplaka.Value,erCase) Then


Yardımcı olabilir misiniz?

 

[Tarkan VURAL]

Ne gibi birşey istediğinizi tam anlayamadım ama anladığım bu ise;

Private sub deneme()
Dim plaka As Range
txtplaka.value=ucase(txtplaka.value)
For Each plaka In worksheets("sayfa1").Range("f1:f1500")
If plaka.Value = Txtplaka.Value Then
...... (işlemleriniz)
else
GoTo soralim
End If
next
soralim:
...... (işlemleriniz)
End sub


olabilir mi ?

 

[hamzacan]

Sayın Tarkan VURAL,

Teşekkür ederim.Problemimi tam anlatamadım.

Yazdığım kodta Aradığım veriyi bulabiliyorum ama;
örnek : veritabanında iki tane "hamzacan" varsa bunlardan 1.sini buluyor.2. sini buldurabilmek için bayağı uğraştım ama başaramadım.Umarım bu sefer anlatabildim...

 

[agd]

merhaba,

örnek dosya ekleyebilirmisiniz...

iyi çalışmalar

 

[guraycakir]

Sn Hamzacan
örnek kod Excel in makro kaydet yoluyla oluşturuldu. B1 hücresindeki değeri
Buluyor.Ben Verileri A sutununda sıralamıştım.


Sub Makro1()
'
' Makro1 Makro
' Makro Güray Çakır tarafından 20.08.2005 tarihinde kaydedildi.
'

'
Cells.Find(What:=Range("B1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
'Cells.FindNext(After:=ActiveCell).Activate
'Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:=Range("B1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate


End Sub

 

[guraycakir]

Sn Hamzacan Ekli Dosya bir bakın isterseniz

 

[hamzacan]

quraycakir teşekkür ederim...Deneme fırsatım olmadı ama aradığım buydu sanırım saol...