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

• #13244 Delila_1 veterán kokopeti #13233

  Új Válasz 2012-03-22 07:55:17 #13244

  Ú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

  

  Delila_1

  veterán

  válasz kokopeti #13233 üzenetére

  Tehetsz a Műszaki lapra egy gombot, ami indítja a UserFormot. A hozzá rendelt makró tartalmazza ugyanazt, amit a Workbook_Open. Ez arra jó, hogy ha bezártad a formot, a lapról is indíthatod.

• #13243 Delila_1 veterán kokopeti #13233

  Új Válasz 2012-03-22 07:44:51 #13243

  Ú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

  

  Delila_1

  veterán

  válasz kokopeti #13233 üzenetére

  Hozz létre egy UserForm-ot, aminek a neve legyen pl. Bevitel. Tedd fel rá a beviteli mezőket, és a gombot, ami indítja az adatok tárolását.

  A ThisWorkbook-hoz a

  Private Sub Workbook_Open()
  Sheets("Műszaki").Select
  Bevitel.Show False
  End Sub

  makró kerüljön, ami a füzet behívásakor indítja a UserForm-ot.

  A gombhoz ezt rendeld (gombon duplaklikk):

  Private Sub CommandButton1_Click()
  Dim WSA As Worksheet, hova As Long
  
  Set WSA = Sheets("Adatok")
  hova = WSA.Range("A65536").End(xlUp).Row + 1
  WSA.Cells(hova, 1) = vevo_nev.Text
  WSA.Cells(hova, 2) = vevo_cim.Text
  WSA.Cells(hova, 3) = vevo_tel.Text
  
  vevo_nev.Text = ""
  vevo_cim.Text = ""
  vevo_tel.Text = ""
  End Sub

• #13234 poffsoft veterán kokopeti #13233

  Új Válasz 2012-03-21 22:02:15 #13234

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13233 üzenetére

  Mondjuk én nem értek hozzá.
  De :
  változókat nem szoktuk definiálni a sub elején?
  továbbá szerintem a

  datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
  .
  .
  .
  Sheets("Adatok").Cells(hova, 1) = datum

  helyett a

  Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value

  is megfelelne...
  ja, meg ha a mezőket már elnevezted, miért nem névvel hivatkozol rájuk?
  Sheets("Adatok").Cells(hova, 2).Value = Range("vevo_nev").Value

  Törléshez is elég lenne csak a range value paraméterébe ""-t írni:
  Range("vevo_nev").Value =""

  Amúgy mi nem működik rajta? mi a hiba?

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