• 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.

macro loopt vast, foutcode

Status
Niet open voor verdere reacties.
S

Sir Botex

Gebruiker
Lid geworden
26 dec 2008
Berichten
37
kan iemand mij vertellen waarom de macro vastloopt op de aangeduidde lijn?

foutmelding: runtime error "1004": application defined of object defined error

dank u

Stijn

Code: 
Sub Print_Voederschema()
Dim rij, kolom As Long
Dim fase_nr, fase_voeder, fase_kg, vw As Variant

rij = 1
kolom = 1

vw = Cells(1, 1)

fasenr = "Fase 1"

Do Until vw = [D32]
    kolom = kolom + 1
[COLOR="darkorange"]    vw = Cells(rij, kolom)[/COLOR]
    Loop
Range("b40").Select
ActiveCell.FormulaR1C1 = kolom

End Sub
 
Bij mij loopt dit prima, maar probeer anders onderstaande eens
Code: 
Sub tst()
If Not Sheets("Blad1").Rows(1).Find([D32], , xlValues, xlWhole) Is Nothing Then
    [B40] = Sheets("Blad1").Rows(1).Find([D32], , xlValues, xlWhole).Column
End If
End Sub
 
Rudi,

nog 1 vraagje: werkt mijn oorspronkelijke code bij jou ook nog als je de macro meerdere keren na elkaar laat lopen?
de eerste keer werkt het bij mij wel, nadien dus niet meer...

http://support.microsoft.com/kb/q178510/

via deze link vond ik hier info over, maar ik begrijp de oplossing niet echt... als iemand deze naar mensentaal kan omzetten voor mij, want ik zit nu dus met exact hetzelfde probleem op een andere plaats in m'n code
(tenzij er een andere manier dan cells(rij,kolom) [met rij en kolom als 2 variabelen] bestaat om te verwijzen naar een cel...)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan