Buondì!
Io avrei un problema, e mi chiedevo se voi più esperti poteste aiutarmi. Premetto che programmo in visual basic da.. 10 ore?
Ho creato questa macro:
Sub lvlup()
Selection.Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Range("A1:B1").Select
Selection.Interior.ColorIndex = 37
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
Range("C27").Select
ActiveSheet.Paste
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
End Sub
Tutto ciò, serve (una volta selezionata una certa casella), a disevidenziare lei e quella alla sua destra, poi scendere di un livello, evidenziare le due caselle ed infine copiare il contenuto di quella più a destra nella cella C27 (con i vari parametri di casella).
Perciò se all'inizio avevo
* A B C
1 X Y
2 H J
.
.
.
27 Y
Dopo aver selezionato la cella A1, ed aver usato la macro (con un bottone) ottengo
* A B C
1 X Y
2 H J
.
.
.
27 J
--------
Ora, volevo sapere se era possibile alla fine di tutta la macro far sì che la casella selezionata che rimane sia (nel caso dell'esempio) A2 (che contiene H).
Si può?
Grazie!