
Mytable.Borders(xlEdgeTop).LineStyle = xlContinuous |
Tabella_Costi.Range("da").CurrentRegion.Sort key1:=Tabella_Costi.Range("da") |
Private Sub mNascondi(ByVal s As String)
Dim lRiga As Long
Dim lng As Long
Dim sh2 As Worksheet
Set sh2 = ThisWorkbook.Worksheets("DATI")
lRiga = [TIPO_FALDA].Rows.Count
For lng = 1 To lRiga
Me.OLEObjects(sh2.Range("e" & lng).Value).Visible = False
Next
If Not Len(s) = 0 Then
Me.OLEObjects(s).Visible = True
End If
Set sh2 = Nothing
End Sub |
