Knap virker først 2. gang

svært af finde ud af uden koden.
Vis den lige

Ja, i får den "råt for usødet"

Sub GåtilForfald()
    Sheets("forside").Select
    Application.ScreenUpdating = False
    Sheets("Forfald").Select
    Range("A11:H8000").Select
    Selection.ClearContents
    TælFakturaer
    SorterForfald
    Sheets("forfald").Select
    varLøkke2 = 2
    For varLøkke = 2 To Sheets("kunde").Cells(21, 2) + 1
        If Sheets("faktura").Cells(varLøkke, 22) = 0 Then
            Sheets("forfald").Cells(varLøkke2 + 9, 1) = Sheets("faktura").Cells(varLøkke, 1)
            Sheets("forfald").Cells(varLøkke2 + 9, 2) = Sheets("faktura").Cells(varLøkke, 5)
            Sheets("forfald").Cells(varLøkke2 + 9, 3) = Sheets("faktura").Cells(varLøkke, 10)
            Sheets("forfald").Cells(varLøkke2 + 9, 4) = Sheets("faktura").Cells(varLøkke, 12)
            varBeløb = Sheets("faktura").Cells(varLøkke, 11) * Sheets("faktura").Cells(varLøkke, 12) / 100
            varBeløb = varBeløb - Sheets("faktura").Cells(varLøkke, 14) - Sheets("faktura").Cells(varLøkke, 15) - Sheets("faktura").Cells(varLøkke, 16) - Sheets("faktura").Cells(varLøkke, 17)
            varBeløb = varBeløb
            If Sheets("kunde").Cells(8, 2) = 0 Then
                Sheets("forfald").Cells(varLøkke2 + 9, 5) = 0
            Else
                Sheets("forfald").Cells(varLøkke2 + 9, 5) = varBeløb * (100 - Sheets("faktura").Cells(varLøkke, 13)) / 100
            End If
            Sheets("forfald").Cells(varLøkke2 + 9, 6) = Sheets("faktura").Cells(varLøkke, 4)
            Sheets("forfald").Cells(varLøkke2 + 9, 7) = varBeløb
            If Sheets("faktura").Cells(varLøkke, 4) < Now Then
                Sheets("forfald").Cells(varLøkke2 + 9, 8) = varBeløb
            End If
            varLøkke2 = varLøkke2 + 1
        End If
    Next
    Sheets("forfald").Select
    Range("A2").Select
    Sheets("forfald").Select
    frmFaktura.Hide
End Sub

Jeg kan lige knytte en yderligere kommentar. Hele scriptet virker som sådan. Det er blot at den ikke skifter til arket "Forfald", men til arket "Faktura".
Når jeg kører scriptet anden eller 3-4 gang virker det fint. Det er mig derfor en gåde.

Der er (så vidt jeg kan se) ikke noget her der gør at den skifter til Faktura eller ikke skulle virke, men det kan jo ligger i en af de to sub's du ellers kører i denne sub. hermed mener jeg
TælFakturaer
SorterForfald

prøv at vise disse også

Nu er jeg ikke en haj udi vba, men kan det ikke skyldes, at du ikke aktiverer det ark, du har valgt?

Du har jo sat "Application.ScreenUpdating = False" først i rutinen, og den bliver, så vidt jeg kan se, ikke slået til igen.

Så, undskyld ventetiden, men nu er jeg på "pinden igen".
Jeg har forsøgt at gøre nogle af linierne inaktive, men problemet er stadig det samme. 1. gang jeg klikker på knappen når filen er åbnet, "Hider" den Formen, men den skifter ikke til arket "Forfald". Hermed den nye kode:

Private Sub cmdForfald_Click()
'    subGemFaktura '
    Sheets("forside").Select
'    Application.ScreenUpdating = False
    Sheets("Forfald").Select
    Range("A11:H8000").Select
    Selection.ClearContents
'    TælFakturaer
'    SorterForfald
    Sheets("forfald").Select
    varLøkke2 = 2
    For varLøkke = 2 To Sheets("kunde").Cells(21, 2) + 1
        If Sheets("faktura").Cells(varLøkke, 22) = 0 Then
            Sheets("forfald").Cells(varLøkke2 + 9, 1) = Sheets("faktura").Cells(varLøkke, 1)
            Sheets("forfald").Cells(varLøkke2 + 9, 2) = Sheets("faktura").Cells(varLøkke, 5)
            Sheets("forfald").Cells(varLøkke2 + 9, 3) = Sheets("faktura").Cells(varLøkke, 10)
            Sheets("forfald").Cells(varLøkke2 + 9, 4) = Sheets("faktura").Cells(varLøkke, 12)
            varBeløb = Sheets("faktura").Cells(varLøkke, 11) * Sheets("faktura").Cells(varLøkke, 12) / 100
            varBeløb = varBeløb - Sheets("faktura").Cells(varLøkke, 14) - Sheets("faktura").Cells(varLøkke, 15) - Sheets("faktura").Cells(varLøkke, 16) - Sheets("faktura").Cells(varLøkke, 17)
            varBeløb = varBeløb
            If Sheets("kunde").Cells(8, 2) = 0 Then
                Sheets("forfald").Cells(varLøkke2 + 9, 5) = 0
            Else
                Sheets("forfald").Cells(varLøkke2 + 9, 5) = varBeløb * (100 - Sheets("faktura").Cells(varLøkke, 13)) / 100
            End If
            Sheets("forfald").Cells(varLøkke2 + 9, 6) = Sheets("faktura").Cells(varLøkke, 4)
            Sheets("forfald").Cells(varLøkke2 + 9, 7) = varBeløb
            If Sheets("faktura").Cells(varLøkke, 4) < Now Then
                Sheets("forfald").Cells(varLøkke2 + 9, 8) = varBeløb
            End If
            varLøkke2 = varLøkke2 + 1
        End If
    Next
'    Application.ScreenUpdating = True
    Sheets("forfald").Select
    Range("A2").Select
    Sheets("forfald").Select
    frmFaktura.Hide
End Sub

Ja, det ser s.. mærkeligt ud. der er jo ikke fordi den ikke er selected, for det gør du jo 3 gange.
prøv lige at udskifte

frmFaktura.Hide

med

Unload me

alternativt kunne man måske flytte den sidste 'Sheets("forfald").Select' ned efter 'frmFaktura.Hide' ?

Jeg er ked af det, men det virker stadig ikke. Unload me lukker selve regnearket, og det er det samme selv om rækkefølgen er uændret. Det er mig lidt en gåde.

Nej sludder. Selv om rækkefølgen er ændret.

bak> kan problemet løses ved at ændre .Select til .Activate?

Er også prøvet.

Som sagt er det kun 1. gang knappen aktiveres. De efterfølgende gange er det ok.

Jeg skrev godt Unload me, men mente Unload frmFaktura.

hvis du ikke har puttet for mange data i, er du velkommen til at sende det til

tommybak@netscape.net

Jeg troede lige at det virkede, men den lukkede også hele arket ned, og ikke kun formen.

Jeg kan godt få den til at spille, men, men, men
der er noget struktur den bør ændres lidt ved.

I Thisworkbook i sub workbook.open skal du inaktivere linien
SorterFakturanummer
da det er den der får den til at springe tilbage til forsiden

der er også nogle andre ting der med fordel kunne optimeres, men det vender jeg tilbage med. :-)

Alle tiders Tommy. Jeg vil gerne have mange input. Jeg har kun arbejdet 3 måneder med VBA så alt hjælp modtages med tak.

et svar :-)

Tak for hjælpen