makro ile muhasebe yapmak

[tolga78]

Listele butonuna tıkladığımız zaman tüm firmaların yapılan işlemlerinin tamamını makro ile görmek istiyorum. bu konuda yardımlarınız bekliyorum.

 

[yanginci34]

Denermisiniz.

Sub TumIslemler()
    If Range("C2").Text = "" Then
         ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=1
    Else
        Range("B8:O" & Cells(Rows.Count, "B").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Range("C2").Text
    End If
End Sub

 

[tolga78]

Yalnız yanında listele butonu olarak tüm firmalardan yapılan işlemlerin gelmesini sağlayan makro yapmak istiyorum.