veri süzme

[kardesmustafa]

veri doğrulama yapılan hücredeki değer ne ise diğer sayfadan aynı değere sahip olan verinin satırını süzmek istiyorum... ekte çalışmam mevcuttur...

şimdiden teşekkür ederim..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2]) Is Nothing Then Exit Sub
Set s2 = Sheets("FCT Console Bom")
On Error GoTo son
Set k = Range("I4:I65536").Find(Range("G2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "Bu Kayıt var." & vbLf & "Kayıt Yapılmadı..!!", vbCritical, "KAYIT"
    GoTo son
End If
Set j = s2.Range("B2:B65536").Find(Range("G2").Value, , xlValues, xlWhole)
If Not j Is Nothing Then
    sat = Cells(65536, "I").End(xlUp).Row + 1
    adr1 = Range(Cells(sat, "H"), Cells(sat, "Q")).Address
    adr2 = Range(Cells(j.Row, "A"), Cells(j.Row, "J")).Address
    Range(adr1).Value = s2.Range(adr2).Value
End If
son:
Set s2 = Nothing
Set k = Nothing
Set j = Nothing
End Sub

 

[kardesmustafa]

öncelikle yardımlarınız için teşekkür ederim ama malesef cevabımı tam olarak alamadım

yapmak istediğimi daha detaylı olarak ekte açıkladım..

 

[Ali]

Fonksiyonlar ile örnek bir dosya hazırladım.

Örnek ektedir.