leegmaken gegevens probleem voor VBA in bestelbon

[plainme]

Beste Amici,

Een projectje .....
Deel I van het projectje


In bijlage bestandje dat veel duidelijk zal maken inzake deze vraag.

we gebruiken momenteel een bestelbon die met behulp van enkele mensen hier is aangemaakt geweest.
Nu was dit geen probleem toen ik en nog een collega deze gebruikten.
Maar ondertussen zijn er enkele collega's bijgekomen en beginnen de problemen.
Overschrijven van cellen die niet mogen ..... vandaar dat ik deze heb beschermt tegen overschrijven.
En daar zit nu net het addertje onder het gras...
Krijg nu wel steeds de melding dat er een fout optreed bij leegmaken van cellen in bestelbon voor volgende aan te maken of veranderen van leverancier....

Kunnen jullie hierbij even naar zien om dit uit te klaren? Voor mij een probleem voor jullie een piece ( peace) of cake


Bekijk bijlage HM bestelbon.xlsm


Alvast bedankt voor het meedenken en hulp aan dit projectje

 

[HSV]

Vba en samengevoegde cellen gaan niet samen.
ByVal Sh As Object staat er in de event, elk sheet kan benoemd worden als Sh
ByVal Target As Excel.Range staat ook in de event om te gebruiken.
Ga daar geen dingen meer voor verzinnen.

Ook eerst een unprotect doen als de boel beveiligd is tegen wijzigingen.


Bv.

Private Sub Workbook_SheetChange([COLOR=#ff0000]ByVal Sh As Object[/COLOR], [COLOR=#0000ff]ByVal Target As Excel.Range[/COLOR])
If [COLOR=#0000ff]Target[/COLOR].Address <> "$A$5" Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
   [COLOR=#ff0000] Sh[/COLOR].Unprotect
    [COLOR=#ff0000]Sh[/COLOR].Range("F39:F72,H39:H72,P39:P72,Q39:Q72").ClearContents

Enz.

Maar verwijder in ieder geval de samengevoegde cellen, zo kan er niemand mee werken.
Als dit allemaal voor elkaar is wil ik er nog wel een keer naar kijken.

 

[plainme]

Beste Harry,

Bedankt voor de reactie.

Die ByVal sh is omdat er steeds een nieuwe bestelbon dient aangemaakt te worden bij doorvoeren van de gegevens.
Die sh unprotect is omdat de onderstaande lijn met cellen dient te worden leeggemaakt.

De samengevoegde cellen zijn in het verleden nooit een probleem geweest. Deze zijn zo aangemaakt geweest om in het bovenstaande gedeelte v/d bestelbon de gegevens te kunnen invoeren.
Is maar sinds ik de cellen die niet mogen worden aangepast dat de problemen zijn begonnen. En ik snap wel dat unprotect en protect niet samen kunnen en vandaar ook de vraag hoe dit dan wel kan worden opgelost.

Graag advies.

Alvast bedankt

 

[HSV]

E14:H14 is met E14:J20 samengevoegd.
E70 t/m E72 zijn met diverse kolommen samengevoegd.

Als je iets wilt bereiken moet je dit in ieder geval aanpassen.....

Range("A5:B7,E14:H14,F37:F72,H37:H72,N37:N72,P37:Q72").ClearContents

...naar.

Range("A5:B7,E14:J20,F37:F67,H37:H67,N37:N67,P37:Q67").ClearContents

Hierin zitten de samengevoegde cellen in, en de andere zijn buiten schot gelaten.
De rest heb ik verder niet bekeken.

 

[plainme]

Harry,

Ik ga dit uitproberen.
toch al bedankt voor het meedenken.

Ik hou jullie zeker op de hoogte.
Ik sluit nog niet af want er is nog een part op komst

Thx