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

• #5968 Pulsar veterán Delila_1 #5966

  Új Válasz 2010-01-12 09:35:36 #5968

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 #5966 üzenetére

  működik, köszönöm!

• #5967 Pulsar veterán Delila_1 #5966

  Új Válasz 2010-01-12 09:26:07 #5967

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 #5966 üzenetére

  van nyomógombom

  Tát ha így jó lenne:

  Private Sub CommandButton1_Click()
  If CheckBox1.Value = True Then
  
  Application.ScreenUpdating = False
  Application.Run ("masolas_adat")
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  
  Else
  Application.ScreenUpdating = False
  ' Application.Run ("masolas_adat") <--- vagy kitörlöm ezt a sor, mind1, csak így látványosabb
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  End If
  End Sub

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