formule over ganse kolom vba

[gast0173]

help,

Ik ben niet zo goed in vba excel en zou iets moeten maken..
De opdracht bestaat er uit om een naam te zetten in kolom A, maakt niet uit waar.
Maar hoe moet ge die formule over zetten naar de volledige kolom en dat hij de naam pakt dat voor kolom b,c en d staat. (bv: naam in cel a444 dat b ook in 444 staat, ...)
Kan iemand mij helpen? :s

Alvast bedankt

 

[Timshel]

Kun je hier iets mee?
http://www.helpmij.nl/forum/showthread.php/878791-Excel-2010-formule-niet-bekend

 

[gast0173]

Beste,
Niet echt.. met de formules zou ik iets kunnen doen als je maar 1 naam nodig hebt. Bij mij moet dit over gans de kolom zijn dus van B1 tot B1045000. En spijtig genoeg weet in niet hoe of wat :s
(Maar danku om te antwoorden )

 

[Cobbe]

Post eens een bestandje waarin de situatie is uitgelegd en de bedoeling er bij staat.

 

[Cobbe]

Waarom moet dat perse met een macro gebeuren?
Je kan die formules toch gewoon naar beneden doortrekken zover als nodig.

Maar als het echt moet:

Sub Initialenmacro()
'
' Macro2 Macro
'

For Each cl In Sheets("Blad1").Range("B:B")
    Cells(cl.Row, 2).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";1)&""""&DEEL(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & ")+1;1);"""")"
    Cells(cl.Row, 3).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & "));"""")"
    Cells(cl.Row, 4).FormulaLocal = "=ALS.FOUT(RECHTS(A" & cl.Row & ";LENGTE(A1)-VIND.SPEC("" "";A" & cl.Row & "));"""")"
Next
    Sheets.Add After:=ActiveSheet
End Sub

 

[gast0173]

beste,

Dit moet via macro gedaan worden (omdat we niet weten hoeveel mensen we nodig hebben, zijn dit er 100 is slepen zeker geen probleem, zijn er dit 5000 dan is dit al wat meer werk )
U macro werkt zoals gevraagd! heel erg bedankt hiervoor!!
Nu wel :s kan je er een formule bij zetten dat als er niets in a staat dat hij deze niet blijft afgaan, anders gaat hij ze allemaal afgaan tot 1045000..
(mijn excuses dat ik dit er niet direct bij gezet heb)

 

[Cobbe]

Zo zal het wel lukken zeker:

Sub Initialenmacro()
'
' Macro2 Macro
'
With Sheets("Blad1")
  For Each cl In .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
    Cells(cl.Row, 2).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";1)&""""&DEEL(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & ")+1;1);"""")"
    Cells(cl.Row, 3).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & "));"""")"
    Cells(cl.Row, 4).FormulaLocal = "=ALS.FOUT(RECHTS(A" & cl.Row & ";LENGTE(A1)-VIND.SPEC("" "";A" & cl.Row & "));"""")"
  Next
End With
    Sheets.Add After:=ActiveSheet
End Sub

 

[gast0173]

Cobbe, ik zie ook net dat hij dingen doet die niet de bedoeling zijn denk ik :s
ook zet hij bij achternaam iets raars.. bij mijn naam (gast0173 en anoniem0173 doet hij wat hij moet doen)


Het mag dus niet automatisch gezet worden.
(Ik ga hierna een startknop zetten die de macro actief zet)

 

[Timshel]

Klein bugje nog:

Sub Initialenmacro()
    With Sheets("Blad1")
        For Each cl In .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
            Cells(cl.Row, 2).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";1)&""""&DEEL(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & ")+1;1);"""")"
            Cells(cl.Row, 3).FormulaLocal = "=ALS.FOUT(LINKS(A" & cl.Row & ";VIND.SPEC("" "";A" & cl.Row & "));"""")"
            Cells(cl.Row, 4).FormulaLocal = "=ALS.FOUT(RECHTS(A" & cl.Row & ";LENGTE(A" [COLOR="#FF0000"]& cl.Row &[/COLOR] ")-VIND.SPEC("" "";A" & cl.Row & "));"""")"
        Next
    End With
    'Sheets.Add After:=ActiveSheet
End Sub

 

[gast0173]

Held!
Ik ben jullie dankbaar cobbe! en Timshel! :thumb:

 

[Cobbe]

En Timschel voor de final touch!!