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

• #23288 Delila_1 veterán bteebi #23287

  Új Válasz 2014-09-16 14:24:09 #23288

  Ú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 bteebi #23287 üzenetére

  Vázlat:

  Sub CsereBere()
  Kezd:
  cserelni = Application.InputBox("Mit cseréljek?", "Csere", , , , , , 2)
  If cserelni = False Then
  Exit Sub
  Else
  'Csere művelet
  GoTo Kezd
  End If
  End Sub

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