Například takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End If
End SubP.citovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End If
End SubP.citovat