Klantnummer automatisch koppelen aan naam klant

[dutchmarshalls]

Hallo,

Ik heb nog een vraag en hoop dat het kan.

Ik heb even gezocht op het forum naar een mogelijke oplossing maar vond dit artikel dat me helaas niet verder hielp.
http://www.helpmij.nl/forum/showthread.php/537761-Automatisch-naar-volgende-cel-verspringen-na-invoer-data

Is het mogelijk om je cursor automatisch te laten verspringen van cel tot cel?

Positie, cel

1, cel B9 naar
2, cel A22 naar
3, cel B22 naar
4, cel E22 naar
5, cel A25 naar
6, cel 25 tot 33 naar
7, cel E25 naar
8, cel F35 naar
9, cel F37 einde invoer: enter: ga naar printen


Wat ik gedaan heb is, deze cellen met beveiliging van het gehele blad open gelaten maar daarmee springt mijn cursor niet naar de volgende cel.
Hij spring naar een bereik buiten het werkblad.

Weet iemand hier een oplossing voor?

Dank u.

 

[plongske]

Helaas kan ik je hiermee niet verder helpen daar dit vermoedelijk via vba moet gebeuren.
Beter was om dit in een nieuwe vraagstelling te doen. Dan bereik je meer collega's van het forum.

 

[VenA]

In A9 staat 'Adres huisnummer'? vervolgens wil je naar B22 maar rij 22 is verborgen? En dan wil je naar E22 nog steeds in een verborgen rij? Of heb ik een voorbeeldje gemist waaruit blijkt dat het anders in elkaar steekt?

 

[dutchmarshalls]

Hallo VenA,

Volgens mij is het document niet beveiligd hoor mar ik post het hier nogmaals voor de zekerheid.
ook de posities waar het omgaat.

Positie, cel

1, cel B9 naar Naam bedrijf
2, cel A22 naar Code
3, cel B22 naar Factuurnummer
4, cel E22 naar Locatie
5, cel A25 naar Aantal
6, cel 25 tot 33 naar Omschrijving
7, cel E24 naar Bedrag exl.
8, cel F36 naar Verzend kosten
enter: ga naar printen

Bekijk bijlage Kopie van test.xlsm

 

[Ad Becude]

Heb nog iets in een oude schoendoos liggen, pas dit voorbeeld aan voor je eigen bestand.
Misschien heeft iemand iets beters?

 

[VenA]

Volgens mij heb ik nergens geschreven dat het bestand beveiligd is. Hebben we over hetzelfde bestand? In de bijlage staat in B9 'Adres huisnummer' en in rij 22 niets! Volgens mij is het enige wat correct is F36.

Bij het wijzigen van F36 kan je deze gebruiken om te printen (afdrukvoorbeeld).

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "F36" Then Me.PrintPreview
End Sub

 

[dutchmarshalls]

Fijne en gezegende feestdagen allen.

Hartelijk dank voor al de inputs. Nuttige info heb ik van u ontvangen.

Deze code werkt echt geweldig alleen werkt het zo goed dat ik niet de gelegenheid krijg om informatie in te voeren.
Want zodra ik erop ga staan springt de cursor al naar de volgende cel.
Ik zou mijn cursor graag even stil doen staan op de cel, zodat ik de info kan invoeren die noodzakelijk is.
Maar moet zeggen het is echt een geweldige code. Bedankt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)						
    Static lastCellIndex As Integer						
    Dim Addresses_InOrder As Variant						
    If Target.Count = 1 Then						
        Addresses_InOrder = Array("$B$9", "$A$22", "$B$22", "$E$22", "$A$25", "$B$25", "$E$25","$F$35", "$F$37")						
        lastCellIndex = lastCellIndex + 1						
        If lastCellIndex > UBound(Addresses_InOrder) Then _						
        lastCellIndex = LBound(Addresses_InOrder)						
        If lastCellIndex < LBound(Addresses_InOrder) Then _						
        lastCellIndex = LBound(Addresses_InOrder)						
        Application.EnableEvents = False						
        Range(Addresses_InOrder(lastCellIndex)).Select						
        Application.EnableEvents = True						
    End If						
End Sub

 

[VenA]

De code is bijzonder irritant voor gegevensinvoer in jouw bestand. Verder loop je nog steeds te rommelen met cellen die niet overeenkomen met het voorbeeldbestand. Gebruik ipv SelectionChange het Change event.

De code wordt wel een stuk langer maar geeft een in mijn ogen een logischer vervolg na het wijzigen van een cel.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
With Application
    .EnableEvents = False
    If Not Intersect(Target, Range("B8, A21,B21,E21,F36")) Is Nothing Then
        Select Case Target.Address(0, 0)
            Case "B8"
                .Goto [A21]
            Case "A21"
                .Goto [B21]
            Case "B21"
                .Goto [E21]
            Case "E21"
                .Goto [A24]
           Case "F36"
                Me.PrintPreview
        End Select
    End If
    If Not Intersect(Target, Range("A24:E32")) Is Nothing Then
        If Target.Address(0, 0) <> "E32" Then
            If Target.Column <> 5 Then .Goto Target.Offset(, 1) Else .Goto Target.Offset(1, -4)
          Else
            .Goto [F36]
        End If
    End If
    .EnableEvents = True
End With
End Sub

 

[dutchmarshalls]

Dank u VenA,

De code werkt op zich wel goed hoor maar niet gemakkelijk om invoer te doen inderdaad. Misschien met een kleine aanpassing.

Ik heb voor de zekerheid het doc waar we over praten hier wederom geüpload.
Met Alt + F11, heb ik de code die je gegeven heb in de tab verkoopfactuur geplaatst maar ik zie niets gebeuren als ik op enter klik.

Wat doe ik verkeerd?

 

[VenA]

Geen idee de code staat er in niet in. Verder is het voorbeeld anders dan het eerder geplaatste in #24. Dus dan zal je gebruikte range aan moeten passen.

 

[dutchmarshalls]

Hallo VenA

Ja ik zie het nu ook dat het versprongen is. Ik heb wel geprobeerd om de range te vervangen maar kom echt niet verder.
Zie de voorbeeld code die ik aangepast heb. Er gebeurd alleen heel weinig als ik deze gebruik. Kun je aan de hand hiervan zien wat ik niet goed doe?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
With Application
    .EnableEvents = False
    If Not Intersect(Target, Range("B9, A22, B22, E22, A25, B25, E25, F35, F37")) Is Nothing Then
        
        Select Case Target.Address(0, 0)
            Case "B9"
                .Goto [A22]
            Case "A22"
                .Goto [B22]
            Case "B22"
                .Goto [E22]
            Case "E22"
                .Goto [A25]
            Case "A25"
                .Goto [B25]
            Case "B25"
                .Goto [E25]
            Case "E25"
                .Goto [F35]
            Case "F35"
                .Goto [F37]
            Case "F37"
              Me.PrintPreview
        End Select
    End If
    If Not Intersect(Target, Range("A22:E37")) Is Nothing Then
        If Target.Address(0, 0) <> "E37" Then
            If Target.Column <> 5 Then .Goto Target.Offset(, 1) Else .Goto Target.Offset(1, -4)
          Else
            .Goto [F37]
        End If
    End If
    .EnableEvents = True
End With
End Sub

 

[VenA]

Ik kan het niet zien omdat je blad beveiligd is. Maar daar zal je het moeten zoeken. Plaats anders het bestand zonder beveiliging met de code erin.

 

[dutchmarshalls]

Hallo VenA,

Ik heb de beveiliging verwijderd en de code onder de tab verkoopfacturen geplaatst.
Kun je voor me bekijken waarom hij het niet doet. Ik doe vast iets verkeerd.

Vast bedankt voor je hulp.

Bekijk bijlage test.xlsm

 

[VenA]

Je moet de Events weer aanzetten na een foutmelding. Of excel afsluiten en opnieuw opstarten. Als ik B9 wijzig wordt A22 de volgende cel waarin ik wat kan kiezen.

 

[dutchmarshalls]

Dank je wel,

Alleen bij het verspringen van B22 naar E22 krijg ik direct een foutmelding "1004 Methode GoTo van object_Aplication is mislkukt" te zien.

 

[HSV]

Ik krijg er geen foutmelding op.
Wat me wel opviel is dat onderstaande case geen enkele zin heeft:

Case "B22"
                .Goto [E22]

Als onderstaande het weer opheft.

If Target.Column <> 5 Then .Goto Target.Offset(, 1)

 

[VenA]

Ik raak een beetje de weg kwijt. In #28 staat en werkend voorbeeld. Als het bereik steeds wijzigt en er gebruik gemaakt wordt van bladbeveiliging dan gaat er natuurlijk niets werken. De oorzaak van de foutmelding zal wel in de beveiliging liggen.

 

[dutchmarshalls]

Dank je wel allemaal voor jullie input maar het werkt helaas niet bij mij.

Jammer dat ik geen filmpje kan posten om het te laten zien dat bij het verspringen ik de foutmelding krijg.
Ik moet er ook bij vermelden dat de code ook alleen werkt als je het tabblad beveiligd hebt. In alle andere gevallen springt het gewoon naar de volgende cel.

Zit niets anders op helaas.

Nogmaals mijn dank aan allen die hier een bijdrage hebben geleverd.

 

[dutchmarshalls]

Ik raak een beetje de weg kwijt. In #28 staat en werkend voorbeeld. Als het bereik steeds wijzigt en er gebruik gemaakt wordt van bladbeveiliging dan gaat er natuurlijk niets werken. De oorzaak van de foutmelding zal wel in de beveiliging liggen.

VenA, je hebt volkomen gelijk. #28 werkt.
Het probleem lag aan mijn instellingen. Hartelijk dank voor je inzet. Mijn complimenten.

Dank allen.