Sloupec je zadán napevno.
Sub NaFokus()
Cells(Range("AF1").Value, "D").Select
End Sub
Edit nebo s určením listu
Sub NaFokus()
With Worksheets("List1")
.Cells(.Range("AF1").Value, "D").Select
End With
End Sub
Sloupec je zadán napevno.
Sub NaFokus()
Cells(Range("AF1").Value, "D").Select
End Sub
Edit nebo s určením listu
Sub NaFokus()
With Worksheets("List1")
.Cells(.Range("AF1").Value, "D").Select
End With
End Sub