Macro; automatisch doorvoeren formule in lege cellen

Question

Hallo,

Ik heb een werkblad waarin in kolom A elke week verschillende klantnummers staan. In kolom B moet de klantnaam geplaats worden. Nu is het zo dat de eerste paar honderd klantnamen er niet staan, maar na een paar honder regels, heb ik wel klantnamen. De lege cellen in kolom B wil ik vullen via de formule verticaal zoeken (met gegevens uit een ander tabblad).

Het probleem is als volgt: Elke week veranderd het aantal klantnummers. Elke week heb ik dus een rij klantnummers in kolom A met de eerste paar honderd cellen in kolom B die leeg zijn.

Voorbeeld: In kolom A staan 700 klantnummers. In kolom B zijn de eerste 350 cellen (regels) leeg, maar alles vanaf regel 351 is wél gevuld met een klantnaam.

Ik wil dus een macro hebben die vanaf regel 2 een formule doorvoert naar beneden in alle lege cellen TOT de eerstvolgende cel die niet leeg is. Is dit mogelijk en zo ja, welke code moet ik hiervoor in Visual Basic Editor gebruiken?

Answer 1

De vorige code enigszins aangepast kom ik hier op uit.

Let wel: de formule staat in rij 2, dus als je geen kolomkoppen gebruikt, zul je de code moeten aanpassen zodat deze een regel eerder begint.

Sub DoorvoerenFormule()

    Dim lngRowTemp As Long

    Dim lngRow As Long

    Dim sh As Worksheet

    Set sh = Sheets("Blad1")

    With sh

        lngRowTemp = .Range("A65536").End(xlUp).Row

        lngRow = .Range("B2").End(xlDown).Row - 1

        If lngRowTemp < lngRow Then lngRow = lngRowTemp

        .Range("B3:H" & lngRow).ClearContents

        .Range("B2:H" & lngRow).FillDown

    End With

End Sub

Jan

Answer 2

:-) ik wil juist de formule vert.zoeken die ik in cel B2 heb via een macro automatisch naar beneden doorvoeren (door alle lege cellen) tot de eerstevolgendeniet lege cel.

Dus in cel B2 staat de formule. De cellen vanaf B3 t/m bijvoorbeeld B350 zijn leeg, en vanaf B351 zijn de cellen gevuld. Dan wil ik dus dat de formule van B2 via een macro automatisch doorgevoerd wordt van B3 naar B350. En als de week daarop de cellen B3 t/m 400 leeg zijn en vanaf B401 weer gevuld zijn met info, moet de macro dus kunnen doorvoeren van B3 t/m B400.

Answer 3

Probeer eens met de vert.zoeken functie. Eventueeel eerst de namen sorteren in een ander bestand.