macro code vereenvoudigen

[HSV]

Zo jammer dat er niet gekeken wordt naar de geboden codes.
Ze stellen een vraag , maar leren er niets van.

 

[edmoor]

Wat er gebeurt is dat geboden code klakkeloos wordt overgenomen zonder dat men kijkt waarom die code zo in elkaar gestoken is. Vervolgens worden delen van de geboden code in andere code geplakt waardoor de structuur van de geboden code niet meer klopt.
En dan komt men klagen dat het niet werkt.

 

[gerenmarly]

Hoi edmoor en HSV
heb de hele dag liggen piekeren en nog eens de code's doorlopen
ik probeer ze te snappen en heb het volgende gedaan

Sub Opslaan()
    With Sheets("werkorder 1")
        If .Range("C5").Value = "" Then
            Application.GoTo .Range("C5")
            MsgBox ("          Voor opslaan eerst Machine nummer invullen.")
        Else
            Sheets("werkorder 1").Range("F1").Value = Now
            Application.DisplayAlerts = False
            ThisWorkbook.SaveAs "C:\Rekenstaat" & .Range("C5").Value & ".xlsm", FileFormat:=52
            Application.GoTo Range("J16")
            Application.DisplayAlerts = True
        End If
    End With
End Sub

op deze mannier werkt hij ook, beter dan ik verwacht had eigelijk
ik probeer de code's wel te begrijpen en ze dan toe te passen
aldoende leert men is het gezegde

Ger