Telefonszámunk: 1-472-0679

[Resolved] TEXTBOX TARTALMÁNAK BEVITELE EGYSZERRE TÖBB CELLÁBA

Kezdőlap › Fórumok › Excel programozás › [Resolved] TEXTBOX TARTALMÁNAK BEVITELE EGYSZERRE TÖBB CELLÁBA

Topic Resolution: Resolved
4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • 2018-11-04-09:25 #5216
    Potus
    Felhasználó

      Sziasztok!
      Van egy userform aminek segítségével adatokat viszek fel egy táblázatba. Beosztást. Van rajta 7 textbox ami a dátumokat tartalmazza, 7 textbox ami a beosztást. Van olyan, hogy egy hét 5 napján ugyanúgy dolgozom. Meg lehet azt oldani, hogy csak egy textbox-ba írom be az időpontot és azt „szétszorom” több cellába? Vagy a szabadnapot, ami általában heti 2 nap, csak az egyik textboxba írnám be és az megjelenne két cellában is?
      Hogyan lehetne kiválasztani az adott napokat, ahova az azonos adatok kerülnének?

      Private Sub cmdBeo_Click()
      Dim sor As Integer
      Dim WS As Worksheet
      Set WS = Worksheets(„beoszt?s”)
      sor = WS.Cells.Range(„b21:ad110″).Find(What:=”*”, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
      WS.Cells(sor, 4).Value = Me.txtH.Value
      WS.Cells(sor, 8).Value = Me.txtK.Value
      WS.Cells(sor, 12).Value = Me.txtSze.Value
      WS.Cells(sor, 16).Value = Me.txtCs.Value
      WS.Cells(sor, 20).Value = Me.txtP.Value
      WS.Cells(sor, 24).Value = Me.txtSzo.Value
      WS.Cells(sor, 28).Value = Me.txtV.Value
      WS.Cells(sor, 6).Value = Me.TextBox2.Value
      WS.Cells(sor, 10).Value = Me.TextBox3.Value
      WS.Cells(sor, 14).Value = Me.TextBox4.Value
      WS.Cells(sor, 18).Value = Me.TextBox5.Value
      WS.Cells(sor, 22).Value = Me.TextBox6.Value
      WS.Cells(sor, 26).Value = Me.TextBox7.Value
      WS.Cells(sor, 30).Value = Me.TextBox8.Value
      WS.Cells(sor, 2).Value = Me.txtWeek.Value
      msgbox „Ber?gz?tve”, vbOKOnly
      Me.txtH.Value = „”
      Me.txtK.Value = „”
      Me.txtSze.Value = „”
      Me.txtCs.Value = „”
      Me.txtP.Value = „”
      Me.txtSzo.Value = „”
      Me.txtV.Value = „”
      Me.TextBox2.Value = „”
      Me.TextBox3.Value = „”
      Me.TextBox4.Value = „”
      Me.TextBox5.Value = „”
      Me.TextBox6.Value = „”
      Me.TextBox7.Value = „”
      Me.TextBox8.Value = „”
      Me.txtWeek.Value = „”
      Me.txtH.SetFocus

      Unload Me

      End Sub

      Előre is köszönök minden segítséget!

      2018-11-06-15:47 #5220
      Titok
      Felhasználó

        Egy jelölőt berakhatnál a formra, ami ha be van ixelve, akkor a hétfői lesz a K,Sz,Cs,P is.
        A két szabadnap az gondolom a Szo V lenne. Arra is raknék egy jelölőt, akkor ott berakná, hogy szabadnap.

        2018-11-07-14:37 #5226
        Potus
        Felhasználó

          Abszolút amatőrként valójában egy complett kódot vártam volna 😀 😀 😀
          De így is tökéletes. Köszi az ötletet… Kikisérletezgettem a kódot és mükődik. Legalább most is tanultam valamit. 😀
          Sajnos nem olyan helyen dolgozom ahol ez a mondat „A két szabadnap az gondolom a Szo V lenne.” megállná a helyét 😀
          ime a kód, gondolom elég bonyolultra sikerült, biztosan van egyszerűbb verzió is :
          Private Sub cmdBeo_Click()
          Dim sor As Integer
          Dim WS As Worksheet
          Set WS = Worksheets(„beoszt?s”)
          sor = WS.Cells.Range(„b21:ag110″).Find(What:=”*”, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
          If ChbH = True Then
          WS.Cells(sor, 6).Value = Me.TxtCopy.Value
          ElseIf ChbFreeH = True Then
          WS.Cells(sor, 6).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 6).Value = Me.TextBox2.Value
          End If
          If ChbK = True Then
          WS.Cells(sor, 10).Value = Me.TxtCopy.Value
          ElseIf ChbFreeK = True Then
          WS.Cells(sor, 10).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 10).Value = Me.TextBox3.Value
          End If
          If ChbSze = True Then
          WS.Cells(sor, 14).Value = Me.TxtCopy.Value
          ElseIf ChbFreeSze = True Then
          WS.Cells(sor, 14).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 14).Value = Me.TextBox4.Value
          End If
          If ChbCs = True Then
          WS.Cells(sor, 18).Value = Me.TxtCopy.Value
          ElseIf ChbFreeCs = True Then
          WS.Cells(sor, 18).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 18).Value = Me.TextBox5.Value
          End If
          If ChbP = True Then
          WS.Cells(sor, 22) = Me.TxtCopy.Value
          ElseIf ChbFreeP = True Then
          WS.Cells(sor, 22).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 22).Value = Me.TextBox6.Value
          End If
          If ChbSzo = True Then
          WS.Cells(sor, 26).Value = Me.TxtCopy.Value
          ElseIf ChbFreeSzo = True Then
          WS.Cells(sor, 26).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 26).Value = Me.TextBox7.Value
          End If
          If ChbV = True Then
          WS.Cells(sor, 30).Value = Me.TxtCopy.Value
          ElseIf ChbFreeV = True Then
          WS.Cells(sor, 30).Value = Me.TxtFree.Value
          Else: WS.Cells(sor, 30).Value = Me.TextBox8.Value
          End If
          WS.Cells(sor, 4).Value = Me.txtH.Value
          ‘WS.Cells(sor, 8).Value = Me.txtK.Value
          ‘WS.Cells(sor, 12).Value = Me.txtSze.Value
          ‘WS.Cells(sor, 16).Value = Me.txtCs.Value
          ‘WS.Cells(sor, 20).Value = Me.txtP.Value
          ‘WS.Cells(sor, 24).Value = Me.txtSzo.Value
          ‘WS.Cells(sor, 28).Value = Me.txtV.Value
          ‘WS.Cells(sor, 6).Value = Me.TextBox2.Value
          ‘WS.Cells(sor, 10).Value = Me.TextBox3.Value
          ‘WS.Cells(sor, 14).Value = Me.TextBox4.Value
          ‘WS.Cells(sor, 18).Value = Me.TextBox5.Value
          ‘WS.Cells(sor, 22).Value = Me.TextBox6.Value
          ‘WS.Cells(sor, 26).Value = Me.TextBox7.Value
          ‘WS.Cells(sor, 30).Value = Me.TextBox8.Value
          WS.Cells(sor, 2).Value = Me.txtWeek.Value
          WS.Cells(sor, 32).Value = Me.TxtCopy.Value
          WS.Cells(sor, 33).Value = Me.TxtFree.Value
          msgbox „r?gz?tve”, vbOKOnly
          Me.txtH.Value = „”
          ‘Me.txtK.Value = „”
          ‘Me.txtSze.Value = „”
          ‘Me.txtCs.Value = „”
          ‘Me.txtP.Value = „”
          ‘Me.txtSzo.Value = „”
          ‘Me.txtV.Value = „”
          Me.TextBox2.Value = „”
          Me.TextBox3.Value = „”
          Me.TextBox4.Value = „”
          Me.TextBox5.Value = „”
          Me.TextBox6.Value = „”
          Me.TextBox7.Value = „”
          Me.TextBox8.Value = „”
          Me.txtWeek.Value = „”
          Me.TxtCopy.Value = „”
          Me.TxtFree.Value = „”
          Me.txtH.SetFocus

          Unload Me

          End Sub

          2018-11-08-14:19 #5231
          Titok
          Felhasználó

            A Case-t nem akarod megtanulni a sok if helyett? 🙂

          • Szerző
            Bejegyzés
          4 bejegyzés megtekintése - 1-4 / 4
          • Be kell jelentkezni a hozzászóláshoz.