Goedeavond,
Kan iemand mij het volgende laten zien:
Hoe moet de aanwezige programmacode (te vinden via rechtermuis op tabblad) worden aangepast?
Wat doet de code nu: het past de code toe op alle cellen van een aantal kolommen.
Ik wil graag dat de code alleen werkt bij een gedeelte van de kolommen.
De aanwezige code:
Range("C1:E1,K1:M1,S1:U1,AA1:AC1,AI1:AK1,AQ1:AS1,AY1:BA1").EntireColumn)
Ik vermoed dat alleen dit stukje moet worden aangepast. Hoe moet dit worden aangepast zodat het bijvoorbeeld alleen werkt op de ranges C5:E12 & C15:E25 & I5:K12?
Ik heb wat dingen geprobeerd zoals .EntireColumn vervangen voor dingen als .Range, maar ik krijg het niet voor elkaar.
Bekijk bijlage Voorbeeld_Programmacode_voor_forum.xlsm
Kan iemand mij het volgende laten zien:
Hoe moet de aanwezige programmacode (te vinden via rechtermuis op tabblad) worden aangepast?
Wat doet de code nu: het past de code toe op alle cellen van een aantal kolommen.
Ik wil graag dat de code alleen werkt bij een gedeelte van de kolommen.
De aanwezige code:
Code:
Private Sub Worksheet_Change(ByVal target As Range)
If Not Intersect(target, Range("C1:E1,K1:M1,S1:U1,AA1:AC1,AI1:AK1,AQ1:AS1,AY1:BA1").EntireColumn) Is Nothing And Not IsEmpty(target) And target.Cells.Count = 1 Then
Application.EnableEvents = False
target = Replace(Format(target / 100, "00.00"), ",", ":")
Application.EnableEvents = True
End If
End Sub
Ik vermoed dat alleen dit stukje moet worden aangepast. Hoe moet dit worden aangepast zodat het bijvoorbeeld alleen werkt op de ranges C5:E12 & C15:E25 & I5:K12?
Ik heb wat dingen geprobeerd zoals .EntireColumn vervangen voor dingen als .Range, maar ik krijg het niet voor elkaar.
Bekijk bijlage Voorbeeld_Programmacode_voor_forum.xlsm