Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Keresés

Új hozzászólás Aktív témák

  • #2993 _kovi_ aktív tag Ispy #2992
    Új Válasz #2993
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    _kovi_

    aktív tag

    válasz Ispy #2992 üzenetére

    Egy bizonyos program egy bizonyos billentyű kombinációra indul el.
    S ennek az indulására szükség van a legkorábbi időben.

    sc create paranccsal lehet csinálni service-t, de valami gubanc van vele, mert elkészül a modul, viszont induláskor hibát dob. :O

    Tesztelni kéne még.. :)

  • #2944 Delila_1 veterán Ispy #2943
    Új Válasz #2944
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Ispy #2943 üzenetére

    Üzletpolitika, és nagyon bejött. Nem véletlen, hogy minden felhasználó ország saját nyelvére lefordíttatta a Microsoft a függvényeket, és persze a menüt, meg a többit.

  • #2893 BullZeye veterán Ispy #2892
    Új Válasz #2893
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    BullZeye

    veterán

    válasz Ispy #2892 üzenetére

    Ömm, nem hiszem, vagyis nem tudom, nem nagyon értek hozzá, jelenleg a script 1 kattintással amin épp van kijelölés szerkeszti és átnevezi a fájl/mappa nevét. Én csak tovább szeretném automatizálni, hogy a kész fájlt/mappát áthelyezze "f:\Filmek" mappába, hogy Kodi kezelhesse magának. Gondolom VBSnél is van getpath jellegű dolog, hogy tudja mi lett az új elérés, és ezt a mappát helyezze át a statikus "F:\Filmek" mappába.

  • #2891 BullZeye veterán Ispy #2890
    Új Válasz #2891
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    BullZeye

    veterán

    válasz Ispy #2890 üzenetére

    Köszi, ezt már próbáltam, sajnos erre a sorra azt írja:

    Érvénytelen eljáráshívás vagy argumentum: 800A0005
    set folder = fs.GetFolder(path)

    Ezzel az argumentummal indul amúgy a script az átnevezés miatt: %F (\w*\d{0,3})\.(\d{4}).*

    Fentiekkel kiegészített script:

    Set objRegExp = CreateObject("VBScript.RegExp")
    Set WshArg = WScript.Arguments
    Set FSO = CreateObject("Scripting.FileSystemObject")

    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)



    file_name=""
    new_file_name=""
    flag=False
    objRegExp.Pattern=WshArg.Item(1)
    If WshArg.Count>1 Then
    If FSO.FileExists(WshArg.Item(0)) Then
    Set File = FSO.GetFile(WshArg.Item(0))
    set TextStream = File.OpenAsTextStream(1)
    While Not TextStream.AtEndOfStream
    is_File=False
    file_name=TextStream.ReadLine()
    If FSO.FileExists(file_name) Then
    is_File=True
    End If
    If is_File Then
    Set File = FSO.GetFile(file_name)
    Else
    Set File = FSO.GetFolder(file_name)
    End If
    new_file_name=replace(objRegExp.Replace(FSO.GetBaseName(file_name), "$1 ($2)"),"."," ")
    If is_File Then
    new_file_name=new_file_name+"."+FSO.GetExtensionName(file_name)
    End If
    if is_File and not FSO.FileExists(new_file_name) Then
    flag=True
    ElseIf not is_File and not FSO.FolderExists(new_file_name) Then
    flag=True
    End If
    if flag Then
    File.Name=new_file_name
    Else
    msgbox "File/Folder " & new_file_name & " already exist. Can't rename ..."
    End If
    Wend
    End If
    End If

    folder.Move "F:\Filmek\"

    Próbáltam most ide-oda rakosgatni vagy beleépíteni a getfolder-t oda ahol már van egy getfile vagy getfolder, de ezzel sem működik, itt a Set Folder = FSO.GetFile(path) nem tetszik neki:

    Set objRegExp = CreateObject("VBScript.RegExp")
    Set WshArg = WScript.Arguments
    Set FSO = CreateObject("Scripting.FileSystemObject")

    file_name=""
    new_file_name=""
    flag=False
    objRegExp.Pattern=WshArg.Item(1)
    If WshArg.Count>1 Then
    If FSO.FileExists(WshArg.Item(0)) Then
    Set File = FSO.GetFile(WshArg.Item(0))
    set TextStream = File.OpenAsTextStream(1)
    While Not TextStream.AtEndOfStream
    is_File=False
    file_name=TextStream.ReadLine()
    If FSO.FileExists(file_name) Then
    is_File=True
    End If
    If is_File Then
    Set File = FSO.GetFile(file_name)
    Set Folder = FSO.GetFile(path)
    Else
    Set File = FSO.GetFolder(file_name)
    Set Folder = FSO.GetFolder(path)
    End If
    new_file_name=replace(objRegExp.Replace(FSO.GetBaseName(file_name), "$1 ($2)"),"."," ")
    If is_File Then
    new_file_name=new_file_name+"."+FSO.GetExtensionName(file_name)
    End If
    if is_File and not FSO.FileExists(new_file_name) Then
    flag=True
    ElseIf not is_File and not FSO.FolderExists(new_file_name) Then
    flag=True
    End If
    if flag Then
    File.Name=new_file_name
    Else
    msgbox "File/Folder " & new_file_name & " already exist. Can't rename ..."
    End If
    Wend
    End If
    End If

    folder.Move "F:\Filmek\"

  • #2863 alexy92 aktív tag Ispy #2862
    Új Válasz #2863
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    alexy92

    aktív tag

    válasz Ispy #2862 üzenetére

    Az összes lefut, ha van olyan sor amit másolni kell(ergo nincs 1004-es kód, a másik fájlban van olyan adat amit még ebben nincs), hibátlanul :P

  • #2855 alexy92 aktív tag Ispy #2854
    Új Válasz #2855
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    alexy92

    aktív tag

    válasz Ispy #2854 üzenetére

    Sub All()
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Columns("K:K").Select
    Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Columns("A:A").Select
    Range("L1").Select
    ActiveCell.Value = "Check if its in masterfile"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-1],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("Radler")
    LR = Range("K" & Rows.Count).End(xlUp).Row
    Range("L1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$L").AutoFilter Field:=12, Criteria1:= _
    "Not in file"
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    CevaBelgium
    Else
    VKtrans
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False

    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Range("D1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("I" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Range("D1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Range("G1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Range("K1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "RADLER KFT."
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Radler").Activate
    Rows("1:1").Activate
    Selection.AutoFilter
    Columns("L").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate


    End Sub

    Sub VKtrans()
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Columns("A:A").Select
    Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Range("V1").Select
    ActiveCell.Value = "Check if its in masterfile"
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-21],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("VK Transport")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("V1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$V").AutoFilter Field:=22, Criteria1:= _
    "Not in file"
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    DSVROADNV
    Else
    CevaBelgium
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False

    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Range("L1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Range("L1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False

    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate

    With Sheets("VK Transport")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("O2").End(xlDown).Offset(0, 2).Select
    Range("Q2", "Q" & LR).Select
    End With
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Range("A1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "VK Transport"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("VK Transport").Activate
    Rows("1:1").Activate
    Selection.AutoFilter
    Columns("V:V").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate



    End Sub
    Sub CevaBelgium()
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate
    Columns("A:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.Value = "Invoice Date"
    Range("B1").Select
    ActiveCell.Value = "Service Date"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=Date(Left(RC[3],4),mid(RC[3],5,2),right(RC[3],2))"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=iferror(Date(Left(RC[20],4),mid(RC[20],5,2),right(RC[20],2)),RC[-1])"
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
    Range("CJ1").Select
    ActiveCell.Value = "Check if its in the masterfile"
    Range("CJ2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-85],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("Ceva Belgium")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("CJ1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$CJ").AutoFilter Field:=88, Criteria1:= _
    "Not in file"
    Range("A1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    Azkar
    Else
    DSVROADNV
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate

    Range("AN1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate

    Range("AN1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate
    Range("AL1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate
    Range("C1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False

    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "CEVA FREIGHT BELGIUM N.V."
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Ceva Belgium").Activate
    Range("1:1").Select
    Selection.AutoFilter
    Columns("CJ:CJ").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate



    End Sub


    Sub DSVROADNV()
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Range("S1").Select
    ActiveCell.Value = "Check if its in the masterfile"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=Iferror(match(RC[-18],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("DSV Road")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("S1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$S").AutoFilter Field:=19, Criteria1:= _
    "Not in file"
    Range("b1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    DachserBE
    Else
    Azkar
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Range("b1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Range("L1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("I" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Range("L1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    With Sheets("DSV Road")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("M2").End(xlDown).Offset(0, 1).Select
    Range("N2", "N" & LR).Select
    End With
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, -1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Range("A1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "DSV ROAD N V"
    Range("C" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[4])"
    Range("D" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=month(RC[3])"
    Range("E" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=Isoweeknum(RC[3])"
    Range("F" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("DSV Road").Activate
    Rows("1:1").Select
    Selection.AutoFilter
    Columns("S").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate



    End Sub

    Sub Azkar()
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Azkar").Activate
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("P:P").Select
    Selection.TextToColumns Destination:=Range("P1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
    Range("Z1").Select
    ActiveCell.Value = " Check if its in the matserfile"
    Range("Z2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-25],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("Azkar")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("Z1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$Z").AutoFilter Field:=26, Criteria1:= _
    "Not in file"
    Range("O1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    DachserHU
    Else
    DachserBE
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Azkar").Activate
    Range("O1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Range("N1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Range("N1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Azkar").Activate
    Range("A1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Azkar").Activate
    With Sheets("Azkar")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("O2").End(xlDown).Offset(0, 1).Select
    Range("P2", "P" & LR).Select
    End With
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("K" & Rows.Count).End(xlUp).Offset(1, 1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "TRANSPORTES AZKAR, S.A"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Azkar").Activate
    Range("1:1").Select
    Selection.AutoFilter
    Columns("Z:Z").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate


    End Sub

    Sub DachserBE()
    Selection.Clear
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser BE").Activate
    Range("S1").Select
    ActiveCell.Value = "Check if its in masterfile"
    Range("s2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-2],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    Range("t1").Select
    ActiveCell.Value = "Date"
    Range("t2").Select
    ActiveCell.FormulaR1C1 = "=date(right(RC[-19],4),mid(RC[-19],4,2),left(RC[-19],2))"
    With Sheets("Dachser BE")
    LR = Range("Q" & Rows.Count).End(xlUp).Row
    Range("S1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("T1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$M").AutoFilter Field:=19, Criteria1:= _
    "Not in file"
    Range("T1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    WaberersINT
    Else
    DachserHU
    End If
    Windows("raw_invoice_riports.xlsx").Activate
    Windows("invoices_masterfile.xlsm").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Select
    Windows("raw_invoice_riports.xlsx").Activate
    Selection.End(xlUp).Select
    Range("P1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Windows("raw_invoice_riports.xlsx").Activate
    Selection.End(xlUp).Select
    Range("P1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Range("F1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(0).Select
    ActiveCell.Offset(1, -1).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Range("Q1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.Offset(0, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("F" & Rows.Count).End(xlUp).Offset(1).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "DACHSER TRANSPORT BELGIE"
    Range("C" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[4])"
    Range("D" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=month(RC[3])"
    Range("E" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=Isoweeknum(RC[3])"
    Range("F" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    ActiveSheet.Range("1:1").AutoFilter
    Windows("raw_invoice_riports.xlsx").Activate
    Rows("1:1").Select
    Selection.AutoFilter
    Columns("S:T").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate



    End Sub
    Sub DachserHU()
    On Error GoTo 0
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("AJ1").Select
    ActiveCell.Value = "Check if its in the masterfile"
    Range("AJ2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-2],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("Dachser HU")
    LR = Range("AH" & Rows.Count).End(xlUp).Row
    Range("AJ1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$AJ").AutoFilter Field:=36, Criteria1:= _
    "Not in file"
    Range("V1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy

    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("V1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    If Err.Number <> 0 Then
    Vege
    Else
    WaberersINT
    End If
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("W1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("W1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("D1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("K" & Rows.Count).End(xlUp).Offset(1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Range("AH1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "LIEGL & DACHSER SZALLITMANYOZASI ES"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Dachser HU").Activate
    Rows("1:1").Activate
    Selection.AutoFilter
    Columns("AJ").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate





    End Sub
    Sub WaberersINT()
    Selection.Clear
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Columns("A:A").Select
    Range("J1").Select
    ActiveCell.Value = "Check if its in masterfile"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-8],[invoices_masterfile.xlsm]main!C13,0),""Not in file"")"
    With Sheets("Waberers INT")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("J1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Range("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$J").AutoFilter Field:=10, Criteria1:= _
    "Not in file"
    Range("C1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    On Error Resume Next
    Selection.Copy
    If Err.Number <> 0 Then
    Vege
    Else
    Vege
    End If
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("G" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Range("C1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("H" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False

    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Range("F1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1, -1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Range("F1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("J" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Range("B1").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate
    Range("M" & Rows.Count).End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
    :=False, Transpose:=False
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[1],vendor_codes!C1:C2,2,0)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "WABERERS INTERNATIONAL ZRT"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Year(RC[4])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Month(RC[3])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=isoweeknum(RC[2])"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],MOR!C1:C2,2,0)"
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-5]"
    With Sheets("main")
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("A1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("B1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("C1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("D1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("E1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("F1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    Range("K1").End(xlDown).Offset(0, 0).Activate
    ActiveCell.AutoFill Range(ActiveCell.Address, Cells(LR, ActiveCell.Column))
    End With
    Windows("raw_invoice_riports.xlsx").Activate
    Worksheets("Waberers INT").Activate
    Rows("1:1").Activate
    Selection.AutoFilter
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("invoices_masterfile.xlsm").Activate
    Worksheets("main").Activate

    End Sub

    Sub Vege()
    Selection.Clear
    MsgBox "Siker!", vbExclamation
    End
    End Sub

    Így lenne, és a többit már tudjátok :)

  • #2851 alexy92 aktív tag Ispy #2850
    Új Válasz #2851
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    alexy92

    aktív tag

    válasz Ispy #2850 üzenetére

    Szia,

    Sajnos nem vagyok még expert, így tudnál segíteni a változóban? Illetve a változó minden sub elejére kell?
    Azt látom, ott ahol hibára futok, oda kell majd berakjam az on error goto VÁLTOZÓ. ÉS a változóban lesz majd az iferror, a subok elején meg az Iserror-t false-á teszem.

    Köszi!

  • #2825 sztanozs veterán Ispy #2824
    Új Válasz #2825
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    sztanozs

    veterán

    válasz Ispy #2824 üzenetére

    Köszi, ezt én is megtaláltam már. Az a baj ezzel, hogy ezek nem .NET FileStream objektum megoldások, hanem a VBScript-ben is használt FSO (FileSystemObject). Ezt nem tudom megetetni a másik (SHA512Managed) .NET osztállyal.

  • #2823 sztanozs veterán Ispy #2822
    Új Válasz #2823
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    sztanozs

    veterán

    válasz Ispy #2822 üzenetére

    Szeretnék VBA alatt elérni a System.IO.File statikus osztályt, hogy a File.Open statikus függvénnyel FileStream-et állítsak elő. Ehelyett nekem az is megfelelő, ha a FileStream osztály inicializálni tudom. De ugye VBA alatt csak defualt - argumentum nélküli - konstruktor hívható, de a FileStream-nek nincs ilyen, ezért a new keyword sem használható.

    Igazából az volna, hogy most működő - Excel addin - System.Security.Cryptography.SHA512Managed objekumomat nem byte-array-jel etessem meg, hanem FileStream-mel. Ez egyrész jóval gyorsabb, másrészt memóriatakarékosabb, harmadrészt működik 2GB feletti fájlokkal is.
    PowerShell és natív .NET kilőve. Esetleg még VBS jöhet szóba, de az ugyanez a tészta.

  • #2807 Pali79 aktív tag Ispy #2806
    Új Válasz #2807
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pali79

    aktív tag

    válasz Ispy #2806 üzenetére

    Próbáltam én, hidd el! Én sem szeretek ennyit kérdezni, de nem jutottam egyről a kettőre.

  • #2804 Pali79 aktív tag Ispy #2803
    Új Válasz #2804
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pali79

    aktív tag

    válasz Ispy #2803 üzenetére

    Szuper, köszi! Bár most megoldottam 0,5 hatványozással, még egyszerűbb is.

  • #2800 Pali79 aktív tag Ispy #2799
    Új Válasz #2800
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pali79

    aktív tag

    válasz Ispy #2799 üzenetére

    Így már működik, köszi! A könyvben azt írják, hogy a LABEL alapértelmezetten TEXT tulajdonságú, ezért nem kell kiírni, de ezek szerint mégis.

  • #2795 Petya25 őstag Ispy #2794
    Új Válasz #2795
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Petya25

    őstag

    válasz Ispy #2794 üzenetére

    Szerintem nem a label méretét akarja, hanem a beírt szám négyzetét.

  • #2791 Pali79 aktív tag Ispy #2790
    Új Válasz #2791
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pali79

    aktív tag

    válasz Ispy #2790 üzenetére

    A label az egy üres címke. Az egyik üres címkébe beírva a négyzet oldalhosszúságát, az OK gombot megnyomva a másik üres címkébe beírja az első címkébe beírt szám saját magával szorzásának eredményét. Ez a hibaüzenet:
    Error 1 Operator '*' is not defined for types 'System.Windows.Forms.Label' and 'System.Windows.Forms.Label'.

  • #2774 BigBadPlaYeR senior tag Ispy #2772
    Új Válasz #2774
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    BigBadPlaYeR

    senior tag

    válasz Ispy #2772 üzenetére

    Üdv!

    A Combobox-os végül elengedtük, máshogy oldottuk meg az adatok beírását.
    Viszont a Datatable-től villám gyors lett a GridView! Köszönöm az ötletet!

    Lenne egy másik kérdésem is:
    VB.net-ben hogyan lehet megoldani, hogy két user form "egymáshoz tapadjon"? Van egy Main form, amiről több kiegészítő formot lehet indítani. Amikor a Form2 indul, egyből a Main Form mellett jelenik meg, eddig ok. Azt szeretném, ha mozgatom a main form-ot, akkor a form2 is mozduljon vele (az már csak a hab lenne a tortán, ha fordítva is működne).

  • #2773 BigBadPlaYeR senior tag Ispy #2772
    Új Válasz #2773
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    BigBadPlaYeR

    senior tag

    válasz Ispy #2772 üzenetére

    Azzal még nem próbálkoztam. Bár nem tudom, hogy arra hogyan fog reagálni, hogy az első 4 oszlop függvényében változik az 5-6. oszlopban lévő ComboBox-ok tartalma (sőt, a 6. Combobox tartalma még az 5. oszlopban lévő értéktől is függ).

    Ez lesz a következő akkor, köszönöm az ötletet!

Új hozzászólás Aktív témák

Hirdetés