cel wijzigen aan de hand van Combobox waarde

[basbergie]

Goedemiddag,

Ik heb een vraag, ik heb een Userform gemaakt waarin ik een serienummer invul in een ComboBox. Nou wil ik op een commandbutton een commando toevoegen dat hij aan de hand van dat serienummer gaat zoeken in Blad2 en Blad3 naar de rij die dat Serienummer bevat en dan vervolgens moet hij in rij H de cel veranderen van In behandeling naar afgehandeld.

Nou heb ik wel voor elkaar gekregen dat hij op 2 blad gaat zoeken en de juiste rij selecteert maar nu moet hij nog op blad 2 en 3 zoeken en hij moet de cel wijzigen

Dit is de code:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim Rng As Range
Set ws = Sheets("Blad2")   'Change the sheet name as per requirement
Set Rng = ws.Range("A2:AL2").Find(Me.TextBox1.Value)
If Not Rng Is Nothing Then
    ws.Activate 'this line makes sure that you are on the right sheet
    Rng.Select
Else
    MsgBox "No matching cell is found.", vbExclamation, "Value Not Found!"
    Exit Sub
End If
End Sub

Kunnen jullie mij misschien verder helpen?

 

[edmoor]

Met een voorbeeld documentje wordt je sneller en beter geholpen.

 

[basbergie]

Oke bij deze:
Het idee is dat alles wat ik aanmeld met de knop: retour klant aanmelden in blad 2 komt
En met de knop Retour leverancier aanmelden in Blad 3 komt. Met de Knop Retour afmelden wil ik dus met het serienummer kunnen zoeken in blad 2 en 3 en vervolgens de status veranderen.

 

[basbergie]

ondertussen heb ik wel voor elkaar gekregen dat hij in behandeling aanpast naar afgerond met de volgende code:

Dim ws As Worksheet
Dim Rng As Range
Set ws = Sheets("Blad2")   'Change the sheet name as per requirement
Set Rng = ws.Range("A2:AL2").Find(Me.ComboBox1.Value)
If Not Rng Is Nothing Then
    ws.Activate 'this line makes sure that you are on the right sheet
    Rng.Select
    ActiveCell.Offset(0, 7).Select
    ActiveCell.Formula = "Afgerond"
Else
MsgBox "No matching cell is found.", vbExclamation, "Value Not Found!"
Exit Sub
End If
End Sub

Nou moet ik alleen nog weten dat hij ook zoekt in blad 3.

 

[edmoor]

Kijk eens of dit is wat je bedoelt:
Bekijk bijlage BasBergie.xlsm

 

[basbergie]

Ik krijg de melding No matching cell found in Blad2 terwijl het serienummer wel in blad 3 staat

 

[edmoor]

Het documentje dat ik plaatste werkt hier prima.
Controleer ook Blad3, want het gevonden regelnummer is 1048576

Dat heb ik dus ook aangepast in dat documentje.
Als je de code naar een eigen document hebt gekopieerd kan ik er niks mee als je dat document niet plaatst.

 

[basbergie]

Ik heb hem nog even getest maar hij werkt inderdaad wel op het moment dat er maar 1 product in blad 2 of 3 staat maar als er meerdere instaan werkt hij niet meer

 

[VenA]

Waarom gebruik je niet gewoon 1 tabel? Een tabel moet je overigens nooit groter maken dan het aantal regels wat er instaat.

 

[basbergie]

Uiteindelijk wil ik de beide tabellen apart op 2 schermen in onze loods projecteren dus vandaar dat ik niet met filters werk. Dat de tabellen heel groot zijn wil ik inderdaad op het laatst aanpakken maar ik wou eerst even zorgen dat het userform werkt

 

[basbergie]

Ik zie al waar het aan ligt ik had:

Set Rng = ws.Range("A2:AL2").Find(Me.ComboBox1.Value)

in plaat van:

Set Rng = ws.Range("A:AL").Find(Me.ComboBox1.Value)

Hij werkt nu helemaal goed bedankt!

 

[snb]

Waarom zo omslachtig ?
In welke kolom staat het te zoeken element ?

Sub M_snb()
  on error resume next
  sheets("Blad2").usedrange.columns(1).Find(ComboBox1).offset(,7)="Afgerond"
End Sub

 

[basbergie]

ja ik heb zelf niet zo heel veel kennis van vba dus heb wat codes van internet gecombineerd en uiteindelijk werkt het maar ik zal even kijken of ik hem wellicht wat simpeler kan maken.