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

Ennek a témakörnek tartalma 3 hozzászólás, 2 résztvevő. Utolsó frissítés:  Titok 1 hét, 3 napja telt el a bejegyzés óta.

4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #5216

    Potus
    Résztvevő

    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!

    #5220

    Titok
    Résztvevő

    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.

    #5226

    Potus
    Résztvevő

    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

    #5231

    Titok
    Résztvevő

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

4 bejegyzés megtekintése - 1-4 / 4

Be kell jelentkezni a hozzászóláshoz.