Ik heb een werkblad voor voorraadbeheer. Hier werkt een macro op het eerste werkblad. Nu wil ik een tweede blad met dezelfde macro. Ik kopieer dan het blad en geef het een andere naam. Op het eerste blad werkt het goed. Op het tweede blad krijg ik als ik de macro uitvoer een foutmelding 400. Kan iemand mij helpen om dit werkende te krijgen.
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Werkblad met macro kopiëren naar nieuw werkblad. Macro geeft dan 400 melding.
- Onderwerp starter SieKieR
- Startdatum
- Status
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.970
- Office versie
- Bèta Insider Office 365
Verwijder al je codes uit de bladmodules en stop de twee codes in een standaard module.
Je verbindt de code aan elke knop van elk werkblad.
Twee codes is dus goed voor alle knoppen in plaats van zes codes.
Gebruik geen variabele die vergeven zijn in Vba; zoals:
Code voor bijboeken.
Je verbindt de code aan elke knop van elk werkblad.
Twee codes is dus goed voor alle knoppen in plaats van zes codes.
Gebruik geen variabele die vergeven zijn in Vba; zoals:
Code:
[COLOR=#ff0000]ActiveCell[/COLOR] = InputBox("Hoeveelheidt")Code voor bijboeken.
Code:
Sub bijboeken()
Dim foundcell As Range
Set foundcell = Columns(1).Find(InputBox("Geef het artikelnummer: ", "Zoeken maar"), , , xlWhole)
If foundcell Is Nothing Then
MsgBox "Het artikel is niet gevonden"
Else
foundcell.Offset(, 2).Value = foundcell.Offset(, 2).Value + Application.InputBox("Hoeveelheidt", , , , , , , 2)
'foundcell.Offset(, 3).ClearContents 'wat je hiermee wil is me niet duidelijk.
End If
End Sub- Status
