OTOMATİK LİSTE OLUŞTURMA

[kutu33]

EXCELDE 2.SEKMEDE MÜDÜRLÜK SEKMESİNDE HERHANGİ BİR MÜDÜRLÜK SEÇTİKTEN SONRA LİSTEDEN MÜDÜRLÜKTEKİ BİLGİLERİ OTOMATİK OLARAK NASIL AKTARTABİLİRİZ...

 

[askm]

Aşağıdaki şekilde deneyin.
Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:E1")) Is Nothing Then Exit Sub
Call askm
End Sub

Bir module;

Sub askm()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("LİSTE")
Set s2 = Sheets("MÜDÜRLÜK")
Dim son As Long
Application.ScreenUpdating = False
s2.Range("A3:E65536").Clear
son = s1.Range("A" & Rows.Count).End(3).Row
Kriter = s2.Range("A1").Value
s1.Range("$A$1:$F$" & son).AutoFilter Field:=1, Criteria1:=Kriter
s1.Range("B2:F" & son).SpecialCells(xlCellTypeVisible).Copy _
Destination:=s2.Range("A3")
Application.ScreenUpdating = True
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Benim yaptığımda alternatif olsun.
Müdürlük sayfasında C1 den seçiniz.
İyi çalışmalar

 

[kutu33]

Abi siz on numarasınız, teşekkür ederim. Allah razı olsun sizden...

 

[Tevfik_Kursun]

Rica ederim, geri dönüşünüz için teşekkür ederim
İyi çalışmalar