• 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 werkt niet meer

Status
Niet open voor verdere reacties.

Rens80

Gebruiker
Lid geworden
2 apr 2020
Berichten
46
Hoi,

Ik gebruik onderstaande macro om de waarden weg te schrijven in de eerstvolgende lege cel in het bereik. Als ik deze nu uitvoer krijg ik een foutmelding en wordt de regel 'If not c is nothing then' geel gemarkeerd in de VBA. Weet iemand wat er misgaat?

Code:
Private Sub CommandButton23_Click()
On Error Resume Next 'doorgaan bij fouten
       Set C = ActiveSheet.Range("bv20:bv27").SpecialCells(xlCellTypeBlanks).Cells(1)   '1e lege cel in dat bereik
       On Error GoTo 0
       If Not C Is Nothing Then                      'zo'n cel gevonden
          C.Value = "bonus 1"  'naam wegschrijven"
          C.Offset(, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(1, 0).Value = "bonus 2"   'bedrag wegschrijven"
          C.Offset(1, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(2, 0).Value = "bonus 3"   'bedrag wegschrijven"
          C.Offset(2, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(3, 0).Value = "bonus 4"   'bedrag wegschrijven"
          C.Offset(3, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(4, 0).Value = "bonus 5"   'bedrag wegschrijven"
          C.Offset(4, 5).Value = "5000"   'bedrag wegschrijven"
       Else
          MsgBox "er zijn geen lege cellen meer in dat bereik", vbCritical   'foutje bedankt
       End If
End Sub
 
En hoe luidt de foutmelding?
 
De fout zit in het onhandig gestruktureerde werkblad, niet in de onhandig gestruktureerde code.
Plaats dat werkblad hier.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan