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

• #5971 Delila_1 veterán Pulsar #5968

  Új Válasz 2010-01-12 09:53:42 #5971

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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