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

• #10819 föccer nagyúr Delila_1 #10818

  Új Válasz 2011-07-12 13:53:06 #10819

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 #10818 üzenetére

  Nekem ez jutott az eszembe:

  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

  Ezt még te készítetted nekem.

  üdv, föccer

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