Oprette bogføringsfil og slette nul linjer i bogføringsfilen

Lidt VBA-kode skulle nok kunne klare dette
Hvis du kan sende filen - eller model - så kan jeg forsøge
Du har vist min mailadresse fra tidligere - ellers www.supertekst-it.dk | Kontakt

Hej Supertekst og TheresaD

Hvorfor ikke anvende Dropbox, så andre også kan følge med og måske lære noget af de gode tips??????

VBA-koden skal nok blive vist

Her den:

Indsat i "Denne Projektmappe"

Const ark1 = "Bogf. 1"
Const ark2 = "Bogf. 2"
Public Sub SletRækkeG_HvisNul()
    nulTest ark1
    nulTest ark2
   
    MsgBox "Gennemløb afsluttet!"
End Sub
Private Sub nulTest(ark)
Dim antalRækker As Long
    Sheets(ark).Activate
   
    antalRækker = Cells(Rows.Count, "G").End(xlUp).Row
   
    For ræk = antalRækker To 3 Step -1
        If Cells(ræk, 7) = "" And Cells(ræk, 8) = "" Then
            sletRække ræk
        Else
            If Cells(ræk, 7) - Cells(ræk, 8) = 0 Then
                sletRække ræk
            End If
        End If
    Next ræk
End Sub
Private Sub sletRække(rækkeNr)
    Application.ScreenUpdating = False
   
    With ActiveSheet
        .Rows(rækkeNr).Delete
    End With
End Sub

Piece of cake i Access :-) ..også at danne csv-filen.