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

• #50009 Fferi50 őstag istvankeresz #50008

  Új Válasz 2022-11-23 15:51:53 #50009

  Ú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

  őstag

  válasz istvankeresz #50008 üzenetére

  Szia!
  Én az ugrálást egyáltalán nem támogatom.
  A Combobox forrását (List tulajdonság) lehet frissíteni vba-ból is, nem kell azért bezárni a munkalapot.
  Én bevezetnék egy változót, amivel jelölném a találatot.
  A ciklus elején True-ra állítom. Ha van már olyan munkalap, akkor jön a kérdés, ha létre kell hozni az új munkalapot, akkor marad True, ha nem, akkor False-ra állítom. A vizsgálat után kilépek a ciklusból. A ciklus után ha True a jelölő, akkor létrehozzuk a munkalapot, ha False, akkor nem kell létrehozni.
  Üdv.

• #50012 Fferi50 őstag 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

  őstag

  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