KEMBAR78
Exportdb Ctemp | PDF
Scribd
Upload
23 views7 pages

Exportdb Ctemp

The document is a VBA macro that exports data from various Excel sheets into a single sheet named 'ExportDB'. It checks for specific error messages and clears filters from multiple sheets before copying data. Finally, it saves the 'ExportDB' sheet to a specified directory and updates the status in the 'Review' sheet.

Uploaded by

info.altermusic
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
23 views7 pages

Exportdb Ctemp

The document is a VBA macro that exports data from various Excel sheets into a single sheet named 'ExportDB'. It checks for specific error messages and clears filters from multiple sheets before copying data. Finally, it saves the 'ExportDB' sheet to a specified directory and updates the status in the 'Review' sheet.

Uploaded by

info.altermusic
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 7

Sub E_Export_DB()

Application.ScreenUpdating = False

Dim answer As Integer

Dim errore1 As String


Dim errore2 As String
Dim noerrore As String

errore1 = Range("AD7").Value
errore2 = Range("AD8").Value
noerrore = Range("Ae6").Value

If errore1 Like "AGGIUNGI NOME!" Then


Sheets("Preview").Select
Range("a1").Select
MsgBox "Aggiungi NOME!"

End If

If errore2 Like "ERRORE PERIODO" Then


Sheets("Preview").Select
Range("a1").Select
MsgBox "Errore Periodo!"
End If

If noerrore Like 0 Then

'eliminiamo possibili filtri"


Sheets("Preview").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Maturato").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Carlos").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Note").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Produttori").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Anticipi").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Riserve").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("ADJ").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sheets("FlatFee").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("EmailDB").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Overview").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Review").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Opening").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("ASL").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("Account").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Sheets("ASL Transfer").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

'Aggiungiamo Nome File


Sheets("Review").Select
Range("AA6").Select
Selection.Copy
Sheets("ExportDB").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Sheets("Review").Select
Range("AB6").Select
Selection.Copy
Sheets("ExportDB").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'Preview
Sheets("Preview").Select
Range("A5:M100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
Sheets("Preview").Select
Range("A5").Select

'Maturato
Sheets("Maturato").Select
Range("A5:V100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q1").Select
Application.CutCopyMode = False
Sheets("Maturato").Select
Range("A5").Select

'Note
Sheets("Note").Select
Range("A1:N100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("AN1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AN1").Select
Application.CutCopyMode = False
Sheets("Note").Select
Range("A1").Select

'Produttori
Sheets("Produttori").Select
Range("A1:P100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("BC1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BC1").Select
Sheets("Produttori").Select
Application.CutCopyMode = False
Range("A1").Select

'Anticipi
'SAP
Sheets("Anticipi").Select
Range("A2:P32").Select
Selection.Copy
Sheets("ExportDB").Select
ActiveWindow.SmallScroll ToRight:=18
Range("BT1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BT1").Select
Application.CutCopyMode = False

'Manuali(ADJ)
Sheets("Anticipi").Select
Range("A38:P44").Select
Selection.Copy
Sheets("ExportDB").Select
Range("CK1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CK1").Select
Sheets("Anticipi").Select
Application.CutCopyMode = False
Range("A2").Select

'Riserve
Sheets("Riserve").Select
Range("A2:V100").Select
Selection.Copy
Range("DB1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("DB1").Select
Sheets("Riserve").Select
Application.CutCopyMode = False
Range("A1").Select

'ADJ
Sheets("ADJ").Select
Range("A4:D100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("DY1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("DY1").Select
Sheets("ADJ").Select
Application.CutCopyMode = False
Range("A1").Select

'Flatfee
Sheets("FlatFee").Select
Range("A1:H400").Select
Selection.Copy
Sheets("ExportDB").Select
Range("ED1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("ED1").Select
Application.CutCopyMode = False
Sheets("FlatFee").Select
Range("A1").Select

'EmailDB
Sheets("EmailDB").Select
Range("A1:C100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("EM1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("EM1").Select
Application.CutCopyMode = False
Sheets("EmailDB").Select
Range("A1").Select

'Overview
Sheets("Overview").Select
Range("A5:Z100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("EQ1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("EQ1").Select
Sheets("Overview").Select
Application.CutCopyMode = False
Range("a1").Select

'Review
Sheets("Review").Select
Range("A5:Q100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("FR1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("FR1").Select
Sheets("Review").Select
Application.CutCopyMode = False
Range("A5").Select

'opening
Sheets("Opening").Select
Range("A1:O100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("GT1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("GT1").Select
Sheets("Opening").Select
Application.CutCopyMode = False
Range("A1").Select

'ASL
Sheets("ASL").Select
Range("A1:V100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("HJ1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("HJ1").Select
Sheets("ASL").Select
Application.CutCopyMode = False
Range("A1").Select

'Acc
Sheets("Account").Select
Range("A1:U100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("IG1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("IG1").Select
Sheets("Account").Select
Application.CutCopyMode = False
Range("a1").Select

'ASL Transfer
Sheets("ASL Transfer").Select
Range("A1:E101").Select
Selection.Copy
Sheets("ExportDB").Select
Range("JH1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("JH1").Select
Sheets("ASL Transfer").Select
Application.CutCopyMode = False
Range("a1").Select

'Nome Utente + fATTO

Sheets("Overview").Select
Range("AM5:AP100").Select
Selection.Copy
Sheets("ExportDB").Select
Range("JC1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("JC1").Select
Sheets("Overview").Select
Range("A1").Select

'Esportiamo il foglio

Sheets("ExportDB").Select
Sheets("ExportDB").Copy
ChDir "C:\Temp\Narcos\DB\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Temp\Narcos\DB\" & Range("A2").Value,
FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

Sheets("ExportDB").Select
Cells.Select
Selection.ClearContents
Range("A1").Select

'Aggiorniamo Lo status In Fatto


Sheets("Review").Select
Range("M3").Select
ActiveCell.FormulaR1C1 = "FATTO"

Range("M3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Range("A5").Select

End If

End Sub

You might also like