Új hozzászólás Aktív témák

• #7780 Delila_1 veterán föccer #7778

  Új Válasz 2010-07-26 09:37:23 #7780

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #7778 üzenetére

  Sub föccer()
  Dim AF As AutoFilter
  Dim F As Filter
  Dim i As Long, usor As Long, C As Long
  
  Sheets("Munka1").Select
  Set AF = ActiveSheet.AutoFilter
  C = AF.Filters.Count
  
  For i = 1 To AF.Filters.Count
  Set F = AF.Filters(i)
  If F.On Then
  Cells(1, i).NumberFormat = "@"
  Cells(1, i).Value = F.Criteria1
  End If
  Next
  End Sub

Új hozzászólás Aktív témák