Avatar billede tvc Seniormester
26. oktober 2016 - 20:37 Der er 1 kommentar og
1 løsning

VBA - har brug for et par øjne på denne...

http://www.computerworld.dk/eksperten/spm/1013411
Avatar billede tvc Seniormester
26. oktober 2016 - 23:00 #1
Fandt løsningen:

Sub MappingOpdateret()

Dim r As Long, Mapping As String


    Application.ScreenUpdating = False
   
'Gennemløber kolonnen H indtil blank mødes
    With ActiveWorkbook.Sheets("Mapping")
        For r = 3 To 1000
            Mapping = .Range("H" & CStr(r)).Value
            If Mapping <> "" Then
                'Undersøg om Mapping findes i listen
                If FindMapping(Mapping) = False Then
                    MsgBox "Mapping [" & Mapping & "] findes ikke som regnskabspost. " & vbLf & "Vælg en eksisterende mappping."
                    ActiveWorkbook.Sheets("Mapping").Range("H" & CStr(r)).Select
                    Exit Sub
                End If
            Else
                MsgBox "Mapping kontrolleret. Ingen fejl fundet."
                Exit Sub
            End If
        Next r
    End With
   
    Application.ScreenUpdating = True
   
        ActiveWorkbook.Sheets("Mapping").Activate
End Sub

Private Function FindMapping(mapnavn)
    With Ark08.Range("O_M_Konto_navn")
        Set c = .Find(mapnavn, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            FindMapping = True
        Else
            FindMapping = False
        End If
    End With
End Function
Avatar billede tvc Seniormester
24. januar 2017 - 12:22 #2
Lukker
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

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