als nog niet open, map openen met pad in cel

[marc651]

Hallo,

Ik heb de volgende code, die prima werkt.

Private Sub CommandButton1_Click()
   Dim a As String
    Application.ScreenUpdating = False
    a = Range("G1").Value
    jv = Sheets(3).Range("E6:G127")
    With Workbooks.Open(a)
    Set jv2 = Sheets(2).Range("E6:I127")
    For i = 3 To UBound(jv)
    x = Application.Match(jv(i, 1), jv2.Columns(1), 0)
    y = Application.Match(jv(i, 3), jv2.Rows(1), 0)
    If IsNumeric(c) And IsNumeric(y) Then jv2.Cells(x, y) = jv2.Cells(x, y) & jv(1, 3) & "|"
    Next
    End With
    Application.ScreenUpdating = True
End Sub

Ik krijg echter een melding als de map al open is.
Is dat aan te passen in de code zodat hij kijkt of de map al open is, zo niet dan opent hij hem.

 

[edmoor]

Is het bestand dan door jezelf of iemand anders geopend?
En wat is de foutcode en melding?

 

[OctaFish]

Met een extra functie kun je controleren of je het bestand geopend hebt of niet. Kun je gelijk je With..End with gebruiken waarvoor het bedoeld is

Function IsWorkBookOpen(Name As String) As Boolean
Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Private Sub CommandButton1_Click()
Dim a As String
Dim wb As Workbook
    Application.ScreenUpdating = False
    a = Range("G1").Value
    If IsWorkBookOpen(a) = False Then
        Set wb = Workbooks.Open(a)
    Else
        Set wb = Workbooks(a)
    End If
    With wb
        jv = .Sheets(3).Range("E6:G127")
        Set jv2 = .Sheets(2).Range("E6:I127")
        For i = 3 To UBound(jv)
            x = Application.Match(jv(i, 1), jv2.Columns(1), 0)
            y = Application.Match(jv(i, 3), jv2.Rows(1), 0)
            If IsNumeric(c) And IsNumeric(y) Then jv2.Cells(x, y) = jv2.Cells(x, y) & jv(1, 3) & "|"
        Next
    End With
    Application.ScreenUpdating = True

End Sub

 

[snb]

Mij ljkt het gebruik van getobject eenvoudiger.

 

[JEC.]

Waar komt de "c" vandaan?

If IsNumeric([COLOR="#FF0000"]c[/COLOR])

 

[marc651]

OctaFish,

Het open deel werkt prima.
Nu plaatst hij de code echter niet. Terwijl hij dat met de code boven (Op het If IsNumeric(c) deel na. Is een foutje) wel plaatste.
'ccc' in cel G4 in 'Inventarisatie-V2' zou nu in 'Overzicht-V2' in cel G3, G9 achter 'bbb|', enz moeten komen.

Bekijk bijlage Inventarisatie-V2.xlsmBekijk bijlage Overzicht-V2.xlsm