
Sub ArchiviaFattura()
Dim ur As Long
Dim fgl As String
Select Case Month(Sheets("Fattura").Range("J14").Value)
Case 1 To 3
fgl = "1° Trim."
Case 4 To 6
fgl = "2° Trim."
Case 7 To 9
fgl = "3° Trim."
Case 10 To 12
fgl = "4° Trim."
End Select
ur = Sheets(fgl).Cells(Rows.Count, "B").End(xlUp).Row
Sheets(fgl).Cells(ur + 1, 2).Value = Sheets("Fattura").Range("J13").Value
Sheets(fgl).Cells(ur + 1, 3).Value = Sheets("Fattura").Range("J14").Value
Sheets(fgl).Cells(ur + 1, 4).Value = Sheets("Fattura").Range("J17").Value
Sheets(fgl).Cells(ur + 1, 5).Value = Sheets("Fattura").Range("J50").Value
Sheets(fgl).Cells(ur + 1, 6).Value = Sheets("Fattura").Range("J51").Value
Sheets(fgl).Cells(ur + 1, 7).Value = Sheets("Fattura").Range("J53").Value
End Sub
|
Sub Iva()
'
' Iva Macro
'
'
Workbooks.Open Filename:= _
"C:UsersLuigiDesktopContabilità StellaMarisGestione Fatture Vendita.xlsm"
Windows("Cartel1").Activate
Windows("Gestione Fatture Vendita.xlsm").Activate
End Sub
|
Sub VerbaliConsiglio()
' VerbaliConsiglio Macro
Dim X
X = shell("Explorer.exe " & "C:UsersLuigiDesktopStellaMarisVerbali Consiglio", 1)
End Sub
Sub VerbaliAssemblee()
'
' VerbaliAssemblee Macro
Dim X
X = shell("Explorer.exe " & "C:UsersLuigiDesktopStellaMarisVerbali Assemblea", 1)
End Sub
Sub GestioneScaletto()
' GestioneScaletto Macro
Dim X
X = shell("Explorer.exe " & "C:UsersLuigiDesktopStellaMarisGestione Scaletto", 1)
End Sub
Sub Manifestazioni()
' Manifestazioni Macro
Dim X
X = shell("Explorer.exe " & "C:UsersLuigiDesktopStellaMarisManifestazioni", 1)
End Sub
|
