lecram2017
Nieuwe gebruiker
- Lid geworden
- 11 mei 2017
- Berichten
- 2
Bekijk bijlage inschrijflijst.xlsmbeste,
ik ben een beginnend gebruiker van excel v.w.b.t. het VBA schrijven en ben dan ook het proberen om een regel automatisch te laten toevoegen. In de bijlage het file.
Het gaat om tabblad 2. De bedoeling is dat wanneer in de oranje cel (in dit geval A8) leeg is en daar een getal (>0) ingevuld wordt, automatisch een regel toegevoegd wordt. Cel J8 (de formule) wordt dan ook gekopieerd naar J9. Het format van regel 8 gaat mee naar regel 9.
Het gaat redelijk goed maar loopt toch vast met een foutmelding. Ik heb al verschillende opties geprobeerd maar steeds komt de fout moelding op dezelfde regel (hieronder rood gemaakt).
Wie kan me verder helpen?
Alvast bedankt
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value <> "" Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub
ik ben een beginnend gebruiker van excel v.w.b.t. het VBA schrijven en ben dan ook het proberen om een regel automatisch te laten toevoegen. In de bijlage het file.
Het gaat om tabblad 2. De bedoeling is dat wanneer in de oranje cel (in dit geval A8) leeg is en daar een getal (>0) ingevuld wordt, automatisch een regel toegevoegd wordt. Cel J8 (de formule) wordt dan ook gekopieerd naar J9. Het format van regel 8 gaat mee naar regel 9.
Het gaat redelijk goed maar loopt toch vast met een foutmelding. Ik heb al verschillende opties geprobeerd maar steeds komt de fout moelding op dezelfde regel (hieronder rood gemaakt).
Wie kan me verder helpen?
Alvast bedankt
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value <> "" Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub