filter

[pevlike]

slm
sheet 2 de bulunan personel listesini sheet 1 deki filtre uygulasi ile personel listesi sheet 1 de bulunan yerlere yazdirmayi nasil saglayabiliriz?
Tesekkurler

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SON As Integer
Dim S1 As Worksheet
If Intersect(Target, [B2:B1000]) Is Nothing Then Exit Sub
Set S1 = Sheet1
SON = S1.Cells(65536, "A").End(3).Row + 1
S1.Cells(SON, "A") = Target
Set S1 = Nothing
End Sub

 

[pevlike]

Cok Tesekkurler