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

• #7778 föccer nagyúr Delila_1 #7770

  Új Válasz 2010-07-26 09:24:44 #7778

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

  No, itt a végleges, nálam is hibátlanul futó makró

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

  Köszi a segítséget, nélkületek nem lett volna meg. Soakt tanultam belőle. Most jön a következő feladat

  Üdv, föccer

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