Cursor verplaatsen naar volgende cel na invullen waarde

Status
Niet open voor verdere reacties.
S

samabert

Gebruiker
Lid geworden
27 mrt 2010
Berichten
301
Hallo iedereen,

Volgende VBA code laat de cursor van cel verplaatsen bij enter indien in er een waarde instaat.
De code gaat nu to rij 10. Dit werkt.
Is er een manier om deze code compacter te schrijven zodat deze zal werken tot rij 52?

Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Range("C6").Value <> "" Then
        Range("G6").Select

        If Range("G6").Value <> "" Then
            Range("C7").Select

            If Range("C7").Value <> "" Then
                Range("G7").Select

                If Range("G7").Value <> "" Then
                    Range("C8").Select

                    If Range("C8").Value <> "" Then
                        Range("G8").Select

                        If Range("G8").Value <> "" Then
                            Range("C9").Select

                            If Range("C9").Value <> "" Then
                                Range("G9").Select

                                If Range("G9").Value <> "" Then
                                    Range("C10").Select

                                    If Range("C10").Value <> "" Then
                                        Range("G10").Select

                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If

End Sub

Alvast bedankt.
Marc
 

Bijlagen

  • Test.xlsm
    29,9 KB · Weergaven: 27
Laatst bewerkt:
Probeer eens of dit is wat je bedoelt:
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Range("C6").Value <> "" Then
        Select Case Target.Column
            Case 3: Range("G6:G52").SpecialCells(xlCellTypeBlanks)(1).Select
            Case 7: Range("C6:C52").SpecialCells(xlCellTypeBlanks)(1).Select
        End Select
    End If
End Sub
 
Gebruik een userform voor de invoer.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan