Macro starten met enter

[HMDH]

Ik ben erg fijn geholpen. De macro en andere code werk goed.
Bedankt edmoor en V&A voor jullie geduld en bijdrage. :thumb::thumb:

Er zit nog 1 andere vraag van mij in de pipeline.
Onder een nieuw onderwerp.
Hopelijk wordt daar ook nog op gereageerd.

 

[VenA]

Om typefouten te voorkomen kan het rekenkundig ook.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "D15" Then
    Unprotect
    Columns("G:BY").Hidden = True
    Columns(Target.Value * 6 + 1).Resize(, IIf(Target.Value = 0, 77, 6)).Hidden = False
    Protect
  End If
End Sub

 

[HMDH]

De code is i.d.d. een stuk korter.
Maar de cursor sprint nu naar cel A9 na de enters.
Deze moet steeds op cel D15 terecht komen na de aantal enters over het beveiligde blad.

Vraagje; Kan jij ook de code van edmoor hierin opnemen?
Het gaat dan om de kleur van cel D15 als deze is geselecteerd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D15").Interior.Color = IIf(Target.Address(0, 0) = "D15", 325551, xlNone)
End Sub

Als dat kan ben ik klaar.

 

[edmoor]

De code voor de kleur moet niet in de Worksheet_Change maar in de Worksheet_SelectionChange, zoals je het er al hebt staan.
Gewoon als aparte Sub achter hetzelfde werkblad.

 

[HMDH]

Dit werk dus niet helaas.

 

[edmoor]

Dan doe je het niet goed.

 

[VenA]

Om in D15 te blijven

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "D15" Then
    Unprotect
    Columns("G:BY").Hidden = True
    Columns(Target.Value * 6 + 1).Resize(, IIf(Target.Value = 0, 77, 6)).Hidden = False
    [COLOR=#FF0000]Application.Goto Target[/COLOR]
    Protect
  End If
End Sub

de SelectionChange werkt bij mij ook niet. Moet je maar geen cellen samenvoegen.

Zo werkt het wel maar het samenvoegen van cellen zeker in combinatie met VBA wordt ten zeerste afgeraden.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Unprotect
    If Target.Address(0, 0) = "D15:E16" Then
      Range("D15:E16").Interior.Color = 325551
     Else
      Range("D15:E16").Interior.Color = xlNone
    End If
  Protect
End Sub

 

[HMDH]

Bedankt,
ik heb de opmaak wat aangepast en de samengevoegde cellen gewijzigd.
Het document werkt nu goed.

Groet, HarryM.