Opgelost Lege rij kiezen

[Mark_68]

Beste,

Met onderstaande code word er altijd na de laatste gevulde rij toegevoegd, nu zou ik graag willen als er lege rijen ontstaan dat die eerst gevukld worden. Ik denk zelf dat het in de rode gemarkeerde tekst zit, maar kom er niet uit.

If Worksheets("Data").Cells(r, 1).Value = "Aluminium" Then
Worksheets("Data").Range("A2:E2").Copy
Worksheets("Aluminium").Activate
lastrowaluminium = Worksheets("Aluminium").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Aluminium").Cells(lastrowaluminium + 1, 1).Select
ActiveSheet.Paste
Worksheets("Data").Range("A2").ClearContents

End If

 

[edmoor]

Dat kan bijvoorbeeld zo:

lastrowaluminium = Sheets("Aluminium").Range("A1").CurrentRegion.Rows.Count

 

[Mark_68]

Als ik jou code probeer gaat hij rechtstreeks naar de laaste regel van het document

 

[edmoor]

Dat kan niet.
Plaats dan een voorbeeld document.

 

[Mark_68]

De code moet in het userform "Invoeren" komen onder de knop "opslaan", en dan zou hij regel 3 op het tabblad aluminium het eerste moeten vullen.

 

[edmoor]

Regel 3 is niet leeg.
Daarnaast heb je bijna 3000 lege regels onder regel 4 zitten.

 

[Mark_68]

Die 3000 regels gaat minder worden als het werkt met het invullen. Klopt dat hij niet helemaal leeg is en was mijn vraag dus onduidelijk ,mijn excuses. Maar de bedoeling is wel dat hij in dit geval het wel weer als eerst op regel 3 gaat invullen.

 

[edmoor]

Zo zie je hoe belangrijk het is precies te zijn.
Gebruik dan deze functie in een Module:

Function LaatsteRegel(Werkblad As String) As Long
    Dim y As Long
    With Sheets(Werkblad)
        For y = 2 To .UsedRange.Rows.Count
            If .Cells(y, 1) = "" Then
                LaatsteRegel = y
                Exit Function
            End If
        Next y
    End With
End Function

Aanroep:

lastrowaluminium =LaatsteRegel("Aluminium")

 

[Mark_68]

Bedankt, maar zou je die voor mij in het bestand kunnen plaatsen, zie nu door de bomen ff het bos niet meer.

 

[edmoor]

Bij deze:

 

[Mark_68]

Bedankt maar bij mij plaatsts hij hem in Cel A1 in plaats van A3

 

[edmoor]

De functie geeft de eerstvolgende regel terug waar de cel in kolom A leeg is.
Plaats dan je document zoals deze nu is.

 

[Mark_68]

Ik heb nu het volgende staan

If Worksheets("Data").Cells(r, 1).Value = "Aluminium" Then
Worksheets("Data").Range("A2:E2").Copy
Worksheets("Aluminium").Activate
lastrowaluminium = LaatsteRegel("Aluminium")
Worksheets("Aluminium").Cells(lastrowaluminium + 1, 1).Select
ActiveSheet.Paste
Worksheets("Data").Range("A2").ClearContents

End If

En nu blijt hij regel 4 overschrijven

 

[edmoor]

Haal dan die +1 weg.

 

[Mark_68]

Het werkt super, bedankt voor je geduld met mij

 

[AHulpje]

De code achter je formulier "Invoeren" kan iets korter, 48 regels i.p.v. 173.

 

[Mark_68]

Ahulpje bedankt

 

[AHulpje]

In het formulier "Verwerken" is x de onderste gevulde rij in het werkblad "Aluminium". Datzelfde rijnummer gebruik je als bovengrens in je loop door de andere materiaalwerkbladen, lijkt mij niet helemal jofel.
En het telkens herhalen van de code voor ieder materiaalwerkblad is niet nodig, maak er een aparte functie voor, dat maakt het onderhoud veel eenvoudiger.
Het is ook véél handiger om alle materialen in één werkblad te plaatsen.