Ú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

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

  Új Válasz 2010-07-23 15:11:50 #7771

  Ú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

  Run-Time error '91':
  Objekt variable or With block variable not set.

  A hibát For i = 1 To AF.Filters.Count sorraadja.

  Ha inicializálom elötte az i -t nem segít. Ha az elejére beszúrok egy sheets("Receptek").select-et, nem segít.

  Lassan kezdem azt hinni, hogy bennem van a hiba...

  Kérdés: a lent írt kódban mit akar csinálni az usor változó? Nem egészen tudom értelmeni az

  usor = Range("A65536").End(xlUp).Row utasítást...

  Köszi az eddigi segítséget. Nem tudom, hogy mi a rákért nem akar rendesen menni...

  üdv, föccer

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