Rif: Excel VBa
Quota:
Inviato da byo70
Ciao, stasera di ritorno a casa ho provato ad aggiungere al codice di cui sopra le seguenti righe, ma lo stesso la textbox non carica il contenuto della cella.
ActiveWorkbook.Sheet.Range("X8:ah8").Select
Selection.Copy
usrDaiAppuntamento.TextBox1.Value = ActiveWorkbook.Range("X8:AH").Value
L'errore me lo da sempre alla prima riga (ActiveWorkbook.Sheet.Range("X8:ah8").Select). Scusate, ma non riesco a capire come mai..... Son proprio gnucco......
|
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"
___________________________________
Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice
|