Opgelost Celwaarde door VBA aanpassen door voorloop letters toe te voegen

[peter59]

Wat een voorbeeldbestandje al niet teweeg brengt.

 

[AHulpje]

Maar als je nu een bestaande code in kolom A wijzigt, bijvoorbeeld door het laatste cijfer te wijzigen, van HD-1010 naar HD-1011, dan krijg je de code HD-HD-1011, dat is te voorkomen door dit tussen te voegen:

        If Left(Target, 3) <> "HD-" Then
            Target = "HD-" & Target
        End If

 

[Atwist]

Heb toch nog een klein probleempje met de Macro van peter59

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target <> "" Then
    Application.EnableEvents = False
    Target.Value = "HD-" & Target.Value
    End If
    Application.EnableEvents = True
   
End Sub

Als ik kolom A leeg maak dan krijg ik een "Runtime error 13".
Hoe kan ik dit oplossen.
Loopt vast op

 If Target.Column = 1 And Target <> "" Then

 

[AHulpje]

Toch maar weer even je document plaatsen.
Ik zie overigens nergens een macro van Peter59?

 

[peter59]

@AHulpje
Klopt, ik heb alleen gevraagd om een voorbeeldbestandje.
Het was gewoon een heel groot gok spelletje aan het worden o.b.v. plaatjes waar we uiteraard niets mee kunnen aanvangen.

 

[Atwist]

Ik heb hier weer een voorbeeldbestandje
Dus als ik kolom A leeg maak krijg ik een "Runtime error 13".

 

[emields]

verander in de code target<>"" door target = 1

 

[AHulpje]

Ging fout bij selectie van meerdere cellen. Zo gaat ie goed:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Target <> "" And Left(Target, 3) <> "HD-" Then
            Target = "HD-" & Target
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[Atwist]

Ik dank jullie wel voor de inzet, nu loopt het helemaal goed.

 

[snb]

Omdat de HD- niet onderscheidend is voor de artikelcode kan de lijst in werkblad 2 ook zonder.
Vermijd ten alle tijde samengevoegde cellen.
Wat is de zin van een titel, die het tabblad al heeft.
Gebruik de voorzieningen die in Excel ingebouwd zijn.
VBA is hier volledig overbodig.

 

[Atwist]

Hallo snb
De artikelen worden automatisch uit een programma gekopieerd die ik ook voor onze website gebruik.
Vandaar dat de complete artikelnummers er al staan, maar om het mij gemakkelijk te maken, en dus niet telkens HD- hoef in te voeren.
Voor dit soort Sheets gebruik ik altijd de Kop met samen gevoegde cellen, dit kan volgens mij geen kwaad zolang er geen verwijzingen of formules in staan.
Mij wordt telkens verweten dat ik vergeet om er voorbeeldbestandjes bij te posten.
Maar ik heb jou voorbeeld eens bekeken, is inderdaad zonder VBA, maar ik denk dat voor een leek er toch wel een uitleg bij mag hoe je dit hebt gedaan.
Hopelijk wordt dit niet verkeerd opgevat, ik wil nog weleens wat onduidelijk overkomen.

 

[snb]

Niets eenvoudiger dan in kolom A van sheet2 de "HD-" vervangen door "".
Waarom uitleg ? Als iemand geïnteresseerd is, de draad volgt en nieuwsgierig, dan zoekt ie dat toch uit ? Daar leer je echt het beste/meeste van.

 

[Atwist]

Okay duidelijk

 

[peter59]

Een beetje uitleg is al gegeven in #7 waar je de cel eigenschappen kon aan passen.
Dat is gebeurt in de tabel welke SNB, in #30 heeft bijgevoegd.
Boven deze tabel kun je rijen toevoegen. Daar kan je eventueel cellen naar believen samenvoegen die dan geen invloed hebben op het geheel.