|
Login

TOPIC: Gestione di una tabella collaboratori

Gestione di una tabella collaboratori 6 years 1 week ago #10340

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao Nick64_BT (stavolta non ho sbagliato).
Se hai dimestichezza col VBA devi sfruttare l'evento Worksheets_Change del Foglio interessato.
Nel mio file d'esempio.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long, ele As String
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ele = "A1:B" & ur
If Not Intersect(Target, Range(ele)) Is Nothing Then
    Range(ele).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
The administrator has disabled public write access.
The following user(s) said Thank You: Nick64_BT

Gestione di una tabella collaboratori 6 years 1 week ago #10341

  • Nick64_BT
  • Nick64_BT's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 10
  • Karma: 0
Ok Mario .. sei stato di grandissimo aiuto.
Ti ringrazio molto e .. se dovessi avere bisogno di altro .. posterò.
Nick
The administrator has disabled public write access.
Time to create page: 0.473 seconds