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

• #10822 Delila_1 veterán föccer #10821

  Új Válasz 2011-07-12 14:34:02 #10822

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

  A címsorba a feltétel ilyen lenne:

  Sub Krit_A_Cimsorba()
  Dim AF As AutoFilter, F As Filter, i As Long
  
  Sheets("Munka1").Select
  Set AF = ActiveSheet.AutoFilter
  
  For i = 1 To AF.Filters.Count
  Set F = AF.Filters(i)
  If F.On Then
  Cells(1, i).NumberFormat = "@"
  Cells(1, i).Value = Right(F.Criteria1, Len(F.Criteria1) - 1)
  End If
  Next
  End Sub

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