• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

info uit ander bestand halen

Status
Niet open voor verdere reacties.
S

Springer038

Gebruiker
Lid geworden
20 aug 2019
Berichten
38
Goedemiddag,

Kunnen jullie helden mij weer eens helpen?
Ik wil graag dat de offerte kosten die per nummer aangemaakt worden automatisch in dit werkblad naar voren komen.
Zodoende kan ik snel zien hoeveel we open hebben staan zonder het elke keer te kopiëren of dubbel in te typen.
Ik sla het Excel met de offerte op onder bijvoorbeeld de naam 81005988 in cel D57 in 81005988 staat dan de totale prijs.
Die zou ik graag in bestand Voorbeeld automatisch zien in cel D2. Is dit überhaupt mogelijk?
Alvast bedankt!

Ter info: bestand voorbeeld staat in map 2022 en de daarbij behorende offertes in 2022/offertes
 

Bijlagen

  • Voorbeeld.xlsx
    8,4 KB · Weergaven: 13
Laatst bewerkt:
info uit ander werkblad halen waarbij het ander werkblad de naam heeft uit cel A2
of
info uit ander bestand halen waarbij het ander bestand de naam heeft uit cel A2
 
Het is een ander bestand. Ik vul nu voor elke offerte een apart excel in met een standaard format.
Die sla ik dan op met een offerte nummer die ik vervolgens in het gedeelde excel blad invul in kolom A
 
probeer dit maar eens, bestand voorbeeld en de map offertes staan in map 2022

Code: 
Sub VulIn()
i = Range("A" & Rows.Count).End(xlUp).Row
str_Path = ThisWorkbook.Path & "\offertes\"

For j = 2 To i
str_FileName = Range("A" & j) & ".xlsx"   [COLOR="#008000"] 'format xlsx eventueel zelf maar aanpassen[/COLOR]

    If Dir(str_Path & str_FileName) <> "" Then
    
        With GetObject(str_Path & str_FileName)
            Range("A" & j).Offset(, 3) = .Sheets("Blad1").Range("D57")     [COLOR="#008000"] ' Blad1 eventueel aanpassen[/COLOR]
            .Close 0
        End With
 
    Else
 
        MsgBox "Het bestand " & Range("A" & j) & "  bestaat niet!"
 
    End If
Next


End Sub
 
Laatst bewerkt:
titel in openingspost:

info uit ander bestand halen i.p.v. info uit ander werkblad halen
 
Er gebeurt helemaal nis ook geen foutmelding, zoals je zou verwachten met de volgende code:

MsgBox "Het bestand " & Range("A" & j) & " bestaat niet!"
 
Wat is het pad/locatie van het bestand "voorbeeld"
Wat is het pad/locatie van de opgeslagen "offertes."
Bij mij werkt het gewoon.
 
AD1957 zei:
Wat is het pad/locatie van het bestand "voorbeeld"
Wat is het pad/locatie van de opgeslagen "offertes."
Bij mij werkt het gewoon.
Klik om te vergroten...


Op mijn bureaublad heb ik een map "Nieuwe map" daarin zit het excel Voorbeeld en een map genaamd offertes. in de map offertes zit dan de offerte excel.
Ik heb beide nu geupload. Waarschijnlijk doe ik iets verkeerd.
 

Bijlagen

  • Voorbeeld.xlsm
    13,1 KB · Weergaven: 22
  • 81006497.xlsx
    15,9 KB · Weergaven: 22
Hoe activeer je dan de code.?

p.s. ben nu enkele uurtjes weg, maar er zijn hier nog heel wat meer helpers
 
Met ander VBA codes die ik gekregen had ging dat automatisch wanneer ik iets in het juiste veld intypte.
In dit voorbeeld zou dat dus zijn als ik in Kolom A de offertenummer invul. Is deze aanname fout?
 
Daar komt de aap uit de mouw.:D

Ik begrijp het zo dat alleen het totaalbedrag van het dan ingevulde offertenummer moet worden opgehaald.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then [COLOR="#008000"]'werkt in A2 t/m A2000[/COLOR]
    
    str_Path = ThisWorkbook.Path & "\offertes"
    
    str_FileName = Target & ".xlsx"    
    
        If Dir(str_Path & str_FileName) <> "" Then
        
            With GetObject(str_Path & str_FileName)
                Target.Offset(, 3) = .Sheets("Blad1").Range("D57")     
                .Close 0
            End With
     
        Else
            If Target <> "" Then MsgBox "Het bestand " & Target & "  bestaat niet!"
     
        End If
  End If
End Sub
 
Ja, dat klopt!
Ik krijg alleen nu nog wel een foutmelding.
Ik heb wat screenshots gemaakt van de melding en de locaties.
Top in ieder geval dat je me al zolang probeert te helpen.
 

Bijlagen

  • Locatie.JPG
    Locatie.JPG
    20,9 KB · Weergaven: 18
  • locatie2.JPG
    locatie2.JPG
    22,2 KB · Weergaven: 17
  • Melding.JPG
    Melding.JPG
    52,2 KB · Weergaven: 20
  • Melding2.JPG
    Melding2.JPG
    44,5 KB · Weergaven: 22
foutje, backslash vergeten.
Code: 
str_Path = ThisWorkbook.Path & "\offertes[COLOR="#FF0000"]\[/COLOR]"
 
Helaas geeft hij nog steeds dezelfde foutmelding aan.
In het geel:

If Dir(str_Path & str_FileName) <> "" Then
 
Bij mij werkt deze gewoon, anders maar eens de map NIEUWE MAP hier toevoegen. (map wil even zippen)
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then 'werkt in A2 t/m A2000
    
    str_Path = ThisWorkbook.Path & "\offertes\"
    
    str_FileName = Target & ".xlsx"
    
        If Dir(str_Path & str_FileName) <> "" Then
        
            With GetObject(str_Path & str_FileName)
                Target.Offset(, 3) = .Sheets("Blad1").Range("D57")
                .Close 0
            End With
     
        Else
            If Target <> "" Then MsgBox "Het bestand " & Target & "  bestaat niet!"
     
        End If
  End If
End Sub
 
Ik heb het getest en bij mij werkt het in de door jou toegevoegde map.
Voor mij een raadsel waarom het bij jou niet werkt.
Eens even wachten of er nog een reactie komt van een VBA expert, ik ben maar een hobbyist.:D
 
Ik zie een verschil!
Wanneer ik het bestand op een locatie in sharepoint zet dan werkt het niet.
Als ik het document op een locatie van "deze pc" zet wel.
Kan iemand hier iets mee?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan