• 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.

Automatisch zoeken en verplaatsen

Status
Niet open voor verdere reacties.
B

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Wie kan mij even helpen.

Ik ben bezig om een programma te schrijven.
Ik wil graag dat ik een zoek optie invoer en dat hij dan in de juiste kolom gaat zoeken.
Als hij een overeenkomst tegen komt dan de rij kopiëren en plakken in een andere sheet (in voorbeeld printen)
Daarna moet hij verder zoeken tot hij alles heeft gehad.

Ik doe even een voorbeeld bij.
Wie kan en wil mij even helpen hiermee.

Alvast bedankt. Bekijk bijlage vraag zoeken.xlsm
 
Bertus, waarom maak je in Blad "fiets" geen filter? dan kun je alle andere bladeren weg laten.
 
Ik wil dit graag in VBA omdat die gene die ermee moet werken niet goed met computers overweg kan.
Dus ik wil het voor hem zo makkelijk mogelijk maken.
 
Zonder knop met een afhankelijke validatielijst.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Select Case Target.Address
      Case "$C$4"
      ar = Sheets("fiets").Cells(1).CurrentRegion
      t = Application.Match(Range("C4"), Application.Index(ar, 1), 0)
      For j = 2 To UBound(ar)
        If InStr(c00, ar(j, t)) = 0 Then c00 = c00 & "," & ar(j, t)
      Next j
      Range("C5").ClearContents
      Range("C5").Validation.Modify 3, 1, 1, Mid(c00, 2)
    Case "$C$5"
      Sheets("printen").Range("B2") = Target
      Sheets("fiets").Cells(1).CurrentRegion.AdvancedFilter 2, Range("C4:C5"), Sheets("printen").Range("A5:U5")
      Application.Goto Sheets("printen").Range("A5")
  End Select
  Application.EnableEvents = True
End Sub
 

Bijlagen

  • vraag zoeken.xlsm
    27,8 KB · Weergaven: 35
Bedankt, dit is precies wat ik zocht.

Je bent een topper.

:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan