1 rij selecteren

[Jeroen123456]

Beste ,

Ik heb een macro gemaakt die een aantal regels uit bestand x moet ophalen.
De macro selecteerd vanaf regel 2 tot en met de "laatste" regel. Als er meerdere regels zijn ingevuld werkt het prima.

Echter, als alleen regel 2 is ingevuld dan loopt de macro vast. Het lijkt dat de macro dan niet goed weet wat hij moet. Hij selecteerd vanaf regel 2 tot en met oneindig en begint te sputteren.

Iemand een idee ?

Sub Complete_lijst_maken1()
    
    Dim lLastRow As Long
    Dim rBrongegevens As Range
    
    Set rBrongegevens = Range("B2:Z2", Range("B2:Z2").End(xlDown))
    
    rBrongegevens.Copy
    
    With Workbooks("aaatotaallijst 2008~heden.xls").Sheets("1001~1012")
        
        lLastRow = .Range("A" & Rows.Count).End(xlUp).Row
        
        .Range("A" & lLastRow + 1).PasteSpecial xlPasteValues
        
        .Range("Z" & lLastRow + 1).Resize(rBrongegevens.Rows.Count).Value = rBrongegevens.Parent.Parent.Name
    
    End With    
    Application.CutCopyMode = False
    ActiveWorkbook.Close

End Sub

 

[zapatr]

Gebruik in plaats van deze regel:

Set rBrongegevens = Range("B2:Z2", Range("B2:Z2").End(xlDown))

dit:

Set rBrongegevens = Range("B2:Z2").Rows(Range("B2:Z2").Rows.Count).rows

 

[Jeroen123456]

Heel erg bedankt voor je snelle reactie.

Ik heb de code omgezet maar nu pakt de macro alleen de 2de regel.
Hij zou vanaf regel 2 t/m de laatste regel moeten overzetten.

?

 

[zapatr]

Om een goed antwoord te kunnen geven, moet bekend zijn welke kolom bepalend is voor de lengte (het aantal regels) van de tabel. Is dat kolom B, kolom Z, of een andere kolom? Of kan dat telkens als de macro loopt een andere kolom zijn?

 

[zapatr]

Gebruik dit, dan doet het er niet toe in welke kolom het laatste gegeven staat:

Set rBrongegevens = Range("B2:Z" & Cells.Find(What:="*", After:=[B2], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row)

Laat a.u.b. even weten of het hiermee lukt.

 

[Jeroen123456]

Helaas, met deze code lukt het ook niet.
Hij pakt nu regel 1 en 2 ongeacht het aantal ingevulde regels, terwijl hij zou moepten beginnen met regel 2 en dan tot en met het einde..

Wat misschien wel aardig is om te weten is dat de eerste kolom nooit gegevens bevat.
Kolom "B" is echter altijd bepalend voor het aantal regels.

 

[zapatr]

Wat misschien wel aardig is om te weten is dat de eerste kolom nooit gegevens bevat.
Kolom "B" is echter altijd bepalend voor het aantal regels.

Maar de eerste kolom van je range is toch kolom B ?
Dat blijkt althans uit de macro die je in je eerste bericht plaatste.

Helaas, met deze code lukt het ook niet. Hij pakt nu regel 1 en 2 ongeacht het aantal ingevulde regels, terwijl hij zou moepten beginnen met regel 2 en dan tot en met het einde..

Kun je eens een bestand posten (desnoods met fictieve gegevens) waarin die code niet werkt?
Bij mij wordt met die regel namelijk wel het juiste gebied geselecteerd.

 

[zapatr]

Kolom "B" is echter altijd bepalend voor het aantal regels.

Als dat het geval is, kun je ook dit gebruiken:

Set rBrongegevens = Range("B2:Z" & Range("B65536").End(xlUp).Row)

 

[Jeroen123456]

Beste Zapatr,

"B" is inderdaad wel de eerste kolom van de range, maar de 2de kolom van de sheet.
Excel wil nog wel eens raar doen als er een brei data lege cellen/rijen zitten.

Maar met je laatste code is het gelukt. De macro doet nu exact wat ik verwacht.
Heel erg bedankt voor je hulp!

Groetjes,

jeroen12356

 

[zapatr]

Dank voor je bericht.
Markeer je vraag nog even als "Opgelost" a.u.b.