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

• #13233 kokopeti csendes tag

  Új Válasz 2012-03-21 21:54:51 #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