| | Post: 167 | Registrato il: 28/08/2007
| Città: VERONA | Età: 63 | Utente Junior | 2016 | | OFFLINE |
|
  02/11/2018 22:13 | |
Buona giornata a tutti. Chiedo aiuto cortesemente per realizzare all'apertura del file excel una copia di tutti i "commenti" da celle C3:C14 in foglio "entrate" su altro foglio chiamato "uscite" in celle AA3:AA14. Ho trovato in rete qualche indicazione, ma purtroppo non riesco ad adattarla alle mie esigenze. N.B. se si potesse fare la copia dei "commenti" senza macro sarebbe splendido, tuttavia accolgo anche una macro, anche se questo complica un po le cose. Ringrazio per l'aiuto ed il tempo che dedicherete alla mia necessità. |
|
| | Post: 3.993 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 02/11/2018 23:22 | |
Ciao Giampag
Senza macro non credo sia possibile.
Allega un file di,esempio,e,mostra inserendolo a mano il risultato desiderato.
Alfredo |
| | Post: 730 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 02/11/2018 23:53 | |
Un saluto a tutti 🖐.
Credo che questa macro, che uso spesso e che ho adatto alle tue coordinate, faccia quello che chiedi ... altrimenti la puoi utilizzare come una base di partenza.
Si può mettere in un modulo vba ma se ti serve ad ogni apertura del file ti basta spostarla nel modulo 'Questa_cartella_di_lavoro' ('ThisWorkbook') e chiamare la macro 'Sub Workbook_Open()': Option Explicit
Sub RicopiaCommenti()
Dim riga As Long
Dim commento As Comment
Dim testo As String
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set sht1 = Sheets("entrate")
Set sht2 = Sheets("uscite")
For riga = 3 To 14 'cicla le righe
With sht1
Set commento = .Cells(riga, 3).Comment 'rileva il commento origine in colonna C
If Not (commento Is Nothing) Then 'continua solo se c'è un commento
testo = .Cells(riga, 3).Comment.Text 'rileva il testo del commento origine
With sht2
.Cells(riga, 27).ClearComments 'elimina eventuale commento già presente in colonna AA (potrebbe non servire)
.Cells(riga, 27).AddComment 'crea nuovo commento
Set commento = .Cells(riga, 27).Comment 'rileva il commento destinazione
commento.Text Text:=testo 'assegna il testo del commento origine
End With
End If
End With
Next riga
End Sub[Modificato da rollis13 03/11/2018 00:23]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 167 | Registrato il: 28/08/2007
| Città: VERONA | Età: 63 | Utente Junior | 2016 | | OFFLINE |
|
| 03/11/2018 09:07 | |
ringrazio Alfrimpa e Rollis 13 per la disponibilità data. Ho colto il suggerimento di Rollis 13 che ringrazio molto....l'ho applicato e funziona benissimo. L'ho inserito anche in allegato così da mostrare l'esempio completato. Ancora grazie a tutti per l'aiuto dato. |
| | Post: 731 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 03/11/2018 15:24 | |
Grazie del riscontro, è stato un piacere sapere d'essere stato un po' d'aiuto.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|
|
|