Hirdetés

Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz Pulsar #5968 üzenetére

    Még egy apróság:
    Ha tabulátorokkal tagolod a makrót, sokkal áttekinthetőbb lesz, az esetleges hibákat is könnyebb megtalálni benne. Érdemes megjegyzéseket beírni az egyes sorokhoz a későbbi módosítás megkönnyítéséhez. Valahogy így:

    Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False

    If CheckBox1.Value = True Then
    Application.Run ("masolas_adat")
    Application.Run ("reogitesreceiving")
    Application.Run ("reogitesvisual")
    Application.Run ("reogitesquicktest")
    Application.Run ("reogitesfct")
    Else
    'Application.Run ("masolas_adat") Nem kell, ha a CheckBox1 jelöletlen
    Application.Run ("reogitesreceiving")
    Application.Run ("reogitesvisual")
    Application.Run ("reogitesquicktest")
    Application.Run ("reogitesfct")
    End If

    Application.ScreenUpdating = True
    End Sub

Új hozzászólás Aktív témák