Hirdetés

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

  • p5quser

    tag

    Sziasztok!
    Újfent a segítségetekre szorulnék. Van egy sablon munkafüzet, amit ha megnyitok az bekér egy "adat" excel táblát megnyitásra.
    Hogyan tudom beállítani, hogy a megnyitott adat munkafüzet nevére globálisan hivatkozhassak a sablon füzetben?
    Túrtam a neten egy ilyet;

    Private Sub Workbook_Open()
    Dim stdb As Workbook
    Dim stnm As String

    stnm = Application.GetOpenFilename
    If stnm <> "" Then
    Workbooks.Open stnm
    End If
    End Sub

    ami a Thisworkbookban lapít. Egy régebbi itteni megoldást követve, modulba raktam ezeket is;

    Public stdb As Workbook
    Public stnm As String

    Az adat file az stdb. Az sablon első munkalapján lévő makró viszont run-time 13-mal elhasal (type mismatch) és ez a sor sárgul be;

    Workbooks(stnm).Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"

    Ha az stnm helyére beírom idézőjelekkel az adat file teljes nevét kiterjesztéssel, teszi a dolgát, csak hát a kényelem, ugye...
    Előre is köszönöm!

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