Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #18337 Sziszmisz csendes tag
    Új Válasz #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. :R

    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