Ik heb een macro in Excel gemaakt. als ik op de bovenste cel in een kolom ga staan, dan wordt bij macro uitvoeren deze cel bewerkt, zoals in de macro bedoelt. Ik wil echter alle cellen in die kolom laten bewerken door de macro, maar weet niet hoe ik dit moet doen. Hoe moet ik de macro verder programmeren om alle cellen in de kolom te bereiken ?
Kan de macro ook automatisch stoppen wanneer alle ingevulde cellen bewerkt zijn ?
Hopelijk kan iemand mij helpen.
Wim van der Lingen, Wijk bij Duurstede
E-mail: wvdl@wanadoo.nl
Tel.: 0343-574914 ?
Macro's - Vraag over macro's in Excel
Moderator: Perry
7 berichten • Pagina 1 van 1
Macro's
door Wijkenaar » ma 13 okt 2003, 9:21
Bedankt voor de reactie.
De aanvulling op de macro werkt niet, omdat ik een Nederlandstalige Excel heb. Kan deze aanvulling in het Nederlands ?
Wat betekent het figuurtje in de aanvulling ?
Bedankt, ?Wim
De aanvulling op de macro werkt niet, omdat ik een Nederlandstalige Excel heb. Kan deze aanvulling in het Nederlands ?
Wat betekent het figuurtje in de aanvulling ?
Bedankt, ?Wim
Wim
- Wijkenaar
- Berichten: 9
- Geregistreerd op: za 09 nov 2002, 22:10
- Woonplaats: Wijk bij Duurstede
Macro's
door Wijkenaar » ma 13 okt 2003, 17:04
Tot mijn spijt werkt de macro nog niet.
Voor diegene die mijn vraag beantwoord heeft het volgende voorstel:
Ik geef hier onder weer, wat ik met deze simpele macro wil doen en misschien kan ik de complete macro als bijlage via mijn E-mail krijgen. Indien de beantwoorder dit wil, zou ik dan ook graag zijn telefoonnummer ontvangen, zodat ik hem kan bellen als er alsnog een probleem is.
Na het aanvullen van de macro met het opgegeven commando krijg ik de foutmelding:
? ?Compileerfout:
? ?Syntaxisfout
De volgende kolom wil ik bewerken:
AEXC03092400
AEXC03092700
AEXc03092800
? ? enz. (ca. 300 regels)
Ik wil in elke cel de eerste 3 posities verwijderen, zodat ik de volgende kolom krijg:
C03092400
C03092700
C03092800
? enz.
Mijn macro werkte dus wel in 1 cel.
Bij voorbaat mijn hartelijke dank
Wim van der Lingen
Voor diegene die mijn vraag beantwoord heeft het volgende voorstel:
Ik geef hier onder weer, wat ik met deze simpele macro wil doen en misschien kan ik de complete macro als bijlage via mijn E-mail krijgen. Indien de beantwoorder dit wil, zou ik dan ook graag zijn telefoonnummer ontvangen, zodat ik hem kan bellen als er alsnog een probleem is.
Na het aanvullen van de macro met het opgegeven commando krijg ik de foutmelding:
? ?Compileerfout:
? ?Syntaxisfout
De volgende kolom wil ik bewerken:
AEXC03092400
AEXC03092700
AEXc03092800
? ? enz. (ca. 300 regels)
Ik wil in elke cel de eerste 3 posities verwijderen, zodat ik de volgende kolom krijg:
C03092400
C03092700
C03092800
? enz.
Mijn macro werkte dus wel in 1 cel.
Bij voorbaat mijn hartelijke dank
Wim van der Lingen
Wim
- Wijkenaar
- Berichten: 9
- Geregistreerd op: za 09 nov 2002, 22:10
- Woonplaats: Wijk bij Duurstede
Macro's
door GMe » ma 13 okt 2003, 19:09
Met de onderstaande macro krijg je in kolom B precies te staan wat jij wilt.
Sub Test()
? ?
? ?ScreenUpdating = False
? ?Range("B1").Select
? ?ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,9)"
? ?Application.CutCopyMode = False
? ?Range("B1").Select
? ?Selection.Copy
? ?Columns("B:B").Select
? ?Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
? ? ? ?SkipBlanks:=False, Transpose:=False
? ?Range("B1").Select
? ?Application.CutCopyMode = False
End Sub
Sub Test()
? ?
? ?ScreenUpdating = False
? ?Range("B1").Select
? ?ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,9)"
? ?Application.CutCopyMode = False
? ?Range("B1").Select
? ?Selection.Copy
? ?Columns("B:B").Select
? ?Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
? ? ? ?SkipBlanks:=False, Transpose:=False
? ?Range("B1").Select
? ?Application.CutCopyMode = False
End Sub
- GMe
- Berichten: 145
- Geregistreerd op: zo 07 okt 2001, 16:16
7 berichten • Pagina 1 van 1
Keer terug naar Suggesties en vragen
Wie is er online
Gebruikers op dit forum: Geen geregistreerde gebruikers en 25 gasten