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

• #50012 Fferi50 Topikgazda istvankeresz #50008

  Új Válasz 2022-11-23 16:30:32 #50012

  Ú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

  

  Fferi50

  Topikgazda

  válasz istvankeresz #50008 üzenetére

  Szia!
  Egy minta makrórész:
  Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsFound = True
For Each wsSearch In ActiveWorkbook.Sheets
    If wsSearch.Name = TextBox11.Value Then
       answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
       wsFound = answer = vbYes
    End If
Next
If wsFound Then
    Sheets("Szemely_TEMPLATE").Copy After:=Sheets("Havi_TEMPLATE")
    With ActiveSheet
      .Name = TextBox11.Value & 2
      .Range("A2") = TextBox11.Value & " " & ComboBox7.Value
      .Range("B2") = TextBox12.Value
      .Range("C2") = TextBox13.Value
      .Range("D2") = TextBox14.Value
    End With
    MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
TextBox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
  A Combobox Additem tulajdonságát nézd meg a forrás frissítésre.
  Üdv.

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