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

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

  Új Válasz 2010-07-26 09:45:12 #7781

  Ú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

  A
  Cells(1, i).Value = F.Criteria1 sor helyett legyen
  Cells(1, i).Value = Right(F.Criteria1, Len(F.Criteria1) - 1)

  Mikor már a lapra álltál [Sheets("Receptek").Select], nem kell külön megadni a lapot:

  Sheets("Receptek").Cells(1, i).Value = F.Criteria1 helyett elegendő a
  Cells(1, i).Value = F.Criteria1

• #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

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

  Új Válasz 2010-07-26 09:33:50 #7779

  Ú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

  Ezzel az a baj, hogy az eredeti táblázat 2. sorát eltünteti, ahelyett írja be a kritériumokat.

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