Ga naar inhoud

VBA Excel


Gast Fuz
 Delen

Aanbevolen berichten


 Delen

  • Welkom op PC Helpforum

  • Leden statistieken

    • Aantal leden
      40.253
    • Meeste online
      1.765

    Nieuwste lid
    Cynto
    Registratiedatum
  • Gerelateerde inhoud

    • Door watco
      Ik zoek oplossing voor het volgende.
      Ik heb tabblad met zaken uit een prijslijst.
      in de eerste kolom A staan de artikelcodes maar ertussen staan ook telkens per artikel extra rijen met omschrijving, de afmeting, etc.
      ik wil bekomen dat in nieuw tabblad ik de artikelcodes in eerste kolom plaats en dat dan in de kolommen ernaast de prijs, de omschrijving, de afmeting automatisch opgehaald worden uit tabblad 1.
      De prijs is geen probleem want deze staat telkens om dezelfde rij als de artikelcode in kolom 8 en is éénvoudig via vert.zoeken opgehaald.
      Maar hoe kan ik de waarde in rijen eronder ophalen ?
      Ik vind geen enkele formule in excel en ben wel wat bedreven maar zeker geen excel expert.
      Dus graag enige input.
      bedankt
      vraag excel.xlsx
    • Gast
      Door Gast
      Ik heb gisteren eenn beveiliging van,
      Microsoft Security Essentials gedownload
      en geinst.
      Weet iemand hier iets van.
       
    • Door CaptainRexCC
      Games die mijn PC makkelijk aankan, crashen na een willekeurige tijd met de error LiveKernelEvent 141. Dit zijn alle details in het crashreport:
      Problem Event Name:    LiveKernelEvent
      Code:    141
      Parameter 1:    ffff9c06041df010
      Parameter 2:    fffff80340d4c188
      Parameter 3:    0
      Parameter 4:    1ab0
      OS version:    10_0_19042
      Service Pack:    0_0
      Product:    256_1
      OS Version:    10.0.19042.2.0.0.256.48
      Locale ID:    1033
      Ik speel op een windows 10 pc die altijd up-to-date is, en mijn games zeggen vaak dat ik mijn videodrivers moet updaten, terwijl ik dat al de hele tijd doe. Ik heb dit probleem al drie jaar, kan iemand mij helpen?
    • Door Rik123
      Beste leden,
       
      Voor mijn werk ben ik een Excel bestand/dashboard aan het maken. Momenteel wordt van alles handmatig een rapportage gemaakt. Omdat ik dacht dit kan handiger ben ik gaan knutselen.
      Ik ben erg ver gekomen en tevreden met mijn resultaat.
       
      Nu kan het altijd beter. Het dashboard werkt namelijk voor een hele maand. In de ideale wereld kan ik zelf een datum invullen en het dashboard laat dan alleen de data zien van die datum. Of nog beter 2 datums en dashboard laat de data tussen deze twee datums zien.
       
      Het gaat in het bestand om de datum in cel A2 >
       
      Ik ben benieuwd of dit mogelijk is of dat er andere suggesties zijn.
      Alvast bedankt voor de moeite!
       
      (PS ik heb het bestand dusdanig aangepast zodat geen privé gegeven erin staan..)
      Voorbeeld bestand voor forumhelp.xlsx
    • 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
×
×
  • Nieuwe aanmaken...