Mükerrer Filtreleme

[emrebjk1]

Merhabalar. Userformdan sayfa2 ye bir kod geliyor. Sayfa 1'de ise çok kalabalık bir liste var. Sayfa 1 içinde sayfa 2'ye gelen kodla aynı olan kayıtların tüm sütun değerlerinin atanmasını istiyorum. Makro kodlama için çok uğraştım ancak yapamadım. Örnek dosya ekte. Çok teşekkürler.

Programda kullandığım makro kodum aşağıda. Bu kod çalışmadı. Nedenini bulamadım.

ws1.Range("B2:Z200").ClearContents
ws1.Cells(1, 1).Value = Me.ComboBox2.Value
finalrow = ws.Range("A10000").End(xlUp).Row
For i = 2 To finalrow
If ws.Cells(i, 1).Value = ws1.Cells(1, 1).Value Then
Range(Cells(i, 2), Cells(i, 13)).Copy
ws1.Range("B200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
End If
Next i

 

[NBATMAN]

Merhaba,

ekteki dosyayı inceleyiniz...

 

[emrebjk1]

Teşekkürler ancak örnekte iki tane a15 var. Ben sayfa2 de a15 yazısı geldiğinde her ikisinin de verilerinin gelmesini istiyorum.

 

[NBATMAN]

Merhaba,

konuyu yanlış anladığımı fark ettim ve yeni bir dosya ile istediğinizi yaptım...

 

[emrebjk1]

çok teşekkürler. tam düşündüpüm gibi...

 

[NBATMAN]

Rica ederim. Kolay gelsin...