zoeken en wijzigen in ander bestand

[Sjaakz]

zoeken en wijzigen in ander bestand met Voorbeeld

Heren/dames,

Ik heb 2 bestanden één lijst met dossiers nr's en één waarmee ik de status in deze dossierlijst wil wijzigen.

Mijn idee is dat ik de waarde van cel b3 ga zoeken in de dossierlijst en zodra ik deze gevonden heb vier kolomen verder de status wijzig in bijv dossier toegewezen.

Omdat de dossierlijst door iedereen gebruikt wordt wil ik deze zo kort mogelijk geopend hebben om deze wijziging door te voeren.

Dus kan iemand mij aangeven ivm een te maken code

- hoe ik deze variable waarde (b3) in de zoekfunctie kan opnemen,
om vervolgens indien gevonden 4 kolomen naar rechts te gaan en dan wat in te vullen.


In de tussentijd moet het bestand dossierlijst geopend worden (daar kom ik wel uit denk ik)

Alvast bedankt voor de snelle hulp
Sjaakz

 

[computerbegeleidr]

hey Sjaakz

Over welk programma heb jij het eigenlijk? Het klinkt als Excel maar je bent hierin niet duidelijk. Mod edit: commerciele link verwijderd.

 

[Sjaakz]

Sorry het gaat over excel

Bedankt voor je reactie

 

[computerbegeleidr]

misschien heb je hier ook nog iets aan. http://office.microsoft.com/nl-nl/excel-help/overzicht-van-formules-HP010081865.aspx
ik zit ondertussen nog even te brainstormen over die formule

 

[Sjaakz]

het gaat om

Bedankt computerbegeleidr dat je voor me aan het meedenken bent, het gaat dus om een VBA code die de waarde in cel b3 leest en vervolgens met deze waarde gaat zoeken in de dossierlijst.

Wanneer deze waarde (regel) gevonden is dan wil ik dus op deze regel het eea wijzigen.

Vervolgens sla ik de dossierlijst op en sluit hem af... allemaal automatisch.

 

[Sjaakz]

heren ik denk dat een voorbeeldje meer zegt dan mijn tekst

Ik heb een voorbeeldje gemaakt van wat ik bedoel.

in het bestand statushelpmij vul ik het dossiernr in B3 (in dit geval bijv 20010)

Daarna druk ik op de knop Toegewezen om de status ontvangen in dossierlijst.xlsm d3 te wijzigen in Toegewezen.

(hij moet dus zoeken in de dossierlijst en indien gevonden een 3 tal kolomen opschuiven om daar wat in te vullen)

Later als dit principe werkt dan kan ik ook de andere knoppen van macro's voorzien.


Opslaan en afsluiten en opnieuw opstarten enz en andere bewerkingen lukt wel

Hopende op reacties.

Sjaak

 

[Sjaakz]

na een weekendje zoeken heb ik het gevonden bedankt voor het meedenken

Dit werkt voor mij. Het is een voorbeeldje gevonden op de site www.rondebruin.nl. Een klein beetje aangepast aan mijn situatie en vervolgens combineren met andere code's heb ik precies wat ik wil.

Sub zoeken()
    Dim FindString As String
    Dim Rng As Range
    'FindString = InputBox("Enter a Search value")
    FindString = Sheets("blad1").Range("b3").Value
    Workbooks.Open Filename:="P:\dossier\dossierlijst.xlsx"
    If Trim(FindString) <> "" Then
        With Sheets("werkenlijst").Range("A:A")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
     ActiveCell.Offset(0, 7).Range("A1").Select
   End Sub

Bedankt voor het meedenken.

SjaakZ