Sziasztok!

400-as error code?

Mi a baja a macronak?

Ha debugot mondana még le tudnám követni mit vétettem, de így...? Gőzöm sincs.

Nem értem mit kell javítanom...

 

A makró egy folderból kinyit minden ott lévő fájlt és bemásol egy munkafüzetbe...elméletileg.

Tisztában vagyok azzal, hogy még sokat kell alakítani a makrón, de ez a kód most meglőtt...

Ti értitek mit akar nekem mondani?

Köszi előre is

------------

Sub megnyitás()

respond = MsgBox("Do you have other excel file open?", vbYesNo, "Question:")
    If respond = vbYes Then
        MsgBox "Please close all excel files except the temple!"
        Exit Sub
    Else

útvonal = "S:AdHoc AnalysisMACROKrisztateszt"

With Application.FileSearch
    .LookIn = útvonal
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
For i = 1 To .FoundFiles.Count
     Workbooks.Open .FoundFiles(i)
Next

End With
End If

Db = Workbooks.Count

For i = 3 To Db 'azért 3, mert nekem megnyíllik a personalom is
    Workbooks(i).Sheets(1).Range(A2).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Workbooks("Trackcode merge template.xls").Select
    Sheets("Combine").Select
    usor = usor = ActiveSheet.UsedRange.Rows.Count
    Cells(usor + 1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
i = i + 1
Next

End Sub