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

• #18345 Sziszmisz csendes tag Delila_1 #18341

  Új Válasz 2013-06-21 14:42:23 #18345

  Ú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

  

  Sziszmisz

  csendes tag

  válasz Delila_1 #18341 üzenetére

  Próbáltam összerakni amit írsz, de nekem hibát ír ki.
  Biztosan én szúrtam el valamit, csak tudnám hogy mit....

  Sub proba()
  '
  ' proba Makró
  '
  ' Billentyűparancs: Ctrl+p
  '
  Range("A1") = "név"
  Range("B1") = "megnevezés"

  Dim WS As Worksheet
  Set WS = Workbook("ARTE.xls").Sheets("Munka1")
  Range("B2") = WS.Range("A1")

  With Range("A1:G2").Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With
  Range("C1").Font.Underline = xlUnderlineStyleSingle

  End Sub

  Esetleg ki tudnál javítani?

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