Ga naar inhoud

Aanbevolen berichten


Gast
Dit topic is nu gesloten voor nieuwe reacties.
  • Welkom op PC Helpforum

  • Leden statistieken

    • Aantal leden
      39.842
    • Meeste online
      1.765

    Nieuwste lid
    JazzyJazz
    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 Emma Boschmans
      Wanneer ik in onderstaand document in een invulvak tekst wil typen lukt dit.
      Wil ik echter een titel wijzigen of de layout aanpassen krijg ik steeds de melding: 'u kunt deze wijziging niet aanbrengen omdat de selectie is vergrendeld'.
      Ik had het document echter graag aangepast aan mijn persoonlijke voorkeuren. Is er een manier om deze vergrendeling uit te schakelen? 
       
       

    • Door JOS VAN LATEM
      Als ik probeer de naam van een document te wijzigen dan verdwijnt de titel terwijl ik aan het typen ben en komt de oude titel terug.
      Ik kan dus alleen de titel wijzigen als ik na het typen snel genoeg op de toets enter kan drukken (dan blijft de getypte titel staan) maar meestal krijg je daar de tijd niet voor want tijdens het typen komt al snel de oude titel van het document terug.
      Hoe kan ik dit oplossen?
       
    • Door Mike9090
      Er is sinds kort een nieuw programma van microsoft office wat microsoft teams heet. Ik wist niet wat het was maar het blijkt een sneller alternatief voor emails schrijven of gewoon contact in het algemeen. Ik vind emails schrijven met de email app of met microsoft teams niet fijn en ik kan de ruimte goed gebruiken maar elke keer als ik mijn pc opstart als hij uit staat download hij teams opnieuw. 
    • 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. 

×
×
  • Nieuwe aanmaken...