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

• #25120 KaliJoe tag Polllen #25117

  Új Válasz 2015-01-21 08:27:55 #25120

  Ú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

  

  KaliJoe

  tag

  válasz Polllen #25117 üzenetére

  Szia Pollen és Delila_1,

  Azt hiszem az irány jó, de makacsul dobja a hibaüzeneteket, arra hivatkozva, h definiáljak változót. Készítettem Variant típusút, értékét az aktuális munkalapra irányítottam... de az nem érdekli, csak követel...

  ...
  Dim wsh_Űrlap As Variant
  
  wsh_Űrlap = Worksheets("Űrlap Nyomtatáshoz")
  ...
  If ActiveWindow.SelectedSheets.PrintPreview(wsh_Űrlap) = True Then
  Worksheets("Alapértékek").Select
  ActiveSheet.Unprotect
  Worksheets("Alapértékek").Cells(4, "J").Value = Worksheets("Űrlap Nyomtatáshoz").Cells(2, "M").Value + 1
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
  ...
  

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