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

• #20179 Mutt senior tag the radish #20176

  Új Válasz 2014-01-20 20:25:45 #20179

  Ú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

  

  Mutt

  senior tag

  válasz the radish #20176 üzenetére

  Hello,

  ... "X" ... legyen mondjuk a munka1 A1 celllában.

  MyNote = "Helyezz a nyomtatóba " & Sheets("Munka1").Range("A1") & " papírt!"

  üdv

• #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