VBA - hvad er det jeg overser - den gør ikke som forventet.
Jeg har en procedure som skriver nogle tankvognslæs ind i en ugeliste.Jeg skal blot have noget hjælp til hvis der er en uge uden læs…
Den skal gerne lave en afslutning , så mdet fremgår at der er lavet et udtræk i denne uge.
Mit problem består i at proceduren ikke som forventet skriver "ingen læs" ind i celle A3.
Så skulle den også gerne skrive udtrækstidspunktet ind i celle J1 - det gør den heller ikke.
Den starter afvikling af næste procedure op, og den fejler nemlig hvis der er ingen udtræk.
Først min kode der håndterer hvis der ikke blev fundet nogle læs:
If RowCountJC = 0 Then
MsgBox "Ingen rækker til JC fundet i udtrækket" & Chr(10) & "Proceduren afsluttes med ""Ingen læs""..."
NoLoads = True ' variablen bruges til at styre hvis ingen læs
GoTo Afslut
End If
'
' Herefter noget kode der indskriver de fundne læs
' i de uger der kommer nogle læs.
'
' Herefter kommer mit bogmærke hvor afslutningen laves
Afslut:
Range("A3").Select
If NoLoads = True Then
Range("A3").Value = "ingen læs"
End If
Range("J1").Value = "Udtræk genereret " & Format(Date, "dddd yyyy-mm-dd") & " kl. " & RoundedTime(Now) & " af " & UCase(WindowsUserInit())
Range("A3").Select
' jeg lukker data-udtræks-filen uden at spørge om der skal gemmes
Workbooks(DataFileName).Saved = True
Workbooks(DataFileName).Close
NewTransferOnly ' vi kører en separat procedure til at indskrive i råvarearregnskabet - Vi kører også denne procedure selvstænding når vi vil overføre redigerede data til råvarearket.
End Sub
MsgBox "Ingen rækker til JC fundet i udtrækket" & Chr(10) & "Proceduren afsluttes med ""Ingen læs""..."
NoLoads = True ' variablen bruges til at styre hvis ingen læs
GoTo Afslut
End If
'
' Herefter noget kode der indskriver de fundne læs
' i de uger der kommer nogle læs.
'
' Herefter kommer mit bogmærke hvor afslutningen laves
Afslut:
Range("A3").Select
If NoLoads = True Then
Range("A3").Value = "ingen læs"
End If
Range("J1").Value = "Udtræk genereret " & Format(Date, "dddd yyyy-mm-dd") & " kl. " & RoundedTime(Now) & " af " & UCase(WindowsUserInit())
Range("A3").Select
' jeg lukker data-udtræks-filen uden at spørge om der skal gemmes
Workbooks(DataFileName).Saved = True
Workbooks(DataFileName).Close
NewTransferOnly ' vi kører en separat procedure til at indskrive i råvarearregnskabet - Vi kører også denne procedure selvstænding når vi vil overføre redigerede data til råvarearket.
End Sub
