Auteur Topic: cel vermeerderen met 1 (gelezen 2725 keer)

danny147 · « **Gepost op:** 09 juli 2006, 19:58:33 »

Hoe kan ik in cel G9 dat nu 1 is na op volgende te klikken
eerst de gegevens opslaan en daarna laten veranderen in 2, daarna 3 enz... en dan de gegevens verwijderen in F13, F15, F17, F19, F21, F23, J9 en J14.
Cellen J18 en J22 moeten ongewijzigd blijven omdat hier een formule in staat.
De gegevens worden automatisch weg geschreven, door formules.
Welke macro moet ik in de cel van volgende inplakken ?
Weet iemand mij hier raad op

Zie bestand "loopwedstrijd".
Groetjes Danny.

LucHeyndrick · « **Reactie #1 Gepost op:** 09 juli 2006, 21:40:11 »

Hallo Danny,

Klik rechts op je bladtab, en kies voor 'Programmacode weergeven'.

Daar plak je deze code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$26:$I$27" Then
With Blad2.Range("A65536").End(xlUp).Offset(1, 0)
.Offset(0, 0).Value = Range("G9").Value
.Offset(0, 1).Value = Range("J9").Value
.Offset(0, 2).Value = Range("F13").Value
.Offset(0, 3).Value = Range("F15").Value
.Offset(0, 4).Value = Range("F17").Value
.Offset(0, 5).Value = Range("F19").Value
.Offset(0, 6).Value = Range("F21").Value
.Offset(0, 7).Value = Range("F23").Value
.Offset(0,

.Value = Range("J14").Value
.Offset(0, 9).Value = Range("J18").Value
.Offset(0, 10).Value = Range("J22").Value
End With
Range("G9").Value = Range("G9").Value + 1
Range("F13:H13,F15:H15,F17:H17,F19:H19,F21:H21,F23:H23,J9:J10,J14").ClearContents
End If
End Sub

mvg,

Luc

danny147 · « **Reactie #2 Gepost op:** 11 juli 2006, 19:36:02 »

Citaat van: LucHeyndrick op 09 juli 2006, 21:40:11

Hallo Danny,

Klik rechts op je bladtab, en kies voor 'Programmacode weergeven'.

Daar plak je deze code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$26:$I$27" Then
With Blad2.Range("A65536").End(xlUp).Offset(1, 0)
.Offset(0, 0).Value = Range("G9").Value
.Offset(0, 1).Value = Range("J9").Value
.Offset(0, 2).Value = Range("F13").Value
.Offset(0, 3).Value = Range("F15").Value
.Offset(0, 4).Value = Range("F17").Value
.Offset(0, 5).Value = Range("F19").Value
.Offset(0, 6).Value = Range("F21").Value
.Offset(0, 7).Value = Range("F23").Value
.Offset(0, .Value = Range("J14").Value
.Offset(0, 9).Value = Range("J18").Value
.Offset(0, 10).Value = Range("J22").Value
End With
Range("G9").Value = Range("G9").Value + 1
Range("F13:H13,F15:H15,F17:H17,F19:H19,F21:H21,F23:H23,J9:J10,J14").ClearContents
End If
End Sub

mvg,

Luc

Bedankt voor de hint Luc.
Nu kan ik terug verder werken.

Groetjes Danny.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: cel vermeerderen met 1 (gelezen 2725 keer)

danny147

cel vermeerderen met 1

LucHeyndrick

Re:cel vermeerderen met 1

danny147

Re:cel vermeerderen met 1