Makro nepracuje se skrytými buňkami Vyřešeno

[m.niki]

Zdravím, chtěl bych se zeptat, co mám udělat pro to, aby makro pracovalo se skrytými buňkami,

v makru mě u části kódu

Kód: Vybrat vše

If BB11cc.Offset(24, 8).Value = "NEPRAVDA" Then

naskočí chybové hlášení, Run time error '91', Object Variable or With Block not set. tento řádek odkazuje na pomocnou část listu, která má být skrytá, vše fungovalo bez problému, dokud jsem sloupce neskryl.... dá se někde něco anstavit, aby makro pracovalo se skrytými buňkami?

začátek kódu vypadá takto

Kód: Vybrat vše

Private Sub CommandButton3_Click() ' přepis dat

  Dim AA As Workbook, AA11 As Worksheet, AA11aa As Range
  Dim BB As Workbook, BB11 As Worksheet, BB11aa As Range, BB11bb As Range, BB11cc As Range
  Dim CC As Workbook, CC11 As Worksheet
  Set BB = ActiveWorkbook
  Set BB11 = Me
  Application.ScreenUpdating = False
  With BB11
    Set BB11aa = .Range("x16:x301") ' hledat kde?
    Set BB11bb = .Range("x15") ' hledat co?
    With BB11aa
      Set BB11cc = .Find(BB11bb.Value, LookIn:=xlValues, LookAt:=xlWhole)
    End With
 End With
 
 If BB11cc.Offset(24, 8).Value = "NEPRAVDA" Then
 
 MsgBox "něco je špatně vyplněné, překontroluj list"
 GoTo ERR1
 
 End If
.
.
.
.
.


Sloupec "X", kde probíhá vyhledávání je také skrytý.

Když skryté sloupce zobrazím, zase vše funguje jak má

díky moc za rady

[Reklama]

[navstevnik]

Trocha hledani na Googlu a prekvapive reseni:
V argumentu LookIn pouzij xlFormulas:

Kód: Vybrat vše

Set BB11cc = .Find(BB11bb.Value, LookIn:=xlFormulas, LookAt:=xlWhole)

viz http://www.ozgrid.com/forum/showthread. ... 773&page=1

[m.niki]

díky návštěvníku