Excel: macro per copiare valori in celle diverse

[sarkò]

Salve,
sono di nuovo a chiedervi aiuto. Avrei bisogno di una macro, se possibile, che, posizionando il corsure in una cella di una riga, mi copi alcuni dati da una cella ad un'altra, sempre della stessa riga.

In pratica, posizionando il cursore nella cella H3, eseguendo la macro, dovrei:
- copiare il valore della cella A1 in H3,
- scrivere "PAGATO" in I3,
- copiare il valore di F3 in J3.
Chiaramente la macro dovrebbe essere utilizzabile per qualsiasi riga del mio lungo elenco, posizionando il corsore nella cella della colonna H.
Troppo complicato? spero di no! Grazie.

[cosimocs]

Tutto si può fare (in informatica) ma se tu cambi cella
i valori da copiare sono sempre

il valore della cella A1 in H3,
scrivere "PAGATO" in I3,
copiare il valore di F3 in J3. :

[sarkò]

No, tutto dovrebbe dipendere dalla cella che io seleziono.
Se seleziono la cella H5, l'esecuzione della macro dovrebbe copiare A5 in H5; Scrivere "pagato" in I5; copiare F5 in J5.
Se seleziono H10; A10 in H10; "pagato" in I10; F10 in J10.
Se fosse possibile, questa macro mi eviterebbe di compilare manualmente, quando necessario, la parte destra dell'elenco.

[cosimocs]

Ho capito, ho già scritto qualcosa, ma aspettavo questa risposta,
il tutto funziona con un pulsante sul foglio ........ a più tradi

[cosimocs]

Così dovrebbe andare, non è il massimo ma con Excel non
me la cavo molto bene

Devi creare un Pulsante sul tuo foglio ed incollare
questo codice nell'evento Click

H = ActiveCell.Cells.Address 'Recupera l'indirizzo della cella destinazione

A = "$A$" & Mid(H, 4, 1) ' Crea la cella sorgente

F = "$F$" & Mid(H, 4, 1) ' Crea la cella sorgente F

J = "$J$" & Mid(H, 4, 1) ' Crea la cella destinazione J


Worksheets("foglio1").Range(A).Copy _
Destination:=Worksheets("foglio1").Range(H) ' Copia/incolla dalla cella A alla H

Worksheets("foglio1").Range(F).Copy _
Destination:=Worksheets("foglio1").Range(J) ' Copia/incolla dalla cella F ALLA J


ActiveCell.Offset(0, 1).Value = "Pagato" ' Scrive "Pagato" nella cella I

Oppure in una macro alla quale poi puoi associare un Pulsante di
comando da mettere sulla barra dei comandi


P.S. "foglio1" va modificato col nome del tuo foglio

[sarkò]

Scarterei l’uso di pulsanti, non sono molto pratico nell’attivarli e posizionarli. Preferirei usare solo la tastiera quando inserisco i dati, per una questione di velocità.
Ho creato una macro e inserito il codice che mi hai trasmesso. La cosa strana è che mi funziona solo nelle prime righe del lungo elenco. Considera che l'elenco, per ora è di 250 righe, e potrebbe arrivare a 700/800.
Nelle altre righe, invece, funziona sol in parte:
- In una qualsiasi cella H selezionata, mi inserisce sempre e solo il dato della cella A1 o A2
- Nella cella I mi inserisce correttamente “Pagato

[cosimocs]

Hai ragione l'avevo provato solo per celle con una cifra
sostituisci l'1 in tutte le stringhe Mid(H, 4, 1) con un 9
quindi avrai Mid(H, 4, 9) e cosi via

[sarkò]

Bravo cosimocs, funziona molto bene, ora posso inserire i dati più velocemente. Grazie.

[cosimocs]

Prego