Heren / dames,
Na het uitvoeren van mijn ondergenoemde code loopt Excel vast......... Het is de bedoeling dat er in kolom b gezocht gaat worden. Als het item gevonden is dan moet men op sluiten drukken om het aantal in te vullen. Als er meer item's gezocht moeten worden dan start ik nogmaals deze macro en dan gaat het meestal fout...........:evil:
In Toon Alles staat het volgende
Ik kweet het niet meer
Alvast bedankt voor uw antwoord....
Ad
Na het uitvoeren van mijn ondergenoemde code loopt Excel vast......... Het is de bedoeling dat er in kolom b gezocht gaat worden. Als het item gevonden is dan moet men op sluiten drukken om het aantal in te vullen. Als er meer item's gezocht moeten worden dan start ik nogmaals deze macro en dan gaat het meestal fout...........:evil:
Code:
Sub Zoeken()
'
' Zoekinkolom Macro
' De macro is opgenomen op 11-05-2009 door Ad Jansen.
'
' Sneltoets: CTRL+z
'
Application.Run "alles"
Range("B13:B1193").Select
dlgAnswer = Application.Dialogs(xlDialogFormulaFind).Show
End Sub
In Toon Alles staat het volgende
Code:
Sub alles()
'
' Toon_alles Macro
' De macro is opgenomen op 11-05-2009 door Ad Jansen
'
' Sneltoets: CTRL+t
'
Selection.AutoFilter Field:=1
End Sub
Ik kweet het niet meer
Alvast bedankt voor uw antwoord....
Ad