[excel - macro]

[Mars Armada]

Buonasera a tutti.
Mi sono iscritto perchè mi sembra proprio che siate bravi a risolvere problemi.
Vorrei sottoporvene uno:
HO 2 colonne: a,c
dato un intervallo a1:a3 / c1:c3
LA COLONNA A HA: TESTO + COMMENTO
LA COLONNA C HA: TESTO + COMMENTO

Non riesco a strutturare una macro che esegua questa operazioni in sequenza:
>sommare il valore di a1 con quello di c1 per poi sostituire il risultato nella stessa cella a1.
>ripetere il procedimento per le coppie a2/c2 e a3/c3
>combinare il commento presente in a1 con quello in c1 e sostituirlo al commento della stessa cella a1.
>ripetere il procedimento per le coppie a2/c2 e a3/c3
>cancellare i valori e commenti (non eliminando il commento ma lasciandolo semplicemente vuoto) delle celle c1;c2;c3

Grazie a chiunque potrà aiutarmi.

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Hai provato con il registratore di macro ?
Fai i passi che hai descritto.

Poi dovrai adattare il codice ottenuto e potrebbe essere una base da cui partire.

Ciao


P.S.: Per i prossimi interventi ricorda di inserire un titolo che sia espilicativo del contenuto del tuo quesito.

[Anthony47]

Ciao Mars Armada, benvenuto anche da parte mia.
Mentre Ricky suggeriva di partire dal registratore io mi stavo portando avanti con una bozza di codice che riporto.

Non riesco a strutturare una macro che esegua questa operazioni in sequenza:
>sommare il valore di a1 con quello di c1 per poi sostituire il risultato nella stessa cella a1

Qualcosa come

Codice: Seleziona tutto

Range("A1").value=Val(Range("A1").value)+val(Range("C1").value)

Per farlo su a2/c2 e a3/c3 le istruzioni saranno analoghe.

>combinare il commento presente in a1 con quello in c1 e sostituirlo al commento della stessa cella a1.

Codice: Seleziona tutto

ActiveSheet.Range("A1").Comment.Text Text:=Range("A1").Comment.Text & Chr(10) & Range("C1").Comment.Text


Per farlo su a2/c2 e a3/c3 le istruzioni saranno analoghe.

>cancellare i valori e commenti (non eliminando il commento ma lasciandolo semplicemente vuoto) delle celle c1;c2;c3

Codice: Seleziona tutto

ActiveSheet.Range("C1").Clearcontents
ActiveSheet.Range("C1").Comment.Text Text:=" "


Per farlo su c2 e c3 le istruzioni saranno analoghe.

Ciao

[Mars Armada]

Grazie!

@ricky:

In effetti avevo provato a registrare la macro, ma non riuscivo ad adattare il codice, finendo per fargli mal interpretare i comandi. Grazie del benvenuto e della cortesia.

@anthony

Il codice funziona perfettamente ed è estremamente semplice. Avevo finito per complicarmi la vita! Grazie mille.