Waarde optellen waar zich een alfanumeriek in bevindt

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik ben op zoek naar een vba code die in blad 1 positie A1 de waarde 2017001 P1 met 1 ophoogt naar 2017001 P2 enz. enz.

Alvast heel erg bedankt.

Robert
 
Met AutoFill kan je dat heel makkelijk doen; die verhoogt het laatste nummer ongeacht wat er voor staat, dus dat werkt ook met tekst. Als ik jouw tekst in D5 zet, dan krijg ik hiermee 5 oplopende nummers:
Code: 
    Selection.AutoFill Destination:=Range("D5:D10"), Type:=xlFillDefault
 
Daar is geen VBA voor nodig. Dat kan met deze simpele formule in A1:
Code: 
="2017001 P"&RIJ()
 
Zo?


Code: 
[A1] = Left([A1], 9) & (Right([A1], Len([A1]) - 9) + 1)
 
Laatst bewerkt:
Na wat gepionierd te hebben heb ik nog een tweede vraag. Zie bijlage.

In blad 2 staat in cel A1 een waarde dat overeenkomt met een waarde in blad 1 (cel A1 t/m A5). Nu ik de code heb ontvangen en in een vba heb gezet, dat overigens perfect werkt, wil ik deze graag gebruiken dat het systeem de waarde vanuit blad 2 zoekt in blad 1 en deze vervolgens met 1 ophoogt.

Wederom alvast heel erg bedankt.

Bekijk bijlage Projectnummer wijzigen.xlsm
 

Bijlagen

  • Projectnummer wijzigen.xlsm
    14,7 KB · Weergaven: 31
Probeer eens:

Code: 
Dim R As Range
Set R = Blad1.Range("A1:A5")
    
Application.EnableEvents = False
For Each cell In R
If Application.WorksheetFunction.CountIf(cell, Blad2.Range("A1")) > 0 Then
cell.Value = Left(cell, 9) & (Right(cell, Len(cell) - 9) + 1)
End If
Next
Application.EnableEvents = True

Als deze in een Change event zet, blijft hij hem telkens ophogen ! Dat wil je waarschijnlijk niet.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan