willekeurige selectie

[Imod]

Sub samenvoegen()
'
' samenvoegen Macro
'
Range("R1817:S1817").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End Sub

Nu geselecteert (R1817:S1817)
Maar ik wil de macro op een wilekeurige selectie laten werken.
Dus ik selecteer een aantal cellen en daar moet deze macro op werken.
Wat moet ik veranderen

mvg Imod

 

[janus1janus1]

Is dit hetgeen je bedoelt:

Maak een selectie en de code bepaalt de adressen van de selectie.
In onderstaande code worden de rijnummers van de selectie bepaalt. Als je het met kolommen wilt doen moet je hem iets ombouwen.

Kleine toelichting: De variabelen 1 t/m 4 zijn voor de juiste bepaling van de selectie. Het maakt verschil of je een selectie maakt van onder naar boven of andersom. Onderstaande code elimineert dit.
succes
Janus

RijTot = Selection.Rows.Count
If RijTot > 1 Then
reeks = "waar"
selectie = ActiveWindow.RangeSelection.Address

var1 = InStr(1, selectie, "$")
var2 = InStr(var1 + 1, selectie, "$")
scheiding = InStr(var1 + 1, selectie, ":")
var3 = InStr(var2 + 1, selectie, "$")
var4 = InStr(var3 + 1, selectie, "$")
lengte = Len(selectie)
RijPeerste = Val(Mid(selectie, var2 + 1, scheiding - var2 - 1))
RijPlaatste = Val(Right(selectie, lengte - var4))
Else
RijPeerste = ActiveCell.Row
RijPlaatste = RijPeerste
End If

 

[LucHeyndrickx]

Dit verwijderen:

Range("R1817:S1817").Select

Luc

 

[Imod]

Hallo Luc;

Ik zat steeds te denken aan wijzigen van de regel maar
dit werkt prima - bedankt