Makro nepracuje se skrytými buňkami
Napsal: 01 led 2011 18:20
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 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
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
v makru mě u části kódu
Kód: Vybrat vše
If BB11cc.Offset(24, 8).Value = "NEPRAVDA" Thenzačá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