xlDown stopt bij lege cel

[Dores]

Hallo,

Welke code wordt er gebruikt bij het kopieren van een kolom met lege cellen.

Ik zou de volgende code willen aanpassen: Range(Selection, Selection.End(xlDown)).Select

Deze code stopt wanneer er een lege cel wordt gevonden, maar wat ik zoek is een code die doorgaat t/m de laatste cel met inhoud.

Voor een autofill gebruik ik het het volgende: Selection.AutoFill Destination:=Range("O3:O" & Range("E65535").End(xlUp).Row)

Hier wordt kolom E gebruikt omdat er in deze kolom nooit lege cellen zullen voor komen.

Iemand een idee?

Bedankt,

 

[oeldere]

wissen van lege rijen in kolom A

het is niet wat je vraagt, maar misschien eerst het wissen van de lege rijen.

Sub wis_lege_rijen() 'deze wist de lege rijen in kolom A

With Columns("A").SpecialCells(xlCellTypeBlanks).Cells
    .EntireRow.Delete Shift:=xlUp
  End With
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
 End Sub

 

[Roncancio]

Geen Select en Selection gebruiken.

Sub Bereik()
Dim rBereik As Range
    For Each rBereik In Range("O3:O" & Range("E" & Rows.Count).End(xlUp).Row)
       
        Debug.Print rBereik.Row
    Next

End Sub

rBereik staat gelijk aan de cel O3, O4, etc t/m de laatste cel van de E-kolom.

Met vriendelijke groet,


Roncancio

 

[Dores]

Hoi oeldere,

Dat is in dit geval niet mogelijk, omdat alles zou verspringen. De data moet gekopieerd worden zoals het is aangeleverd. Er mogen geen cellen verwijderd worden.

 

[Dores]

Sub BT_Pen_Get_InvoicePeriods()
'
' BT_Pen_Get_InvoicePeriods Macro
'

'
Sheets("BT Pen").Select
Range("D3:E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Format for BT Pen").Select
Range("P3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Dit is de code die er nu gebruikt wordt, maar waar er een probleem opkomt wanneer een cel niet is ingevuld.

 

[Roncancio]

Sub BT_Pen_Get_InvoicePeriods()

Sheets("BT Pen").Range("D3:E" & Sheets("BT Pen").Range("E" & Rows.Count).End(xlUp).Row).Copy Sheets("Format for BT Pen").Range("P3")
End Sub

Met vriendelijke groet,


Roncancio

 

[Dores]

Ok hij doet het, bedankt voor jullie hulp. Ik heb de laatste code van Roncancio gebruikt en die doet precies waar ik naar op zoek was.

Nogmaals bedankt