Selectie met 1 cell vergoten

[MEradus]

Hoi!

Is het op een makkelijke manier op te lossen om de selectie die met deze code gemaakt wordt

Range(Selection, Selection.End(xlToRight)).Select

Uit te breiden met 1 cell? Er moeten namelijk inclusief de geselecteerde 4 cellen geselecteerd worden i.p.v. 3.

Heb een vb erbij gedaan met de code vooraf en na die tijd.


Alvast bedankt voor het meekijken!

Bekijk bijlage Helpmijselecteren.xlsm

 

[snb]

with Selection.resize(,Selection.End(xlToRight).column+1)
   .vaoue="ziezo"
End with

PS. Vermijd 'Select' en 'Activate in VBA

 

[MEradus]

Hoi Snb,

Wederom bedankt voor je hulp.
Ik kwam er alleen achter dat ik een stukje vergeten was waardoor de selectie weer te groot werd.
Maar dankzij jou code kreeg ik een idee om die van mij aan te passen.

Dit is um geworden, verdiend waarschijnlijk niet de schoonheidsprijs maar hij werkt.

Range(Selection, Selection.End(xlToRight).Offset(0, 1)).Cut

Nogmaals bedankt!

 

[VenA]

De vraag lijkt mij 'ik wil de waarde en de drie cellen naast de gevonden waarde knippen en deze 1 regel naar beneden en 4 cellen naar links verplaatsen?'

Dan volstaat deze

Sub Selectie()
    Range(Columns(5).Find("Afgek. Met").Address).Resize(, 4).Cut Range(Columns(5).Find("Afgek. Met").Address).Offset(1, -4)
    Application.CutCopyMode = False
End Sub

 

[HSV]

En als de tekst niet wordt gevonden krijg je een foutmelding.