Foutcode

[verluc]

Bied ook geen oplossing. Krijg ook foutmelding : ongeldig gebruik van een eigenschap

 

[VenA]

Er zitten nog meer fouten in

Probeer deze eens

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'On Error Resume Next
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then
    Target = UCase(Target)
    Columns.EntireColumn.AutoFit 'of Target.Column.EntireColumn.AutoFit
End If
Application.EnableEvents = True
End Sub

 

[HSV]

Het bleef gewoon in een eindeloze loop, en dat je de application.enableevents verkeerd hebt toegepast.

columns.autofit volstaat.

 

[verluc]

VenA, bedankt voor Uw code, doch het probleem is dat op Blad1 de groene band dubbele cellen selecteert wanneer U een wijzigende invoer doet.

 

[edmoor]

Blijft vreemd. Ik krijg het hier niet stuk.

 

[HSV]

Even Excel opnieuw opstarten en de codes proberen.
In deze kan .cells er ook uit.

Range("A4:Q1000").[COLOR=#FF0000]Cells[/COLOR].Interior.ColorIndex = xlNone

 

[HSV]

Zo kan er toch weinig meer mis gaan lijkt me.

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Target.Column < 5 Then Target = UCase(Target)
  Columns.AutoFit
Application.EnableEvents = True
End Sub

 

[verluc]

HSV,

Inderdaad met Uw code gaat niets mis. Bedankt voor de ruime verkorting van deze code.
Probleem is dat het bestand, gevoegd bij mijn bericht #19, duidelijk aangeeft wat het
probleem is.
Wijzig bijvoorbeeld een tekst en de groene balk bevat twee cellen waarna het programma
volledig blokkeert en dent afgesloten met ctrl/alt/delete

 

[HSV]

Klopt,

Zoals vermeld in #23 bleef het in een eindeloze loop.
Ik moest Excel ook opnieuw opstarten daar het steeds maar een foutmelding gaf met wat voor code dan ook.

 

[VenA]

Ik denk dat de error hier zit.

Target.Cells.Count > 7

bij het VERWIJDEREN van meerdere cellen gaat dat niet goed.

@edmoor toch stuk te krijgen (haal je niet echt uit de vraag)

 

[edmoor]

Bij het verwijderen inderdaad wel

 

[HSV]

Heb ik ook niet op getest, en was er niet van uitgegaan dat er twee fouten in zaten.
Vandaar de 'on error resume next' in de code.
Het zou wel iets voor een volgende vraag zijn om uit te leggen met welke handelingen dit gebeurd.
Ik ben op #19 afgegaan.
Mooi dat je zo'n doorzettingsvermogen hebt @V&A.

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Column < 5 And Target.Count = 1 Then
   Target.Value = UCase(Target)
   Columns.AutoFit
 End If
Application.EnableEvents = True
End Sub

Edit: Maar op de "target.cells.count > 7" krijg ik geen foutmelding bij het verwijderen.

 

[snb]

wellicht samengevoegde cellen....

 

[HSV]

Geen samengevoegde cellen....

 

[VenA]

Sub VenA()
Application.EnableEvents = True
End Sub

:d

Plaatjes in blad3. Wel weer van die dingen die ik even beter in een aparte sessie kan doen En jij waarschijnlijk ook

 

[HSV]

Naar mijn weten heb ik geen bestanden geplaatst, of is dit niet voor mij bedoeld?

 

[VenA]

Was in reactie op

Edit: Maar op de "target.cells.count > 7" krijg ik geen foutmelding bij het verwijderen.

Deze krijg ik nl wel.

 

[HSV]

Vreemde zaak, en ik ben er eigenlijk ook wel klaar mee om het bestand steeds te moeten sluiten met Ctrl+Alt+Delete.
Ps: Dat foefje gebruik ik ook altijd om het weer op 'True' te zetten.

 

[verluc]

Na lang zoeken en testen, moet ik inderdaad vaststellen dat snb de juiste aanzet tot zoeken gaf.
ALLE samengevoegde cellen in dat weekblad uitgeschakeld en kijk, het probleem is opgelost.
(Een veel groter probleem is : hoe zijn die daarin gekomen ?
Maar dat is nu van geen tel meer)
Toch mijn welgemeende dank aan alle die hieraan hebben meegewerkt !
Zet de vraag Als opgelost

 

[HSV]

Mooi dat het is opgelost, ik kon ze niet ontdekken in je voorbeeld bestand.
De vraag op opgelost zetten kan je alleen zelf doen.