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

• #29776 Delila_1 veterán Szicskeee #29773

  Új Válasz 2015-12-09 11:27:14 #29776

  Ú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 Szicskeee #29773 üzenetére

  Private Sub CommandButton14_Click()
  Dim iRet As Integer
  Dim strPrompt As String
  Dim strTitle As String
  strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
  
  strTitle = "Prémium"
  
  iRet = MsgBox(strPrompt, vbYesNo, strTitle)
  
  If iRet = vbNo Then
  MsgBox "Vége!"
  Else
  Worksheets("Prem1").Range("$A$1:$O$39").PrintOut Copies:=1, Collate:=True
  End If
  End Sub

  Szerk: elkéstem.

• #29774 bsh addikt Szicskeee #29773

  Új Válasz 2015-12-09 11:23:09 #29774

  Ú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

  

  bsh

  addikt

  válasz Szicskeee #29773 üzenetére

  gondolom azért, mert a range nem egyértelmű, az lehet bármely lapon vagy akár másik munkafüzetben is.
  meg kell neki mondani, hogy worksheets("Prem1").Range("A1:O39").Select, vagy ha már úgyis aktívvá tetted azt a lapot, akkor Activesheet.Range("A1:O39").Select

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