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

• #33341 huliganboy addikt

  Új Válasz 2016-11-30 13:45:19 #33341

  Ú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

  

  huliganboy

  addikt

  #33339) Pakliman
  (#33340) Fferi50

  Köszönöm srácok végül az alábbi megoldást választottuk: (nem tudom mennyire elegáns, de működik)

  Sub Nagy_Kezdőbetű_F()


Set x = Application.InputBox(prompt:="Add meg a nagybetűsíteni kívánt tartományt!" & vbCrLf & "VIGYÁZZ! Számot tartalmazó oszlop ne szerepeljen benne!", Title:="Tartomány megadása", Type:=8)
x.Select
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

For Each x In Selection

x.Value = Application.WorksheetFunction.Trim(x.Value)
x.Value = Application.Proper(x.Value)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True


MsgBox "KÉSZ!", vbInformation

End Sub

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