TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Ahoj, prosím o radu ohledně makra.
Některé verze office toto makro berou v pořádku, jiné hlásí chybu:
Myslím si, že tam mám chybu v nějakém detailu zápisu, když to některé verze berou.
Zjednodušeně se jedná o Makro, které mi na základě podmínky zapíše hodnoty z jednoho sloupce do druhého:
Sub pouzit_v_planu()
Application.ScreenUpdating = False
Sheet8.Unprotect "..."
Sheet8.Activate
Columns("BY").Select
Selection.ClearContents
Dim i As Integer
Dim m As Integer
m = 17
For i = 18 To (24) Step 1
BY = 18 'jdu po řádcích
'kam chci název napsat
If Range("BP" & i).Value = 2 Then
m = m + 1
Range("BY" & m).Value = Range("BM" & i).Value
End If
Next i
Sheet8.Protect "...", , , , , True, True, True, True, True, , , , , True
Application.ScreenUpdating = True
End Sub
Díky za rady, Katka
