Trasporto dati riga selezionata

Hai un problema con Excel?

Nuova discussione

Trasporto dati riga selezionata
di Sbizzy data: 17/03/2015 16:15:17
Ciao,

ho allegato un file d'esempio in cui, nel foglio1, ho una tabella con alcune info da riportare. Questi dati si trovano nella tabella del foglio2 (insieme ad altri che non servono, mentre invece ne manca una che devo mettere per forza a mano, ovvero "ORDINE"). Quello che mi servirebbe è una macro che, quando lo desidero (metterò un pulsante in foglio2), vada a considerare i dati della riga attualmente selezionata nel foglio2 e li copi nel foglio1, in modo che io possa completare la tabella inserendo solo l'ORDINE.

Ad esempio, se io ho la cella selezionata D5, avviando la macro copio tutti i dati (articolo, diametro, fornitore ecc.) della riga 5 nella tabella di foglio1, ovvero articolo: CCC, diametro: 14 e cosi via.

Grazie in anticipo, ciao.

di Lucas87 data: 17/03/2015 16:45:30
Ciao
Ecco qua.
Se ci sono più celle selezionate mostra un errore
Alla fine seleziona la cella B2 del foglio1 per inserire l'ordine

If Selection.Count = 1 Then
    r = Selection.Row
    With Sheets(1)
        .Range("b2:b7").ClearContents
        .Range("b1") = Cells(r, 4)
        .Range("b3") = Cells(r, 5)
        .Range("b4") = Cells(r, 1)
        .Range("b5") = Cells(r, 9)
        .Range("b6") = Cells(r, 10)
        .Range("b7") = Cells(r, 8)
        .Select
        .Range("b2").Select
    End With
Else
    MsgBox "Errore di selezione", vbCritical
End If

di Sbizzy data: 17/03/2015 17:39:19
Perfetto! Grazie per la velocissima risposta.

Ciao.

Vuoi Approfondire?