Range/Selected cell toepassing

[Mati6n2]

Korte vraag :

Is het mogelijk om een code te schrijven voor 2 geselecteerde cellen op een kollom.

(Dus op Rij 24 selecteer ik de cel A24 en F24)

Range(".....").Select

Deze zouden tussen de "" moeten komen.

Een soort Range("Activecell1,Activecell2").Select

Dit omdat beiden een verschillende formule hebben kan ik ze niet samenvoegen

Graag Hulp

 

[Wigi]

Range("A24,F24").Select

Je kan in het vervolg misschien beter eerst zelf dingen proberen en dan pas iets vragen als je er niet uit komt.

Wigi

 

[Mati6n2]

Range("A24,F24").Select

Je kan in het vervolg misschien beter eerst zelf dingen proberen en dan pas iets vragen als je er niet uit komt.

Wigi

Wigi dit kan ik heus zelf hoor.

Je begrijpt me niet.

A24,F24 zijn vast cellen.

Hij moet de 2 geselecteerde cellen overnemen (los van de celnaam (zie foto))

 

[Wigi]

Je begrijpt me niet.

Als jij onduidelijk bent, niet nee. Klopt.

En waarom niet

Selection

?

 

[Mati6n2]

Idd o.a selection, maar je hebt men vraag nog niet.

Het zou dan zoiets moeten zijn

Range("Selection,Selection").Select of Range("Selection1,Selection2").Select


Volledige formule :

Sub Dichting_Dubbel_Raam()
Dim c As Range
For Each c In Selection
c.Formula = c.Offset(-2).Formula & "-40"


Range(" ???? ").Select

Next
Dim b As Range
For Each b In Selection
b.Formula = b.Offset(-2).Formula & "-80"
Next

End Sub

Hij moet op de eerste cel zijn formule -40 toepassen en op de 2de cel -80

 

[Wigi]

Je moet niets meer selecteren met VBA want dat heb je al gedaan in Excel.

En als je dat dan gedaan hebt, werk dan verder met Selection.

Bv.

Selection.Font.Bold = True

om het in het vet te zetten.

Wigi

 

[Mati6n2]

Ik heb het toch niet, over een tekst vet te plaatsen ? :shocked: zie post hierboven

 

[Wigi]

Ik heb het toch niet, over een tekst vet te plaatsen ? :shocked: zie post hierboven

Daarom zet ik er ook boven:

bv.

:shocked: zie post hierboven

 

[Mati6n2]

Is toch totaal geen antwoord op mijn vraag? Ofwel ben ik niet mee.

Toch graag reactie op mijn Vraag.

 

[Demeter]

Even inbreken.

Selection.hierkomt de code welke jij wilt laten uitvoeren op je geselecteerde cellen

of

With selection.
code
end with

 

[Mati6n2]

Demeter, kan ik dit nu toepassen op 2 geselecteerde cellen die ik in 1 keer heb aangegeven?

(Zie Img eerste post)

 

[Demeter]

Een workaround, weet eigenlijk niet precies wat er nu wel mag en niet mag.
maar je ben wel van je loop af.

Sub test()

    ActiveCell.Formula = ActiveCell.Offset(-2).Formula & "-40"
    ActiveCell.Offset(0, 5).Formula = ActiveCell.Offset(-2,5).Formula & "-80"

End Sub

Ik ga er nu vanuit dat je alleen de cel in kolom A actief hebt.

 

[Wigi]

Een workaround, weet eigenlijk niet precies wat er nu wel mag en niet mag.

Ik ben er zeker van dat de oplossing simpel is, maar als de vraag zo onduidelijk gesteld is dan kunnen wij er ook niet aan doen.

 

[Demeter]

Zo ben ik ook ooit begonnen.
Maar de toon van sommige reacties mag wel wat anders.

Als je hulp zoekt dan plaats je jezelf toch in een iets ondergeschiktere rol dan degene welke de antwoorden (proberen te) geven. No flame intended.

Prettige weekend,
Bij thuiskomst pak ik eerste een verse keile (koude pils)