macro afhankelijk van plaats

[jolly01]

Dagelijks maak ik een rapportje op van een top 10.

"Volledige opzegging" staat elke dag in deze top 10, maar telkens op een andere regel.

Is het mogelijk met een macro om onafhankelijk waar "Volledige opzegging" terechtkomt (dus L26 of L27 of L28 enz) direct daar onder 10 extra regels in te voeren?

In de bijlage een voorbeeld hoe het eruit gaat zien als "Volledige opzegging" in Cel L27 terechtkomt.

 

[Roncancio]

Zodra je ergens in het werkblad volledige opzegging invoert, worden 10 cellen in dezelfde kolom overgeslagen en de volgende geselecteerd.

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase(Target.Value) = "volledige opzegging" Then Target.Offset(11, 0).Select
End Sub

Met vriendelijke groet,


Roncancio

 

[jolly01]

Na een bewerking komt de top 10 in bereik B29:C38 terecht. Ik zoek naar een oplossing die in C29:C38 zoekt naar "Volledige opzegging" en vervolgens onder "Volledige opzegging" (in de bijlage is dat in dit geval onder C30) 10 regels extra invoert.

Is dat mogelijk?

 

[Roncancio]

Set VO = Range("C28:C38").Find("Volledige opzegging", , xlValues, xlWhole)
Range(VO.Offset(1, 0).Row & ":" & VO.Offset(11, 0).Row).Insert

Met vriendelijke groet,


Roncancio

 

[jolly01]

Dat lukt prima :thumb:

Nadat de 10 regels zijn aangemaakt wil ik dat de macro het bereik N13:R22 uit blad "CCR_Reasons" kopieërt en plakt in kolom B onder het nummer bij "Volledige opzegging.

Hoe ziet de code er dan uit?

 

[jolly01]

Ik maakte een fout in de vraagstelling.

Nadat de 10 regels zijn aangemaakt wil ik dat de macro het bereik N13:R22 uit blad "CCR_Reasons" kopieërt en plakt in kolom C onder "Volledige opzegging".

Hoe ziet de code er dan uit?

 

[Roncancio]

Set VO = Range("C28:C38").Find("Volledige opzegging", , xlValues, xlWhole)
Range(VO.Offset(1, 0).Row & ":" & VO.Offset(10, 0).Row).Insert
Blad5.Range("N13:R22").Copy VO.Offset(1, 0)

Met vriendelijke groet,


Roncancio

 

[jolly01]

Nadat de 10 regels zijn aangemaakt wil ik dat de macro het bereik N13:R22 uit blad "CCR_Reasons" kopieërt en plakt in kolom C onder "Volledige opzegging".

Ik bedoelde eigenlijk:
kopieren en plakken als waarde en opmaak.

 

[Roncancio]

Ik bedoelde eigenlijk:
kopieren en plakken als waarde en opmaak.

Dat doet de code van mijn vorige reactie al.

Met vriendelijke groet,


Roncancio

 

[jolly01]

Ik vergat aan te geven dat de waarden in blad CCR_Reasons eigenlijk verwijzingen zijn.

 

[jolly01]

Roncancio,
Zou je nog even naar de code kunnen kijken?

Volgens mij kopieert jouw code en plakt. Omdat er verwijzingen staan is het nodig dat de code kopieert en plakt als waarde en opmaak.

 

[Roncancio]

Bedoel je het zo?

Sub cvv()
Set VO = Range("C28:C38").Find("Volledige opzegging", , xlValues, xlWhole)
Range(VO.Offset(1, 0).Row & ":" & VO.Offset(10, 0).Row).Insert
Blad5.Range("N13:R22").Copy
VO.Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats

End Sub

Opmaak en waardes worden gekopieerd.

Met vriendelijke groet,


Roncancio

 

[jolly01]

Hij plakt nu inderdaad als waarde maar hij plakt nog niet de opmaak van tabblad CCR_Reasons N13:R22.

Kan je N13:R22 als waarde én opmaak laten plakken?
In de bijlage staat zoals ik hem hebben wil.

 

[Roncancio]

Volgens mij bedoel je het zo:

Sub cvv()
Set VO = Range("C28:C38").Find("Volledige opzegging", , xlValues, xlWhole)
Range(VO.Offset(1, 0).Row & ":" & VO.Offset(10, 0).Row).Insert
Blad5.Range("N13:R22").Copy
VO.Offset(1, 0).PasteSpecial xlPasteFormats
VO.Offset(1, 0).PasteSpecial xlPasteValues

End Sub

Met vriendelijke groet,


Roncancio

 

[jolly01]

Inderdaad. :thumb: