Avatar billede hunter41 Novice
24. juni 2016 - 10:50 Der er 5 kommentarer og
1 løsning

ændring af makro

hej

jeg har nedenstående makro:
Sub MPRN()
Dim mprNr As String, antalRæk As Long, ræk As Long
    ActiveSheet.Unprotect "hunter55"
   
    antalRæk = Cells(Rows.Count, "A").End(xlUp).Row
    For ræk = antalRæk To 1 Step -1
        If InStr(Range("A" & ræk), "MPRN") = 1 Then
            mprNr = "MPRN" & Format(Mid(Range("A" & ræk), 6) + 1, "0000")
            Range("A" & antalRæk + 1).Select
            ActiveCell = mprNr
            ActiveCell.Font.Color = vbRed
            Range("A" & antalRæk + 1).Select
           
            ActiveSheet.Protect "hunter55"
            Exit Sub
        End If
    Next ræk
End Sub

jeg vil gerne have den ændret til at skrive PCB i stedet for MPRN og troede at jeg bare kunne rette det til, men den virker ikke så.....nogen der kan hjælpe ?
Avatar billede jakobdo Ekspert
24. juni 2016 - 10:58 #1
Og du rette det i begge linjer her:

If InStr(Range("A" & ræk), "MPRN") = 1 Then
            mprNr = "MPRN" & Format(Mid(Range("A" & ræk), 6) + 1, "0000")

til:

If InStr(Range("A" & ræk), "PCB") = 1 Then
            mprNr = "PCB" & Format(Mid(Range("A" & ræk), 6) + 1, "0000")

Måske du også skal rette "sub" navnet:

Sub PCB()
Hvis du skal bruge begge samtidig.
Avatar billede hunter41 Novice
24. juni 2016 - 11:39 #2
det virker ikke
Avatar billede jakobdo Ekspert
24. juni 2016 - 11:48 #3
Hvad hvis du retter denne:

mprNr = "MPRN" & Format(Mid(Range("A" & ræk), 6) + 1, "0000")
til:
mprNr = "PCB" & Format(Mid(Range("A" & ræk), 5) + 1, "0000")
Avatar billede hunter41 Novice
24. juni 2016 - 12:00 #4
så tæller den ikke  fortløbende numrer
Avatar billede hunter41 Novice
24. juni 2016 - 12:02 #5
så virker det....tak for hjælpen
Avatar billede jakobdo Ekspert
24. juni 2016 - 13:56 #6
Hvordan så den endelige løsning så ud ?
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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.

Du kan også logge ind via nedenstående tjenester