Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


    Aanbevolen berichten

    hallo

    ik heb een bestand dat maar niet weg wilt =\ telkens een fout dat niet bestaat maar is er echt heb al killbox ofzo gebruikt en ok nog unlocker maar 1 bestand ging weg de rest niet.

    Niels.

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Gast
    Dit topic is nu gesloten voor nieuwe reacties.
    Log in om dit te volgen  

    • Welkom op PC Helpforum

    • Leden statistieken

      • Aantal leden
        39.360
      • Meeste online
        1.765

      Nieuwste lid
      Jaslin
      Registratiedatum
    • Gerelateerde inhoud

      • Door bennieboef
        Hallo Allemaal,

        Mijn macro zoekt in een windows map op de volgende manier : "prd." + <cell value> + ".dld"
        Het probleem is dat er niet wordt gezocht in inderliggende bmappen

        Hier de macro :

        Option Explicit

        Sub Find_DLD()
        Dim AckTime As Integer, InfoBox As Object
        Dim iRow As Integer ' ROW COUNTER.
        Dim sSourcePath As String, currentpath As String
        Dim sDestinationPath As String
        Dim sFileType As String
        Dim sFileType1 As String

        Dim bContinue As Boolean

        bContinue = True
        iRow = 2

        ' THE SOURCE AND DESTINATION FOLDER WITH PATH.
        sSourcePath = "S:"
        sFileType = ".dld" ' TRY WITH OTHER FILE TYPES LIKE ".pdf".
        sFileType1 = "prd."


        ' LOOP THROUGH COLUMN "B" TO PICK THE FILES.
        While bContinue

        If Len(Range("E" & CStr(iRow)).Value) = 0 Then ' DO NOTHING IF THE COLUMN IS BLANK.
        Set InfoBox = CreateObject("WScript.Shell")
        AckTime = 1
        Select Case InfoBox.Popup("Klaar.", _
        AckTime, "Hieperdepiep", 0)
        Case 1, -1
        Exit Sub
        End Select
        Else
        ' CHECK IF FILES EXISTS.

        If Len(Dir(sSourcePath & sFileType1 & Range("E" & CStr(iRow)).Value & sFileType)) = 0 Then
        Range("F" & CStr(iRow)).Value = "Geen kantprogramma"
        Range("F" & CStr(iRow)).Font.Bold = True
        Else
        Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!"
        Range("F" & CStr(iRow)).Font.Bold = False

        End If
        End If
        iRow = iRow + 1 ' INCREMENT ROW COUNTER.
        Wend
        End Sub

        Het zou fantastisch zijn al iemand deze code zo kan aanpassen dat de macro ook in de onderliggende mappen van s:\ gaat zoeken.

        Alvast bedankt voor jullie hulp.
         
        Bijlage :  bestand met macro.
        Controle dxf + kantprogramma.xlsm
      • Door Frans van wessel
        Geachte heer Karel ,
        Ik heb wimdows 7 ultimate 64 bits geinstalleerd en Systeem herstel en backup wekt niet.
        Heeft u daar een oplossing voor ?
        Met vriendelijke groet,
        Frans v. Wessel
      • Door watco
        Ik heb een werkende excel 2019 .xslm file met externe koppelingen naar andere excel 2019 files om er gegevens uit te halen via VERT.ZOEKEN
        Ik heb de file zaterdagavond nog gebruikt en opgeslagen zonder enig probleem.
        Zondagochtend start ik hem op om er verder aan te werken en krijg de melding "Kan het project of de bibliotheek niet vinden".
         
        Als ik ALT F11 > extra bekijk dan staat er geen enkele verwijzing.
        Ik kan hem niet opslaan en ook niet als xlsx zonder de 2 macrootjes die erin staan. Deze hebben trouwens geen enkel verband met het halen van gegevens uit andere excel files maar zijn gewoon 2 testmacro's om niet werkende internet links te detecteren van foto's op onze server.
         
        Wie heeft hiermee ervaring / oplossing ?
         
        Ik heb het trouwens ook een maand geleden voor gehad met een andere file en dan heb ik het kunnen oplossen door een oude file van dagen ervoor terug al mijn ondertussen aangebrachte wijzigingen terug toe te voegen, hier heb ik 2 dagen werk aan gehad.
        Ik wil dit deze maal proberen te vermijden
         
         
      • Door ladydee
        Ik wil graag mijn Rem bestanden kunnen openen, weet iemand een  online oplossing, of het bestand via computer te bewerken?
        Fotos staan op mijn computer. 

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...

    Belangrijke informatie

    We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.