Visualizzazione celle in Userform

Question

Salve a tutti,

anche oggi avrei bisogno del vostro gentile aiuto.

Cercherò di spiegare al meglio il mio quesito..

In una Userform ho due textbox e un commandbutton.

Nella prima textbox inserisco un numero/testo e nella seconda textbox inserisco solo testo, nel command button è presente un codice che splitta il testo, cioè mi divide il testo ogni volta che trova il trattino "-" (esempio: docu1-docu2-docu3 ecc, uscirà nel foglio in celle una a seguito dell'altra Esempio2 : docu1-docu2-docu3 ecc >>>>>>> cella B50 docu1,cella B51 docu2, cella B52 docu3 ecc e nelle celle A50, A51, A52 ecc uscirà il numero/testo che ho scritto nella textbox1).

Arrivo al nocciolo... nella colonna C dovrei inserire altri dati e purtroppo non so quanti valori (docu1-docu2-docu3 ecc) verranno inseriti ogni volta. L'unica cosa è che ogni valore è diverso (esempio: cella B50 docu1, cella C50 2000; cella B51 docu2, cella C51 200; cella B52 docu3, cella C52 1260 ecc).

In conclusione...sarebbe possibile visualizzare tante celle della colonna C (a partire da C50) tante quante sono le celle contenenti valore della colonna B o A nella userform in modo da inserire i dati (nella userform) e successivamente riportarli nel foglio?

Vi allego file così potete capire di cosa stia parlando :)

Scusate i tanti giri di parole e grazie per la vostra disponibilità.

Link al file: https://we.tl/t-Rbx3rgVuGa

Answer 1

Ciao Sol39,

potresti gentilmente farmi un esempio, se possibile col mio file?

Inserisci un Terzo controllo TextBox (TextBox3) sulla Userform e sostituisci il tuo codice con la seguente versione in cui le modifiche sono evidenziate in grassetto:

'=========>>

Option Explicit

'--------->>

Private Sub CommandButton1_Click()

    Dim LString As String, LArray() As String

    Dim PString As String, PArray() As String

    Dim LastRow As Long

    Dim i

    Dim sh1 As Worksheet

    Set sh1 = ThisWorkbook.Sheets("Sheet1")

    LString = **Me.**TextBox2.Text

    LArray = Split(LString, "-")

    PString = Me.TextBox3.Text

PArray = Split(PString, "-")

    With sh1

        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

        For i = 0 To UBound(LArray)

            .Range("B" & LastRow + i) = LArray(i)

            .Range("C" & LastRow + i) = PArray(i)

            .Range("A" & LastRow + i) = **Me.**TextBox1.Text

        Next i

    End With

End Sub

'<<=========

Potresti scaricare il mio file di prova sol20190711

===

Regards,

Norman

Answer 2

Tanto facile quanto difficile (per me)

Ho proprio bisogno di una vacanza...

Grazie mille Norman e buona giornata.... :D

Answer 3

Ciao Norman,

potresti gentilmente farmi un esempio, se possibile col mio file?

Grazie mille della disponibilità

Answer 4

Ciao Sol39,

Cercherò di spiegare al meglio il mio quesito..

In una Userform ho due textbox e un commandbutton. 

Nella prima textbox inserisco un numero/testo e nella seconda textbox inserisco solo testo, nel command button è presente un codice che splitta il testo, cioè mi divide il testo ogni volta che trova il trattino "-" (esempio: docu1-docu2-docu3 ecc, uscirà nel foglio in celle una a seguito dell'altra Esempio2 : docu1-docu2-docu3 ecc >>>>>>> cella B50 docu1,cella B51 docu2, cella B52 docu3 ecc e nelle celle A50, A51, A52 ecc uscirà il numero/testo che ho scritto nella textbox1).

Arrivo al nocciolo... nella colonna C dovrei inserire altri dati e purtroppo non so quanti valori (docu1-docu2-docu3 ecc) verranno inseriti ogni volta. L'unica cosa è che ogni valore è diverso (esempio: cella B50 docu1, cella C50 2000; cella B51 docu2, cella C51 200; cella B52 docu3, cella C52 1260 ecc).

In conclusione...sarebbe possibile visualizzare tante celle della colonna C (a partire da C50) tante quante sono le celle contenenti valore della colonna B o A nella userform in modo da inserire i dati (nella userform) e successivamente riportarli nel foglio?

Vi allego file così potete capire di cosa stia parlando :)

Scusate i tanti giri di parole e grazie per la vostra disponibilità.

Link al file: https://we.tl/t-Rbx3rgVuGa

Forse non ho capito appieno le tue esigenze ma, la soluzione più semplice non sarebbe quella di aggiungere un terzo controllo TextBox sulla tua Userform? In questo modo, il contenuto proposto della colonna C potrebbe essere inserito nel terzo controllo TextBox, sempre separato da trattini e i dati potrebbero essere divisi e inseriti nella colonna C nello stesso modo in cui dividi i contenuti del secondo TextBox per popolare la colonna B

===

Regards,

Norman

Answer 5

Ciao Sol39,

siamo qui per aiutarti con Userform in Excel.

Per poter ricevere assistenza da un team di esperti che attraverso il loro strumenti saranno in grado di fornirti una soluzione veloce e completa, oltre ad attendere i preziosi consigli dei nostri MVP e dei numerosi utenti della nostra Community,  ti consiglio  di pubblicare il tuo post sul forum dedicato di Technet che puoi trovare in questo link. I nostri esperti saranno pronti in breve tempo a rispondere a tutte le tue domande sulla formula da te richiesta!

Per qualsiasi altro dubbio o domanda siamo sempre qui per te!

Ti auguro una buona giornata!

Claudia