vers. 3.1
questa dovrebbe essere la ver. finale
sono gia precaricati circa 700 attori, e 320 registi.
lo zip contiene anche una piccola/ breve guida..
http://www.sendspace.com/file/z898l5
Moderatori: Anthony47, Flash30005
Sub tipofiltra()
ActiveSheet.Unprotect
Range("F6:L1000").Select ' cancello il contenuto
Selection.ClearContents
Sheets("Foglio1").Select
ActiveSheet.Unprotect
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=Sheets("Tipo").Range("F3").Value
Range("B3:H1000").Select
Selection.Copy
Sheets("tipo").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Foglio1").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=3
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Range("D1").Select
Sheets("tipo").Select
Columns("f:l").EntireColumn.AutoFit ' adatto la larghezza delle colonne
Cells.Rows.AutoFit
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Range("E1").Select
End Sub
Bravo!ok , dopo 1000 prove ce lo fatta
errore di compilazione, impossibile trovare il progetto o la libreria
Torna a Applicazioni Office Windows
Visitano il forum: Nessuno e 56 ospiti