ciao
volevo adattare la macro sopra, ad altro file ,
ma mi sono arenato su 2 problemi che non so risolvere:
fgl masaniello 1
- Codice: Seleziona tutto
Sub mettinazioni()
ActiveSheet.Unprotect
Application.ScreenUpdating = False ' non vedo cambiare i vari fogli
myArea = "B4:B108" '<< La tua area
'
For Each Cella In Range(myArea)
With Cella
.ClearComments
If IsNumeric(Cella.Value) And Cella.Value <> 0 Then 'mette il nome solo nelle celle
.Select
.AddComment
.Comment.Visible = False
.Comment.Text Text:="nazione:" & Chr(10) & Range("FA4").Offset(Cella.Value - 1, 0).Value
End If
End With
Next Cella
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("e1").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.DisplayGridlines = False
End Sub
vorrei mettere le note in col B, prelevando i dati da col FA4
ma so che la prima cosa da sistem e' questa:
- Codice: Seleziona tutto
If IsNumeric(Cella.Value) And Cella.Value <> 0 Then
dove la col B non ha numeri ma "testo"
poi se aggiro cio' mi si ferma qui :
- Codice: Seleziona tutto
.Comment.Text Text:="nazione:" & Chr(10) & Range("FA4").Offset(Cella.Value - 1, 0).Value
dicendomi--> tipo non corrispondente...
le ho provate "quasi tutte"
ma non sono riuscito a sistemare la macro ,... chiedo aiutino..
grazie ciao
https://docs.google.com/open?id=0B-1JnJV5VEJMaFdqVDZGeW1ZZjQ
S.O. win10, Excell 2019