Formule onder een knop

[BlackBullet]

Beste specialisten,

Hoe kan ik (op een hopelijk eenvoudige manier) een formule onder een klikbare knop krijgen?
Zal met VBA moeten gok ik maar ik heb echt geen idee hoe ik programmeren moet.
Ik heb nu een tekstvak gemaakt en probeer daar een macro aan toe te wijzen maar ik kom er echt niet meer uit.

Alvast bedankt!

 

[edmoor]

Net als bij een knop, klik er met rechts op en kies dan Macro toewijzen.

 

[BlackBullet]

Ja oké maar dan krijg ik een wit venster met iets van opnemen staat er dan, maar ik krijg daar niet iets werkends in zoals ik wil.

 

[edmoor]

Kijk eens naar dit.
Ik heb wel de lege regels verwijderd.

 

[BlackBullet]

Ja, dat dus.
maar in het originele bestand kan ik de lege regels niet verwijderen en die zullen moeten blijven staan
Alvast bedankt!

 

[edmoor]

Zie #4.

 

[AD1957]

probeer dit maar eens.

Sub Bereken()
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1) > 0 Then
            Set c = Range("K:K").Find(Cells(i, 1))
            If Not c Is Nothing Then
                Cells(i, 2) = c.Offset(, 1).Value
            End If
        End If
    Next i
End Sub

 

[AHulpje]

Is VERT.ZOEKEN geen optie?
In B2, doortrekken naar beneden:

=VERT.ZOEKEN(A2;K:L;2;ONWAAR)

 

[BlackBullet]

probeer dit maar eens.

Sub Bereken()
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1) > 0 Then
            Set c = Range("K:K").Find(Cells(i, 1))
            If Not c Is Nothing Then
                Cells(i, 2) = c.Offset(, 1).Value
            End If
        End If
    Next i
End Sub

ja perfect! superbedankt!