Søg
Avatar billede hunter41 Novice
04. april 2016 - 10:57 Der er 12 kommentarer og
1 løsning

makro til aut. ordrenr

HEj

er der nogen der kan hjælpe med en makro, som kigger i kolonne A og indsætter efterfølgende ordrenr. i næste ledige felt i kolonne A

har to tekstfelter, hvor makroer skal vedhæftes, således at når jeg trykker på den ene, danner den en ordrenr som hedder AMPRN0233 også videre

og når jeg trykker på den anden så skal den hedde MPRN0233 også videre

det vil sige at makroen skal kunne læse hvilket ordrenr i de sidste 4 cifrer der er brugt sidst
Avatar billede finb Ekspert
04. april 2016 - 10:59 #1
=maks(værdi(højre(TEKSTEN;4)))+1
Avatar billede hunter41 Novice
04. april 2016 - 11:04 #2
hej finb

hvordan vil du bruge denne formel ifht det jeg har skrevet med at vedhæfte den til et teksfelt
Avatar billede hunter41 Novice
05. april 2016 - 07:46 #3
er der slet ikke nogen der vil byde ind på det her ?
Avatar billede Sitestory Mester
06. april 2016 - 17:24 #4
Jeg forstår simpelthen ikke, hvad det er, du vil have. Måske du kunne eksemplificere?
Avatar billede hunter41 Novice
07. april 2016 - 13:19 #5
har to ikoner....hvis jeg trykker på den ene, skal der dannes et fortøbende nummer,  som starter med AMPRNXXXX (4 cifrer i ordrenr)i den først ledige felt i kolonne A.

når jeg klikker på det andet ikon, skal der dannes ordrenr som starter med MPRNXXXX

ordrenr er samme fortløbende for begge
Avatar billede Sitestory Mester
07. april 2016 - 15:59 #6
Her er et bud. I en identisk makro erstatter du blot AMPRN med MPRN.

Sub AMPRN()
Dim rCelle As Range
Dim sOrdre As String
Dim dNummer As Double

Set rCelle = Range(("A" & Rows.Count)).End(xlUp)
dNummer = Len(rCelle.Value) - 5
dNummer = CDbl(Right(rCelle.Value, dNummer))
dNummer = dNummer + 1
rCelle.Offset(1, 0).Value = "AMPRN0" & dNummer
set rCelle = Nothing

End Sub
Avatar billede hunter41 Novice
08. april 2016 - 08:01 #7
Super Sitestory :-)

som en lille extra.....kan man gøre sådan at når den skriver MPRN, så skriver den det med rødt og når den skriver AMPRN, så skriver den det med blåt


ellers ser det godt nok fint ud.....super arbejde
Avatar billede Sitestory Mester
08. april 2016 - 14:56 #8
Hunter41

Ja, du tilføjer blot:

rCelle.Font.Color = vbRed

og i den anden makro:

rCelle.Font.Color = vbBlue

I øvrigt kan du slette "Dim sOrdre As String" - det glemte jeg, da der ikke blev brug for variablen.
Avatar billede hunter41 Novice
11. april 2016 - 09:56 #9
Sitestory

vi begynder at nærme os et rigtigt godt resultat.....men den laver lidt koks med farverne

når jeg trykker på det blå ikon, så bliver den først blå, når jeg igen trykker et nyt nr ind og det samme med den røde
Avatar billede hunter41 Novice
11. april 2016 - 12:48 #10
har jeg sat farvekoden forkert ind ??

Sub AMPRN()
Dim rCelle As Range
Dim dNummer As Double

Set rCelle = Range(("A" & Rows.Count)).End(xlUp)
dNummer = Len(rCelle.Value) - 5
dNummer = CDbl(Right(rCelle.Value, dNummer))
dNummer = dNummer + 1
rCelle.Font.Color = vbBlue
rCelle.Offset(1, 0).Value = "AMPRN0" & dNummer
Set rCelle = Nothing

End Sub
Avatar billede Sitestory Mester
11. april 2016 - 15:32 #11
Nej, det var sjusk fra min side ikke at tjekke. I stedet for:

rCelle.Font.Color = vbBlue

skal det selvfølgelig være:

rCelle.Offset(1, 0).Font.Color = vbBlue

da det er den celle, vi opererer på. Sorry!
Avatar billede hunter41 Novice
12. april 2016 - 07:45 #12
super super arbejde Sitestory

smid et svar så du kan få dine point

tak for hjælpen
Avatar billede Sitestory Mester
12. april 2016 - 15:21 #13
Det var så lidt :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 16:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
I går 20:13 PIHOLE Af dcedata1977 i Linux
13/0312:06 SDKORT / SSD Af dcedata1977 i Linux
13/0309:12 Kan min telefon høre en samtale og lave annonce tilbud efter det Af Niels Ebbe Schmidt Huus i Mobiltelefoner
11/0307:12 Fastnettelefon Af nu_igen i Andet hardware
White papers
Flere white papers »