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!


  • ×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

      Er zijn maximaal 75 emoji toegestaan.

    ×   Je link werd automatisch ingevoegd.   Tonen als normale link

    ×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

    ×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

  • Welkom op PC Helpforum

  • Leden statistieken

    • Aantal leden
      39.287
    • Meeste online
      1.622

    Nieuwste lid
    pg
    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 RuudvanDoorn
      Ik heb dit nog steeds niet gevonden. 
      Ik heb een brief voor de klanten van mijn webshop maatjemeer.nl .
      Nu heb ik op pagina 1 de brief. 
      Op pagina 2 allerlei variabelen die klantafhankelijk worden ingevuld.
      Hoe kan ik permanent instellen dat bij het afdrukken alleen de eerste pagina wordt afgedrukt.
      En ja! Ik begrijp dat ik dat kan aangeven bij de printerdialoog.
      Maar ik wil er niet om hoeven 'denken'.  Gewoon ctrl P en printen maar.
      Het document zelf moet dus aangeven wat geprint moet worden.
      Iemand een idee of oplossing? 
      Misschien is het erg simpel, maar ik krijg het niet gegoogeld
      Bedankt alvast voor de gedane moeite.
       
      Ruud van Doorn
      www.maatjemeer.nl 
    • Door Kelly6695
      Laptop valt uit tijdens (snel)typen
       
      Ik had een probleem, ontstond uit het niets. Tijdens het (snel) typen viel me laptop ineens in slaapstand. Ik wist niet waardoor het kwam en het was echt super vervelend. Gezocht in Google naar oplossingen en niets kunnen vinden (in eerste instantie). Vandaar dat ik dit bericht ook plaats want ik heb de oplossing gevonden. 
       
      Tijdens een chatgesprek met Windows werd er gedacht aan een software probleem, we probeerde een aantal dingen maar niets hielp. Het moest dan wel een hardware probleem zijn. Ik heb nog een tijdje gezocht op Google en vond het artikel wat mij gered heeft van heel veel problemen en kosten. 
       
      Het bleek namelijk dat ik een magnetische armband droeg wat ervoor zorgde dat de slaapstand in de laptop werd geactiveerd. Armband afgedaan en probleem opgelost!
       
      Met dank aan: https://www.baswijdenes.com/portfolio/laptop-goes-to-sleep-while-typing/ 
       
      Ik wilde dit graag met jullie delen.
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.