Bul Makrosu

[ferhat028]

Arkadaşlar ek te gönderdiğim dosyayı açarsanız sorunumu dosyaya yazdım acil yardımlarınıza ihtiyacım var yardımcı olursanız sevinirim.şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim SA, SU As Worksheet
Dim SUT, S As Integer
Set SA = Sheets("ANA SAYFA")
Set SU = Sheets("UYARI")
SU.[A2:L1000].ClearContents
For SUT = 2 To SA.Cells(65536, "K").End(3).Row
If SU.[N2] = SA.Cells(SUT, "K").Value Then
Range(SA.Cells(SUT, "A"), SA.Cells(SUT, "L")).Copy
S = S + 1
SU.Cells(S + 1, "A").PasteSpecial
Application.CutCopyMode = False
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak gelişmiş filtreleme özelliği kullanılarak yapılmış örnek dosyayı incelermisiniz. Bu şekilde kodlar daha hızlı çalışacaktır.