 |  |
 |
Nick: mir
Oggetto: Ho risolto
Data: 27/1/2006 14.50.16
Visite: 75
Ecco la sub che bisogna mettere nel foglio interessato
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("A1:B10")) Is Nothing) Then
With Target
If Not .HasFormula Then
.Value = UCase(.Value)
End If
End With
End If
End Sub
http://www.librando.net
Perchè io valgo.... quindi se vi incontro datemi il resto [cit.].
