rapor alma

[ulutanas]

arkadaşlar ekdeki dosyada çözemediğim bir sorun var lütfen yardımcı olurmusunuz. tşk.

 

[ulutanas]

lütfen arkadaşlar 1 kere bakın da fikir verin

 

[Orion1]

Dosyanız ekte.

B1 hücresine bir isim giriniz.:cool:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
Range("A7:L65536").ClearContents
With Sheets("İŞLEM")
    If .FilterMode = True Then .ShowAllData
    .Range("A15").AutoFilter Field:=3, Criteria1:=Range("B1").Value
    .Range("A15:L" & .Cells(65536, "A").End(xlUp).Row).CurrentRegion.Copy
    Range("A6").PasteSpecial
    .Range("A15").AutoFilter
End With
Application.ScreenUpdating = True
Range("B1").Select
End Sub

 

[ulutanas]

Evren bey çok teşekkür ederim tam istediğim gibi olmuş.

 

[Orion1]

Evren bey çok teşekkür ederim tam istediğim gibi olmuş.

Rica ederim.
iyi çalışmalar.