Met een VBA formulen vanaf blad2 in blad1 zoeken

[strijp]

Ik heb een exel overzicht van onderdelen waarvoor ik een VBA formule via een knop heb gevonden die werkt, alleen werkt hij nu maar op het blad waar ook de gegevens instaan, als hij het juiste onderdeel heeft gevonden en aangepast en dat onderdeel staat bijvoorbeeld ergens onderaan het blad dan moet ik terug omhoog scrollen om het volgende artikel aan te passen dus dacht ik als ik de macro nu op blad 2 zet dan hoef ik alleen maar om te schakelen van blad 1 naar blad 2 maar als ik de macro op blad 2 zet krijg ik het niet voor elkaar om hem op blad 1 te laten zoeken, help onderstaand de macro zoals hij nu werkt op blad 1.
Sub Prijzen()
TestValue = InputBox("Geef het artikelnummer: ", "Zoeken maar")
Set FoundCell = ActiveSheet.Range("B:B").Find(TestValue)
If FoundCell Is Nothing Then
MsgBox "Het artikel is niet gevonden"
Else
Range(FoundCell.Address).Offset(, 9).Select
ActiveCell = InputBox("Prijs")
ActiveCell.Offset(, 1).Value = ActiveCell.Offset
ActiveCell.ClearContents
End If
End Sub

Mvg. strijp

 

[OctaFish]

Beetje onsamenhangend verhaal; een voorbeeldbestandje werkt echt veel beter... En je zou ook moeten weten na 10 jaar HelpMij (lezen) dat code tussen de CODE tags moet .

 

[JEC.]

Zo misschien

Application.Goto Sheets(1).Range(Sheets(1).Columns(2).Find(TestValue))

Ipv activesheet.range....etc
En dan het nummer achter sheets veranderen in het tabnummer waar je in wilt zoeken

 

[edmoor]

Zoeken op blad 1 kan zo:

Set FoundCell = Sheets("Blad 1").Range("B:B").Find(TestValue)

 

[strijp]

Bedank voor jullie reactie maar geen van de voorbeelden werkt om vanaf blad2 op blad 1 te komen, wel werkt de macro als hij ook op blad 1 staat, verdere suggesties?

 

[edmoor]

Suggestie:
Plaats je document.

 

[strijp]

Kunt u hier iets mee? Ik heb een scherm afbeelding gemaakt en die in paint naar jpg verwerkt!

 

[edmoor]

Die bladen heten dus niet Blad 1 en Blad 2 maar Blad1 en Blad2.
En ja, dat maakt verschil.
Wees bij het stellen van een vraag duidelijk in naamgevingen.

Verder heb je nu een document zonder je code geplaatst.

 

[HSV]

Vermijd ActiveCell en Select.
Bladnaam toevoegen geldt voor meerdere plekken in je code.

Bij een aangepaste code maar één keer.

 

[VenA]

Sub Prijzen()
  c00 = InputBox("Geef het artikelnummer: ", "Zoeken maar")
  Set r = Sheets("Blad1").Range("B:B").Find(c00, , xlValues, xlWhole)
  If r Is Nothing Then
    MsgBox "Het artikel is niet gevonden"
  Else
   r.Offset(, 10) = Application.InputBox("Prijs", , , , , , , 1)
  End If
End Sub

 

[strijp]

Bedankt dit is precies wat ik bedoelde.:thumb: