Opgelost laatste lege cel in kolom selecteren en

[Sjaakz]

Goedemorgen heren dames,

Ik ben op zoek naar een VBA instructie. (Zie bijlage voorbeeld bestandje)

Mijn probleem: In kolom k staat vanaf regel 5 geen waarde.

Ik wil naar de eerste lege cel in deze kolom (in dit geval k5 maar een week later kan het k10 zijn)
daar wil ik een formule invoeren (stel 1+1)
en deze doorvoeren naar de laatste cel 9 (in dit geval k9)

Alvast bedankt weer voor de oplossing.
Groet Sjaak

 

[Warme bakkertje]

Deze kan je al op weg helpen. Wijzig Blad1 in de juiste naam v/h werkblad.

Sub tst()
    Dim lRowA As Long, lRowK As Long
    With Sheets("Blad1")
        lRowA = .Range("A" & .Rows.Count).End(xlUp).Row
        lRowK = .Range("K" & .Rows.Count).End(xlUp).Row
        .Range("K" & lRowK + 1).Resize(lRowA - lRowK).Formula = "=1+1"
    End With
End Sub

 

[Sjaakz]

Op weg helpen???

Dit is het antwoord!! super

Bedankt

 

[Warme bakkertje]

Graag gedaan en bedankt voor de feedback.

 

[snb]

Zij- of hoofdweg:

Sub M_snb()
    Cells(1).CurrentRegion.Columns(11).SpecialCells(4) = "=1+5"
End Sub[/code}

Als je van de gegevens een dynamische tabel maakt los je het 'probleem' nog eenvoudiger op