ALS.FOUT(VERTIKAAL.ZOEKEN) formule in VBA

Status
Niet open voor verdere reacties.

globe

Verenigingslid
Lid geworden
18 mrt 2001
Berichten
3.584
Mede door de goede hulp hier ben ik erg enthousiast aan de gang gegaan met VBA.

Om mijn project helemaal af te maken ben ik op zoek naar een VBA Script wat een ALS.FOUT(VERTIKAAL.ZOEKEN) formule vervangt en de uitkomst als harde waarde in een kolom plakt.

In bijgaand voorbeeld de manier hoe ik het nu doe, maar deze methode heeft veel nadelen.
Tabblad Originele Data kolom Voorraad.

Er staan meerdere kolommen met Vertikaal zoeken formules in wat de sheet erg traag maakt en de uitkomsten zijn formules waardoor ik telkens moet kopieren en als harde waarde plakken. Dit wil ik vermijden.

Het einddoel moet een button worden die een macro uitvoert welke de kolom 'voorraad' update vanuit de tab 'Voorraad'. Hoe ik een button moet maken weet ik.

Een tweede script zou helemaal mooi zijn wat de data uit een geheel andere excel haalt.

Wederom alvast bedankt voor de genomen moeite.
 

Bijlagen

  • Voorbeeld_vertikaal_zoeken.xlsx
    11 KB · Weergaven: 52
zoiets in bladmodule "originele data"?

Code:
Sub SjonR()
    For Each cl In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
        cl.Offset(, 1).Value = Sheets("Voorraad").Columns(1).Find(cl.Value).Offset(, 2).Value
    Next
End Sub
 
Werkt top!

Super bedankt.

Wat moet ik aanpassen als ik Vertikaal wil zoeken in een andere Excel file? Zou je me daar ook een voorbeeld van willen geven?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan