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

• #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

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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