Zde je oprava makra.
Sub Filtr()
' Filtr Makro
Range("BA6").AutoFilter Field:=1, Criteria1:="PRAVDA"
Range("B9").Select
End Sub
Sub Vse()
' Vse Makro
Range("BA6").AutoFilter Field:=1
Range("C9").Select
End Sub
Nebylo by lepší data z CSV kopírovat než na buňky odkazovat?citovat
Sub Filtr()
' Filtr Makro
Range("BA6").AutoFilter Field:=1, Criteria1:="PRAVDA"
Range("B9").Select
End Sub
Sub Vse()
' Vse Makro
Range("BA6").AutoFilter Field:=1
Range("C9").Select
End Sub
Nebylo by lepší data z CSV kopírovat než na buňky odkazovat?citovat