Excel slaat regels over bij opslaan

[marcel31281]

Goedendag,

Ik ben druk bezig een klein programma in Excel te maken, om het onderhoud makkelijk bij te houden.
Ik ben al een eind op weg, maar als ik op opslaan in de user form klik zet Excel de data niet op de volgende lege regel, maar 7 regels naar beneden neer.
Iemand enig idee wat er fout staat in mijn VBA code??

Alvast bedankt voor jullie hulp

 

[Cobbe]

Haal de omkaderingen weg en het werkt zoals het hoort.

 

[marcel31281]

Bedankt voor je bericht, bedoel je de hele tabel weghalen??
Dit moet toch ook gewoon in een tabel kunnen werken?

 

[Cobbe]

Zo lukt het ook.

 

[marcel31281]

Bedankt voor je reactie, dit werkt inderdaad super.

Nu ben ik verder mijn sheet aan het aanpassen, maar nu krijg ik een foutmelding als ik in de userform op opslaan klik.

Ik heb al diverse dingen geprobeerd, maar ik kom er niet uit waar de fout zit.

Alvast bedankt

 

[Cobbe]

Het lukt weer, in A1 en A2 staat een berekeningsformule(verborgen)
Dus die waren verschoven en dus werkt het niet meer.
Als bonus heb ik je een defaultdatum in het formulier gezet.

 

[edmoor]

Dat gaat hier fout: iRow = ws.Cells(1, 1)
Cells(1,1) is A1 in het blad Data en die cel is leeg.

 

[marcel31281]

Super bedankt, ik kan weer verder.

Top dat je als bonus een default datum hebt toegevoegd :thumb::thumb: