DennisP1972
Nieuwe gebruiker
- Lid geworden
- 26 sep 2022
- Berichten
- 2
Best allemaal die dit lezen.
ik heb al veel dingen uit dit helpmij forum gehaald en ik wordt er een stuk wijzer van.
ik ben bezig een groot bestand te maken die moet helpen de materialen tbv brandweer oefeningen in beeld te brengen.
ik loop nog tegen een paar dingen aan en die wil ik hier per onderdeel apart in dit forum zetten in de hoop op een oplossing.
Iedere brandweerpost heeft zijn eigen (volgens hetzelfde format) oefenrooster. dit zijn 72 kazernes.
ieder rooster moet onder elkaar in een TOTAAL blad komen te staan. dit is mij gelukt.
naast ieder rooster moet bij elke lijn de naam van de post komen te staan zodat we terug kunnen zien van welke post het was.
daarvoor heb ik onderstaande makro.
het lukt om de cellen te selecteren, maar wat niet lukt is de geselecteerde cellen te vullen met een postnaam. hij vult (zoals er al staat activecell) alleen de actieve cel.
vraag is dus wie heeft hiervoor de oplossing. het mooiste zou zijn als hij ook automatisch door bijvoorbeeld active.worksheet oid de naam van de in te vullen post selecteert
======================
ik heb al veel dingen uit dit helpmij forum gehaald en ik wordt er een stuk wijzer van.
ik ben bezig een groot bestand te maken die moet helpen de materialen tbv brandweer oefeningen in beeld te brengen.
ik loop nog tegen een paar dingen aan en die wil ik hier per onderdeel apart in dit forum zetten in de hoop op een oplossing.
Iedere brandweerpost heeft zijn eigen (volgens hetzelfde format) oefenrooster. dit zijn 72 kazernes.
ieder rooster moet onder elkaar in een TOTAAL blad komen te staan. dit is mij gelukt.
naast ieder rooster moet bij elke lijn de naam van de post komen te staan zodat we terug kunnen zien van welke post het was.
daarvoor heb ik onderstaande makro.
het lukt om de cellen te selecteren, maar wat niet lukt is de geselecteerde cellen te vullen met een postnaam. hij vult (zoals er al staat activecell) alleen de actieve cel.
vraag is dus wie heeft hiervoor de oplossing. het mooiste zou zijn als hij ook automatisch door bijvoorbeeld active.worksheet oid de naam van de in te vullen post selecteert
======================
Code:
Sub Selecteren_en_vullen()
Range("v1048576").Select
Selection.End(xlUp).Select
Post = ActiveCell.Row + 1
Range("v" & Post).Select
ActiveCell.FormulaR1C1 = "1"
Range("a1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 21).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Select
ActiveCell.Value = "Abcoude"
End Sub
Laatst bewerkt door een moderator: