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

  • #13233 kokopeti csendes tag
    Új Válasz #13233
    Ú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

    kokopeti

    csendes tag

    Sziasztok!

    Megpróbálom érthetően elmagyarázni, hogy miben kérném a segítségeteket...(remélem sikerül :-P)

    Szóval:
    Excel 2003-ban űrlapo(ka)t hoztam létre párbeszédpanelen, mely egy nyilvántartó programhoz használnék. Van egy "Műszaki" elnevezésű panelem, amiben beviteli mezők vannak. (Név,Cím,Telefon...stb) Ezeket a beviteli mezőket a következőképpen neveztem el: (vevo_nev, vevo_cim, vevo_tel). Az űrlap kitöltése után a beviteli mezőkbe írt szöveget, értéket az "Adatok" nevű Munkalapra kellene átmásolni adott cellákba. Pl.: Név = A1 cella Cím=B1 cella Telefonszám=C1. Ha az adatokat átmásolta\helyezte, akkor törölje ki a kitöltött adatokat a beviteli mezőkből.

    Már a 4. napja szenvedek vele, de nem jövök rá a megoldásra.
    Indulásnak itt a makró amit elkezdtem, de nem tudom megoldani a működését :S

    Sub munkalap_Kattintáskor()
    Sheets("Adatok").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    sor = Selection.Rows.Count
    hova = sor + 1
    datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
    nev = Sheets("Műszaki").Cells(3, 2).Value
    cim = Sheets("Műszaki").Cells(4, 2).Value
    telefon = Sheets("Műszaki").Cells(5, 2).Value
    rendszam = Sheets("Műszaki").Cells(8, 2).Value
    muszaki = Sheets("Műszaki").Cells(16, 2).Value
    munka = Sheets("Műszaki").Cells(19, 2).Value
    megrendelo = Sheets("Műszaki").Cells(2, 3).Value
    auto = Sheets("Műszaki").Cells(10, 3).Value
    potdij = Sheets("Műszaki").Cells(17, 3).Value
    kedvezmeny = Sheets("Műszaki").Cells(21, 3).Value
    Sheets("Adatok").Cells(hova, 1) = datum
    Sheets("Adatok").Cells(hova, 2) = nev
    Sheets("Adatok").Cells(hova, 3) = cim
    Sheets("Adatok").Cells(hova, 4) = telefon
    Sheets("Adatok").Cells(hova, 5) = rendszam
    Sheets("Adatok").Cells(hova, 6) = munka
    Sheets("Adatok").Cells(hova, 7) = muszaki
    Sheets("Adatok").Cells(hova, 8) = megrendelo
    Sheets("Adatok").Cells(hova, 9) = auto
    Sheets("Adatok").Cells(hova, 10) = potdij
    Sheets("Adatok").Cells(hova, 11) = kedvezmeny
    Sheets("Munkalap_m").Select
    dlgAnswer = Application.Dialogs(xlDialogPrint).Show
    Sheets("Műszaki").Select
    Range("B2").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B4").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B5").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B6").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B11").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B12").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B13").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B14").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B15").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B16").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B17").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B18").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B20").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B21").Select
    ActiveCell.FormulaR1C1 = ""
    Sheets("Főoldal").Select
    End Sub

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