Just nu i M3-nätverket
Gå till innehåll
HannesHelander

Kombinera textvärde med löpnummer?

Rekommendera Poster

Hej!

 

Jag försöker förgäves komma på hur jag skall lösa mitt problem. Syftet är att kombinera en bokstavskombination (ex: AA, BB, CC,...) och ett 6 siffrigt löpnummer (ex 00001) så att jag jag får ett alfa-numeriskt löpnummer (ex "AA000001") att använda exempelvis som fakturanummer eller dylikt. OBS att de inledande nollor måste bevaras.

 

I första kolumnen på arbetsbladet har jag en drop-down lista med bokstavskombinationerna och i den andra kolumnen vill jag automatiskt få fram det alfanumeriska löpnumret som skall ökas med ett varje rad så fort någon väljer ett värde på första kolumnen i samma rad..

 

Är det någon som har en smart lösning så vore jag tacksam.

 

Mvh

Hannes

http://hannes.helander.net

 

[inlägget ändrat 2006-08-11 14:57:18 av HannesHelander]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Givet att texten är två tecken?

Kanske då att denna kod kan ge dig inspiration att lösa det. För jag antar att du har lite VBA-kod när du nu har en Combobox.

 

Klistra in koden i en modul och sätt referensen rätt (Sheets("Blad1")Range(A1)).

Sub test()
   With Sheets("Blad1").Range("A1")
       aStr = .Text
       aText = Left(aStr, 2)
       aNum = Val(Right(aStr, Len(aStr) - 2)) + 1
       result = aText & String(Len(aStr) - 2 - Len(Str(aNum)), "0") & aNum
       .Value = result
   End With

End Sub

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...