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

• #27320 Delila_1 veterán scott_free #27319

  Új Válasz 2015-06-12 12:21:03 #27320

  Ú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 scott_free #27319 üzenetére

  Különálló cellákról van szó? Ezeket kijelölve nevet adtam a tartománynak, a név "valami".

  Érték beillesztése a képletek helyére az elnevezett tartományban:

  Sub Ertek()
  Dim CV As Range
  For Each CV In Range("valami")
  CV.Copy
  CV.PasteSpecial xlPasteValues
  Next
  Application.CutCopyMode = False
  End Sub

  Az elnevezett tartomány nyomtatása:

  Sub Nyomtat()
  Application.Goto Reference:="valami"
  Selection.PrintOut Copies:=1
  End Sub

  Kijelölt tartomány nyomtatása:

  Sub Nyomtat()
  Selection.PrintOut Copies:=1
  End Sub

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