Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: waarde aanpassen in 2e bestand

  1. #1
    Senior Member
    Geregistreerd
    7 februari 2017
    Vraag is opgelost

    waarde aanpassen in 2e bestand

    Beste helpers van het forum,

    Momenteel probeer ik een klein volgend projectje te maken, een waarde aanpassen in een kolom van een ander bestand. Het is me bedoeling om vanuit het userform vanuit bestand 1, het op te zoeken nummer die in cell c4 staat, blad 1 van bestand 1. Dit nummer moet worden opgezocht in bestand 2, blad 3 in de B kolom, en daarna in de C kolom de waarde aanpassen aan "ja". Nou heb ik dit kunnen maken tot op heden toe: (uiteraard zal deze script veel langer zijn als dat noodzakelijk is, maar dit begrijp ik)

    Dim offnr As Object
    Set offnr = Range("C4")

    Workbooks.Open Filename:="F:\TEST.xlsb"

    Sheets("Totale overzicht offertes").Visible = True
    On Error Resume Next
    Sheets("Totale overzicht offertes").Select

    Cells.Find(What:=offnr, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    Dim x As Long, y As Long
    x = ActiveCell.Row
    y = ActiveCell.Column
    Do
    x = y + 1
    Loop Until Cells(x, y).EntireRow.Hidden = False
    Cells(x, y).Select
    ActiveCell.FormulaR1C1 = "ja"

    Nou gaat het goed tot het openen van het bestand, daarna wil hij niet meer de aangegeven waarde opzoeken in kolom B, maar als ik de script in bestand 2 zet dan zoekt hij wel de waarde, selecteert die cell, alleen zet hij het "ja" op de hele verkeerde plaats (ergens bovenaan). Ik snap even niet wat voor fout ik hierin maak. Kan iemand mij een duwtje in de goede richting geven??

    Alvast hartelijk bedankt voor alle hulp.

    Gr, stephan

  2. #2
    Senior Member
    Geregistreerd
    7 februari 2017
    Laat maar hangen, ik heb het probleem al gevonden.

  3. #3
    Kijk eens op de link, kun je zien hoe je de code tags moet gebruiken.

    Code:
    http://www.helpmij.nl/forum/misc.php?do=bbcode#code
    Laatst aangepast door ExcelAmateur : 20 maart 2017 om 13:44
    Met vriendelijkegroet,
    Vergeet niet de vraag als opgelost te zetten als je tevreden ben.

    EA

  4. #4
    Senior Member
    Geregistreerd
    7 februari 2017
    bedankt voor de tip ExcelAmateur....

    Hierbij voor de liefhebber het werkende voorbeeld zoals ik hem nu heb

    Sheets("Totale overzicht offertes").Visible = True
    On Error Resume Next
    Sheets("Totale overzicht offertes").Select

    Dim rw As Long
    Dim ws As Worksheet
    Set ws = Worksheets("TEST")

    rw = ws.Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Row

    With ws
    .Cells(rw, 3).Value = "nee"
    End With
    ActiveWorkbook.Save
    ActiveWorkbook.Close

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen