36236_priklad.xlsx
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bunka
Set Bunka = Intersect(Columns(1), Target)
If Not Bunka Is Nothing Then
Cells(2, 16).Value2 = LCase$(Replace$(Left$(Bunka.Cells(1).Value2, 11), "/", ""))
Set Bunka = Nothing
End If
End Subcitovat
Dim Bunka
Set Bunka = Intersect(Columns(1), Target)
If Not Bunka Is Nothing Then
Cells(2, 16).Value2 = LCase$(Replace$(Left$(Bunka.Cells(1).Value2, 11), "/", ""))
Set Bunka = Nothing
End If
End Subcitovat
RSS nejnovější články