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

• #7770 Delila_1 veterán föccer #7769

  Új Válasz 2010-07-23 14:29:20 #7770

  Ú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 #7769 üzenetére

  Itt a sültgalamb – én is segítséget kértem hozzá.

  Sub Filt()
  Dim AF As AutoFilter, F As Filter, i As Long, usor As Long
  
  Set AF = ActiveSheet.AutoFilter
  usor = Range("A65536").End(xlUp).Row
  
  For i = 1 To AF.Filters.Count
  Set F = AF.Filters(i)
  If F.On Then
  Cells(1, i) = Cells(usor, i)
  End If
  Next
  End Sub

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