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

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: VBA code voor ALS(VERT.ZOEKEN)

  1. #1
    Senior Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Vraag is opgelost

    VBA code voor ALS(VERT.ZOEKEN)

    In het werkblad "begroting" kan ik via userform "klick" of handmatig codes ingeven.
    In kolom 3 en kolom 5 wordt dan via de ALS(vert.zoek.... formule de gegevens opgehaald.
    Wie helpt mij aan een vba code ipv. die formules in kolom 3 en 5.

    Groet,
    AlbertBegroting.xlsb

  2. #2
    Senior Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    ik ben al een heel eind op weg met onderstaande code.
    Alleen nog een probleem. Als ik de code in kolom 1 op blad "begroting" weghaal wordt
    in kolom 2 de waarde uit cel B2 van de artikellijst geplaatst.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        
        If Target.Column = 1 Then
            Target.Offset(, 1).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 6).Value 'artikelnummer
            Target.Offset(, 2).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 1).Value 'omschrijving
            Target.Offset(, 4).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 2).Value 'bruto prijs per stuk
            Target.Offset(, 8).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 4).Value 'netto prijs per stuk
            
        End If
    End Sub
    Laatst aangepast door AD1957 : 12 oktober 2018 om 13:24

  3. #3
    Senior Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    probleem is opgelost door alle cellen in kolom B van het blad artikellijst tot aan het laatste
    artikelnummer een waarde te geven. Logisch, maar toch lang moeten zoeken.

    Nu nog op zoek naar een code om van de formules in kolom F,H,J, in het blad begroting af te komen.
    Alle hulp is welkom.

    Albert

    Begroting.xlsb

  4. #4
    Ik zit op de IPad en kan geen xlsb openen.
    Heb je al eens geprobeerd om de Formule op te nemen met de macro recorder?
    Als het nodig is kun je met het opnemen de cel verwijzing absoluut maken. $A$3 b.v.b.
    Suc6
    Met vriendelijke groet,
    Vergeet niet de vraag als opgelost te zetten als je tevreden ben.

    EA

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