Hoofdletters

[Roncancio]

Inderdaad Piet,

deze doet het inderdaad uitstekend en is heel wat esthetischer dan mijn code, waarvoor dank. :thumb:

Ik zet deze code in elk werkblad, maar is het ook mogelijk om ThisWorkbook éénmaal een code in te geven voor alle nodige werkbladen?

Dan wordt het zo:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
 
If Not Application.Intersect(Target, Range("G5:H75,O5:AA75")) Is Nothing And Target.Cells.Count = 1 Then Target.Value = UCase(Target.Value)

Application.EnableEvents = True

End Sub

Met vriendelijke groet,


Roncancio

 

[Wigi]

Dat kan met een zgn. Workbook_SheetChange event. Sh staat daarin voor het tabblad waarin de wijziging plaats vindt.

Wigi

 

[jog]

Sorry voor de vele vragen hoor, maar zit nog even met volgende

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If Not Application.Intersect(Target, Range("G5:H75,O5:AA75")) Is Nothing And Target.Cells.Count = 1 Then Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

ok, maar dit is voor alle sheets in het workbook, wanneer ik bv. JAN, FEB, MAA, APR, ... wil, hoe pak ik dat dan best aan?


Alvast bedankt

 

[Roncancio]

Sorry voor de vele vragen hoor, maar zit nog even met volgende




ok, maar dit is voor alle sheets in het workbook, wanneer ik bv. JAN, FEB, MAA, APR, ... wil, hoe pak ik dat dan best aan?


Alvast bedankt

Je zou gebruik kunnen maken van de index van een sheet.
Het eerste werkblad heeft als index 1, het 2e heeft als index 2, etc.

Dus.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If Sh.Index < 3 And Not Application.Intersect(Target, Range("G5:H75,O5:AA75")) Is Nothing And Target.Cells.Count = 1 Then Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

Alleen in werkbladen 1 en 2 wordt de code uitgevoerd.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Gebruik deze code eens om wat te testen en te gaan begrijpen wat er gebeurt:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Msgbox "Er vond een wijziging plaats op blad " & Sh.Name & ", in het bereik " & Target.Address
End Sub

 

[jog]

@ Ronancio

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)Application.EnableEvents = False If Sh.Index < 3 And Not Application.Intersect(Target, Range("G5:H75,O5:AA75")) Is Nothing And Target.Cells.Count = 1 Then Target.Value = UCase(Target.Value)Application.EnableEvents = TrueEnd Sub

Deze code werkt idd. voor opeenvolgende sheets, mijn probleem is dat ik werkblad 3,5,7,9,11, .... moet selecteren en dat lukt me niet met bv If Sh.Index 3, 5, 7, .....


Ik kan ondertussen wel verder met de code op elk werkblad waar ze van toepassing is te plaatsen, maar wil me verder verdiepen in de werking van excel. Helaas vind ik omtrent dit probleem niets terug.