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

• #29773 Szicskeee tag

  Új Válasz 2015-12-09 11:07:18 #29773

  Ú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

  

  Szicskeee

  tag

  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").Activate
  Range("A1:O39").Select
  Selection.PrintOut Copies:=1, Collate:=True
  
  End If
  End Sub

  Valai meg tudja mondani miert kapok hibat Range("A1: O39").Select -nel?

  Annyi a lenyeg, hogy 1 masik sheet-rol akarom kinyomtatni A1: O39 ig a cellakat.
  Probalkoztam mar azzal is, hogy a masik sheeten (Prem1) csinaltam egy nyomtati gombot. es itt az else be ezzel a parancsal : Call Prem1.CommandButton1_Click meghivtam de az is hibat adott.

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