Quota:
Inviato da LoryOne
Codice:
Dim v As Object
'For Each v In ActiveWorkbook.ActiveSheet.Range("X8:ah8")
' v.Value = v.Row & v.Column
'Next
For Each v In ActiveWorkbook.ActiveSheet.Range("X8:ah8")
MsgBox "Cella a riga " & v.Row & " colonna " & v.Column & " valore " & v.Value
Next
ActiveWorkbook.ActiveSheet.Range("X8:ah8").Select
For Each v In Selection
MsgBox "Cella a colonna " & v.Column & " riga " & v.Row & " valore " & v.Value
Next
MsgBox "La selezione consta di " & ActiveSheet.UsedRange.Rows.Count & " righe e " & ActiveSheet.UsedRange.Columns.Count & " colonne"
|
LoryOne, intanto ti ringrazio.
Se non ti spiace perņ ti chiedo cortesemente se puoi darmi indicazioni di come funzioni il codice che mi hai gentilmente postato.
Sinceramente faccio fatica a capirne il funzionamento (forse č meglio dire la logica del codice
)
Non vorrei sembrarti irriconoscente, ma date le mie conoscenze non capisco il significato (e mi piacerebbe non fare solo un copia e incolla, sempre che ci riesca......
)
Grazie comunque