Macro aanpassen.

[jpvs]

Is het mogelijk om de macro aan te passen?

Als je nu meerdere cellen selecteerd en je drukt op een knop bv 64 is het dan mogelijk dat in alle geselecteerde cellen het nummer komt te staan?
Wat nu alleen in de eerste cel het nummer 64 komt te staan ?

Sub Vierenzestig() 'Blauw
With ActiveCell
.Offset(0, 0) = "64"
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
.Offset(0, 1).Select
End With
End Sub


Dank bij voorbaat,

Pierre

 

[Wigi]

Pierre

Sub Vierenzestig() 'Blauw
With Selection
    .Value = 64
    With .Interior
        .ColorIndex = 5
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Cells(1).Offset(0, 1).Select
End With
End Sub

Wigi

 

[Demeter]

Ik kom niet verder dan:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell = "68" Then
    Selection.Interior.ColorIndex = 5
End If

End Sub

Of zit ik nu geheel naast de opdracht?

Groet,
Ferenc

 

[Wigi]

Of zit ik nu geheel naast de opdracht?

Groet,
Ferenc

Ik denk dat ik er op zit, maar laten we Pierre maar laten oordelen.

 

[jpvs]

Ferenc,

Er werd al een kleur gegeven in mijn macro dus Wigi heeft van de Actieve cel een Selection gemaakt en dit had ik juist nodig.:thumb:

Pierre

 

[Demeter]

Sub Ferenc()
Fine.Select
With Selection
.Me
End With
End Sub

Gaat er uiteindelijk om dat we elkaar helpen op dit forum.
En dat is weer gelukt, en ik heb er zelf ook wat van geleerd.

Groet,
Ferenc