@Miko
inviato in MP
Ciao
Moderatori: Anthony47, Flash30005
=SE(CONTA.SE($B2:$V2;X$1)=1;CONTA.SE($B2:$V2;X$1);"")
Range("A1:F4005").Select
Selection.Sort
Range("A1:F4005").Sort
Range("A1:F4005").Sort
Sub ordinrecent()
Worksheets("controlli").Unprotect ' togli protez
Application.EnableEvents = False '<<<<<< blocca gli eventi
Range("A6:f95").Sort Key1:=Range("E6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E2").Select
ActiveWindow.DisplayGridlines = False 'protegge il fgl
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Application.EnableEvents = True 'ripristino eventi
End Sub
Application.EnableEvents = False '<<<<<< blocca gli eventi
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 55 ospiti