v makru mě u části kódu
Kód: Vybrat vše
If BB11cc.Offset(24, 8).Value = "NEPRAVDA" Then
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