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

• #8558 Fire/SOUL/CD félisten m.zmrzlina #8557

  Új Válasz 2010-10-31 13:40:26 #8558

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz m.zmrzlina #8557 üzenetére

  Hali!

  Private Sub CommandButton1_Click()
  
  On Error Resume Next
  ActiveSheet.Paste
  If Err Then
  MsgBox "Nincs mit beilleszteni." + Chr(13) + "Végezd el a kijelölést!", vbCritical, "Figyelem !!!"
  Err.Clear
  Exit Sub
  End If
  
  'további utasítások (jó ág)
  
  End Sub

  Fire.

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