• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

formule in cel omzetten naar vba onder command button

Status
Niet open voor verdere reacties.
Friend

Friend

Verenigingslid
Lid geworden
31 jan 2009
Berichten
1.128
Beste Forummers,

Graag zou ik de formule die ik gebruik in cel D4 (en verder) willen omzetten in VBA onder een command button zodat alle cellen in kolom D vanaf D4 gelijk worden aangepast/uitgevoerd.

Is dit mogelijk?

Friend
 

Bijlagen

  • formulenaarvba.xlsx
    13,6 KB · Weergaven: 36
probeer deze eens:

Code: 
Private Sub CommandButton1_Click()
For Each cl In Range("A4:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    cl.Offset(, 3) = Left(cl.Offset(, 1), 4) & Right(cl.Offset(, 1), 2) & IIf(cl = "", "", Right(cl, Len(cl) - InStr(Len(cl) - 5, cl, " ")))
Next
End Sub
 
Beste Sjon,

Hartelijk dank voor je reactie:thumb:

Dat werkt heel mooi :D

Super

Thanks

Friend
 
Of met:

Code: 
Sub M_snb()
   [D4:D400] = [if(A4:A400="","",substitute(B4:B400&mid(right(A4:A400,8),search(" ",right(A4:A400,8)),len(A4:A400))," ",""))]
End Sub
 
Snb,

Ook hartelijk dank voor jouw reactie :thumb:

Deze werkt ook perfect voor mij :d en kan ik iets beter begrijpen.

Thanks

Friend
 
Beste Sjon,

Nog één vraagje als het mag, terwijl ik jouw code probeer te begrijpen, waar lees ik dat de uitkomst in kolom d geplaatst moet worden?

Friend
 
De cl staat in kolom A. Cl.Offset(,3) verwijst naar 3 kollen verder, dus kolom D.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan