Inserire commento di celle variabili

[enrico43]

Buongiorno, nel file allegato c’è una formattazione condizionale basata sulle date delle celle della riga1 che colora le celle delle colonne relative alla “Domenica” e ad “Oggi”. Poi con una macro vengono aggiunti commenti nelle celle della colonna relativa ad “Oggi”. Il contenuto del commento è appunto la data, presa dalla colonna A. Contorto neh!!
Orbene, se la colonna “Oggi” fosse statica, con la macro avrei risolto il problema del commento aggiornato (ed anche il mio che mi fermerei all’età che ho oggi…boh…per me non ne vale la pena), ma siccome avanza in funzione della data, non riesco a sviluppare un istruzione che per ogni aggiornamento della colonna (blu) aggiorni anche il commento con la data della colonna A. Se poi l’obbiettivo potesse essere raggiunto senza l’appoggio della colonna A sarebbe il massimo.
Infine come autosizare il commento col vba.
Ringrazio, Vi saluto e ci sentiamo per gli auguri. Debbo però ancora chiedere la collaborazione di mia moglie.
Enrico
https://www.sendspace.com/file/fb410x

[Marius44]

Ciao Enrico
Prova con questa macro (che è la tua, con qualche variazione, ma inserita nell'evento Workbook_Open)

Codice: Seleziona tutto

Option Explicit
Dim x As Byte
Dim n As Integer

Private Sub Workbook_Open()
Dim cln As Long
Dim mydate As Double
n = 13
mydate = Int(Now())
cln = Application.WorksheetFunction.Match(mydate, Sheets(1).Range("B1:IV1"), 0) + 1
Columns(cln).ClearComments
For x = 3 To n
    Cells(x, cln).AddComment
    Cells(x, cln).Comment.Visible = False
    Cells(x, cln).Comment.Text Text:=Range("A" & x) & Chr(10)
Next x
End Sub


Dovrebbe essere dinamica.
In poche parole, quando apri il file la macro cerca la data odierna e nella colonna relativa inserisce i commenti.

Fai sapere. Ciao,
Mario

[enrico43]

Funziona, ma non con il Workbook_Open, lancio il W_O come fosse una macro. Forse perchè lavoro con il 2003.
Mancava la dichiarazione di cln, risolto ed ho provato queste istruzioni per l'autosize del commento,
Cells(x, cln).ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
Cells(x, cln).ShapeRange.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft
ma "Errore di run-time 438, Proprietà non supportata dall'oggetto". Neppure col
With cells(x,cln)
.autosize=True
End With
Qual'è l'istruzione giusta in vba per l'autosize?
E per eliminare l'A Capo nel messaggio?

[enrico43]

Risolto con

Codice: Seleziona tutto

Option Explicit
Dim x As Byte
Dim n As Integer
Dim cln, comment
Dim xComment As comment
Private Sub Workbook_Open()
Dim mydate As Double
n = 13
mydate = Int(Now())
cln = Application.WorksheetFunction.Match(mydate, Sheets(1).Range("D1:IV1"), 0) + 3
Columns(cln).ClearComments
For x = 2 To n
    Cells(x, cln).AddComment
    Cells(x, cln).comment.Visible = False
    Cells(x, cln).comment.Text Text:=Range("A" & x) & Chr(10)
    Next x
For Each xComment In Application.ActiveSheet.Comments
 xComment.Shape.Width = 48
 xComment.Shape.Height = 12
 Next
    Range("W18").Select
End Sub

solo perchè tu mi hai risolto il problema della data nelle celle della colonna "Oggi" variabile in funzione della data del giorno.
Mi resta solo inspiegabile perchè il Workbook_Open non funziona.
Ciao e grazie
Enrico

[enrico43]

Mi resta solo inspiegabile perchè il Workbook_Open non funziona.

Te lo dico io, pisquano. Hai messo la macro in un Modulo, ripisquano, il Workbook_Open va messo nel ThisWorkbook.

[Marius44]

Salve

Enrico mi sorprendi!
L'avevo anche detto dove andava inserito il codice (ed anche la variabile cln era dichiarata).

Forse a casa è incrementato l'andirivieni di elettricisti, idraulici, falegnami, ecc, e sei preoccupato? Fai una cosa: cambia casa, anzi cambia quartiere se non addirittura città. Se poi t'accorgi che il lattaio è sempre lo stesso ... allora preoccupati.

Ciao e migliori auguri,
Mario