Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: formule in cel omzetten naar vba onder command button

  1. #1
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Vraag is opgelost

    formule in cel omzetten naar vba onder command button

    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
    Attached Files Attached Files
    Beter vandaag gemaakt dan tot morgen gewacht

  2. #2
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    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

  3. #3
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Beste Sjon,

    Hartelijk dank voor je reactie

    Dat werkt heel mooi

    Super

    Thanks

    Friend
    Beter vandaag gemaakt dan tot morgen gewacht

  4. #4
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    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
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Snb,

    Ook hartelijk dank voor jouw reactie

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

    Thanks

    Friend
    Beter vandaag gemaakt dan tot morgen gewacht

  6. #6
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    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
    Beter vandaag gemaakt dan tot morgen gewacht

  7. #7
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    De cl staat in kolom A. Cl.Offset(,3) verwijst naar 3 kollen verder, dus kolom D.

  8. #8
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Sjon,

    Helder.

    Hartelijk dank.

    Friend
    Beter vandaag gemaakt dan tot morgen gewacht

  9. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren