sayfadaki tüm hesaplara ait hareketleri, başka bir sayfada tek bir hesap için getirme

[besen]

Merhaba liste sayfasındaki hareketleri, ekstre sayfası A1 hücresinden kod seçtiğimde sadece o koda ait hareketler gelsin istiyorum.

Yardımlarınız için teşekkür ederim.

 

[besen]

Konuyla ilgili yardım ricasıyla.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.
.

 

[besen]

Hocam çok teşekkür ederim. Pivotla yapmıştık ama, farklı format ve ek analiz için makroyla çözüm ihtiyacı oldu.

Saygılarımla.

 

[msetr]

Hayırlı akşamlar İdris Hocam;

Buna benzer bir dosyaya benimde ihtiyacım vardı.

İdris Hocam size zahmet bu koda tarih aralığı ekleyebilir misiniz acaba.

Başlangıç ve bitiş tarihi olacak şekilde.

Yardımlarınız için şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

.

Bu da makro ile.

.

 

[Merhum İdris SERDAR]

Hayırlı akşamlar İdris Hocam;

Buna benzer bir dosyaya benimde ihtiyacım vardı.

İdris Hocam size zahmet bu koda tarih aralığı ekleyebilir misiniz acaba.

Başlangıç ve bitiş tarihi olacak şekilde.

Yardımlarınız için şimdiden teşekkürler.

.

Yeni bir başlık altında ve örnek dosya eklerseniz daha uygun olur.

.

 

[besen]

Hocam merhaba, ekteki dosyayla ilgili iki değişiklik yapabilir miyiz.

1- A1 hücresinden veri seçtik mi, makro otomatik çalışsın.
2- Farklı veri seçtğimizde, önceki verinin satırları kalıyor, veri seçmeden önce eski verinin silinmesini sağlayabilir miyiz.
3- Makroda Range("A1:R86") tanımı var. Liste sayfasındaki verinin genişliğini ve uzunluğunu tanımlamış, farklı dosya olduğunda her seferinde bunu makro içinde değiştirecek miyiz?

Saygılar.

.

Bu da makro ile.

.

 

[Merhum İdris SERDAR]

Kodu aşağıdaki şekilde deneyin.

Sub Getir()

Dim sonsat As Long
sonsat = Range("A" & Rows.Count).End(xlUp).Row

    With Worksheets("liste")
        .AutoFilterMode = False
        With .Range("A1:R" & sonsat)
            .AutoFilter
            .AutoFilter Field:=4, Criteria1:=Worksheets("ekstre").Range("A1").Value
        End With
    End With
   
   Worksheets("Ekstre").Range("A2:r" & Range("A2").End(xlDown).Row).ClearContents
   Worksheets("liste").UsedRange.SpecialCells(xlCellTypeVisible).Copy _
   Destination:=Worksheets("ekstre").Range("A2")

End Sub

Ve Ekstre sayfasının kod bölümüne:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call Getir
    End If
End Sub

yazın.

.

 

[besen]

Çok teşekkür ederim.
Saygılar.