Új hozzászólás Aktív témák

• #34438 Delila_1 veterán kőbaltazár #34437

  Új Válasz 2017-03-10 11:37:00 #34438

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kőbaltazár #34437 üzenetére

  Majd ezzel megoldódik a több adat együttes bevitele:

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Object

If Target.Column = 1 Then
Application.EnableEvents = False
For Each FN In Range(Target.Address)
FN.Value = UCase(FN.Value)
Next
Application.EnableEvents = True
End If
End Sub

Új hozzászólás Aktív témák