[Excel] Riempimento automatico formulario

[Spaolithos]

Volevo automatizzare un po' il lavoro in ufficio, in particolare per quanto riguarda le schede che devo compilare per le trasferte (e relativi rimborsi) compiute dai miei colleghi.

Riportato in un foglio di Excel uno schema dove compaiono i campi: Nome, Cognome, Qualifica, Luogo e data della trasferta, ecc. ecc. in un altro foglio, vorrei immettere tutti questi medesimi campi suddivisi per colonna, e poi sotto -riga per riga- inserire i dati. Ogni riga viene contraddistinta da un numero progressivo che identifica in modo univoco la pratica.

Qui viene la domanda: inseriti tutti i dati di una riga, come posso far sì che nel foglio dello schema, inserendo il solo numero di pratica, i campi si riempano automaticamente?

[ciro78]

sinceramente non ho ben capito cosa vuoi fare. ho solo capito che intendi automatizzare un processo.

magari con un esempio qualcosa riusciamo a combinarlo

[Spaolithos]

OK! Vedo di spiegarmi meglio...
Immagina due fogli di Excel: uno dove si inseriscono i dati, in riga:

numero pratica | nome | cognome | qualifica | ecc. ecc.

Nel secondo foglio, quello del modulo, vorrei che andando ad inserire il solo campo "N° pratica" mi si riempano in automatico gli altri, richiamandoli dalle celle (stessa riga) del primo foglio.

[ciro78]

ora ho capito ma no nè capisco l'utilità
in pratica non fai altro che copiare un'intera riga di un foglio excel dico bene?


a questp punto potresti farlo pure in access e creare poi un report

[Spaolithos]

L'utilità lasciala giudicare a me.
Comunque sì, devo fare quanto dici: copiare i dati di una riga.


PS: purtroppo in ufficio abbiamo la versione SBE di Office... quindi niente Access.

[chimera]

se ho capito il tuo problema basta andare sulla/e cella che ti interessa premere = e cliccare la cella di partenza

[Spaolithos]

Devo copiare i dati di una riga di un altro foglio, ma dinamicamente!
Se immetto il valore 1 nel foglio dello schema, mi riempirà le celle con i dati della riga 1, ma se immetto 10, mi dovrà aggiornare gli stessi con i dati della riga 10. Spero di essermi spiegato.

[Lathspell]

se le righe da copiare sono sequenziali, e quindi il foglio presenta i numeri di pratica da 1 a n, basta usare la funzione INDIRETTO, la quale pesca una cella a seconda di riferimenti alfanumerici forniti:

supponendo un foglio così:
1 | Gigi |
2 | Mauro
3 | Clara

nella seconda colonna del foglio su cui lavori scrivberai:
=INDIRETTO("Foglio1.B" & (A1))

A1 sarà il riferimento numerico, e questa funzione carica il valore dalla cella B(A1).

[ciro78]

considerando che piove e non sono potuto andare al mare ho realizzato 4 righe di codice per ovviare al tuo problema.
le righe con // sono dei commenti ma presumo tu sia pratico di vba
tutto il codice va messo in vba editor(alt f11) foglio 2

//nella parte generale
Public x As Integer
Public valorecella As Integer
Public campo1 As String
Public campo2 As String

//selezionando la funzione Worksheet_SelectionChange dal menu a tendina a sinistra in alto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Copia_Dati
End If
End Sub

//dove ti pare basta che fai copia incolla
Public Sub Copia_Dati()
For i = 2 To 50
  If Cells(i, 1).Value <> "" Then
    valorecella = Cells(i, 1).Value
    x = 2
    Do
      If Sheets("Foglio1").Cells(x, 1).Value = valorecella Then
        campo1 = Sheets("Foglio1").Cells(x, 2).Value
        campo2 = Sheets("Foglio1").Cells(x, 3).Value
        ActiveWorkbook.Worksheets("Foglio2").Activate
        Cells(i, 2) = campo1
        Cells(i, 3) = campo2
        Exit Do
      Else
        x = x + 1
      End If
    Loop Until Sheets("Foglio1").Cells(x, 1).Value = ""
  End If
Next i
End Sub 

il codice non è perfetto anzi poi magari ci torno sopra e faccio modifiche...
inoltre non sapendo bene il tuo foglio come è composto ho provato ad improvvisare. nel mio caso considero solo due campi da copiare(due colonne) e inoltre avevo inserito pure un menu a discesa in modo da selezionare solo numeri riga eistenti

se vuoi mi puoi mandare il foglio excel con una sola riga e io ti metto il codice

ps l'errore + grossolano è quello del ciclo next in quanto mi controlla solo le prime 50 righe(facilmente aumentabili)

a presto

[Spaolithos]

Ti ringrazio Ciro! Hai fatto anche troppo.
Quando rientro in ufficio provo con le soluzioni che mi avete proposto.
Per adesso grazie infinite!