Hücredeki Değere Göre Veri Listeleme

[Bakigemlik]

Merhaba,

Ek dosyada B2 hücresinde isim seçtiğimde o isme ait Liste sayfasındaki plakaların sıralanmasını istiyorum,Hangi ismi seçersem o ismin karşısındaki plakalar gelmeli, dosyanın formatın da değişiklik yapılabilir,

Konu ile ilgili desteğinizi rica ederim,

Teşekkürler,

 

[turist]

Sayfa2 isimli sayfanızın sayfa koduna aşağıdaki kodları ekleyerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Address = "$B$2" <> Empty Then PlakaYaz
End Sub
Sub PlakaYaz()
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A6:A65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Sayfa2")
Set s2 = ThisWorkbook.Worksheets("liste")
For i = 2 To s2.Range("B65536").End(xlUp).Row
If s2.Cells(i, "A") = s1.Cells(2, 2) Then
sonsatır = s1.Range("A65536").End(xlUp).Row + 1
s1.Cells(sonsatır, 1) = s2.Cells(i, 2)
End If
Next i
End Sub

 

[Bakigemlik]

desteğiniz için öncelikle çok teşekkürler,

Kodları sayfama uyarladığımda nedense çalışmadı,

nerede hata yaptığımıda bulamadım yardımcı olabilirmisisniz,

Teşekkürler,

 

[turist]

If s2.Cells(i, "A") = s1.Cells(2, 2) Then

yazan satırı

If s2.Cells(i, "A") = s1.Cells([B][COLOR="Red"]1[/COLOR][/B], 2) Then

olarak değiştirin.

 

[Bakigemlik]

Çok teşekkür ederim sayın turist