VBA ile arama yapma sorunu

[HASAN48]

Arkadaşıma bir araç takip programı yazmaya çalıştım kayıt yapıyor ama sayfa 3 te bir buton koyarak bir hücreye yazılan plakayı data bölümünden bulup hepsini listelemesini istiyorum bunu beceremedim.Yardımlarınızı bekliyorum.Teşekkürler.

 

[temat1100]

Sayfa3 e bir buton koyarak aşağıdaki kodu atayabilirsiniz.

Sub sil()

Application.ScreenUpdating = False

Dim plaka As String
Dim sonsatir As Integer

plaka = Sheets("Sayfa3").Range("C5").Text

Sheets("Data").Select


sonsatir = Range("C60000").End(xlUp).Row

For i = 2 To sonsatir
sonsatir = Range("C60000").End(xlUp).Row

If Range("C" & i).Text = plaka Then
Range(i & ":" & i).Delete
End If

Next i




End Sub

 

[HASAN48]

üstad verdiğin kodu denedim ama olmadı ayrıca bir öndeki data sayfasındaki plakalarıda siliyor.

 

[temat1100]

Pardon yaaa listelemesini istiyorum dediğiniz yeri ben silmesini istiyorum olarak okumuşum
Revize edip göndereceğim.

 

[temat1100]

Tamamdır.

istediğiniz gibi hazır.

 

[HASAN48]

Sağolasın üstad çalıştı mükemmel oldu.Teşekkürler.