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

• #20177 bandus veterán the radish #20176

  Új Válasz 2014-01-20 20:05:43 #20177

  Ú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

  

  bandus

  veterán

  válasz the radish #20176 üzenetére

  Dim Answer As String
  Dim MyNote As String
  Dim Papirlap As String
  
  Papirlap=Worksheets("Munka1").Cells(1,1)
  
  
  'Place your text here
  MyNote = "Helyezz a nyomtatóba " & Papirlap & " papírt!"
  
  'Display MessageBox
  Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Lapok nyomtatása")
  
  If Answer = vbNo Then
  MsgBox "Akkor majd később.", vbInformation, "Ejnye-bejnye..."
  'Code for No button Press
  Else
  'Code for Yes button Press

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