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

• #18337 Sziszmisz csendes tag

  Új Válasz 2013-06-21 13:06:14 #18337

  Ú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

  Sziasztok,

  Segítséget szeretnék kérni.

  Létrehoztam makrórögzítéssel az alábbi kódot és makró hozzárendeléssel hozzákötöttem egy pötyöslabda és egy csíkoslabda képhez a makrókat. Viszont nekem körülbelül 30 féle labdát kellene lekezeljek.

  A célom az lenne, hogy ha a pöttyöslabdára kattintok, akkor a pöttyöslabda.xls-ből, ha pedig a csíkosra akkor a csíkoslabda.xls-ből tegye az általam meghatározott cellába az adatot. Tehát a macskakörmök helyére.

  Egyenlőre az excelből-excelbe adat átviteli módét nagyon hálás lennék, hogy melyik cellából melyik cellába kellene menjen az adat, az további kérdés lesz, de megpróbálom megoldani ha sikerül ráéreznem a működésére..

  Minden jellegű segítségért hálás lennék, még elég kezdő vagyok makró szinten.

  Sub mentes()
  '
  ' mentes Makró
  '
  ' Billentyűparancs: Ctrl+y
  '
  Range("A1").Select
  ActiveCell.FormulaR1C1 = "név"
  Range("B1").Select
  ActiveCell.FormulaR1C1 = "megnevezés"
  Range("C1").Select
  ActiveCell.FormulaR1C1 = "mennyiségi egység"
  Range("D1").Select
  ActiveCell.FormulaR1C1 = "ár"
  Range("E1").Select
  ActiveCell.FormulaR1C1 = "z id"
  Range("F1").Select
  ActiveCell.FormulaR1C1 = "y id"
  Range("G1").Select
  ActiveCell.FormulaR1C1 = "y megnevezés"
  Range("H1").Select
  ActiveCell.FormulaR1C1 = "z megnevezés"
  Range("A1").Select
  With Selection.Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With
  Range("B1").Select
  With Selection.Font
  .Color = -16776961
  .TintAndShade = 0
  End With
  Range("C1").Select
  Selection.Font.Underline = xlUnderlineStyleSingle
  Range("D1").Select
  Selection.Font.Italic = True
  Range("E1").Select
  Selection.Font.Bold = True
  Range("H10").Select
  End Sub

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