excel vba inserire riga con dati in tabella excel tramite command button userform

Question

buon giorno a tutti

Aiutato dalla community ,ho realizzato una userform con diverse TextBox e CommandButton ,che partendo dalla prima riga vuota di una tabella dati esistente (circa 1500 righe..) aggiunge tutti i dati necessari (Lista nominativi ....cognome nome data nascita ...etc ) .

Spesso capita che la riga di dati che si va' ad inserire ....anziche' essere  l'ultima della lista , dovrebbe essere ..... per ipotesi la nr. 482, chi digita i dati conosce la posizione di riga nel momento in cui va' ad inserire i dati .

Vorrei aggiungere una TextBox nella quale digitare il nr di riga dove devono essere riportati i dati  ... e  un  commandButton ...che inserisca la riga di dati nella posizione indicata nella TextBox ...... SPOSTANDO in basso di una riga tutte le righe esistenti ,compresi i dati che erano nella riga 482 (che diventa ..riga 483 ) .

.....si puo' fare .....??

Grazie per qualsoasi suggerimento           Claudio P

Answer 1

Questo codice inserisce una riga facendo slittare in basso quella riferita al valore inserito in TextBox1 e inserisce nella cella A valore di TextBox1 quanto contenuto in TextBox2:

Private Sub CommandButton1_Click()

Dim sh As Worksheet

    Dim sRiga As String

    Dim sTesto As String

    With Me

        sRiga = .TextBox1.Text

        sTesto = .TextBox2.Text

    End With

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        .Rows(sRiga & ":" & sRiga).Insert Shift:=xlDown

        .Range("A" & sRiga).Value = sTesto

    End With

    Set sh = Nothing

End Sub

Answer 2

Dipende sempre da cosa devi fare.

Nel caso, apri un altro post, condividi un file di esempio, spiega bene (bene bene) cosa vorresti fare.

Grazie.

Answer 3

ciao Mauro

GRAZIE ....... adesso faccio le prove

....domanda ....per ridurre il nr di TextBox (con queste sono 15 ....) dovrei usare delle ListBox ...o mi complico la vita .....

Ciao  e Grazie   Claudio P