lege regel zoeken biunnen bepaalde range.

[Rob532]

Dames, heren,

Het zoeken naar de eerste lege regel in een werkblad en daar wat naar toe kopieren is geen probleem
Nu wil ik echter iest wegschrijven naar de eerste lege regel vanf rij 50.

Heb nu dit voor de eerst volgende lege rij:

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(DI_Combo_Artikelgroep.Value)

'vind eerste lege regel in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'controle of artikelnummer is ingevoerd
If Trim(Me.DI_TB_Artikelnummer.Value) = "" Then
  Me.DI_TB_Artikelnummer.SetFocus
  MsgBox "Vul een artikelnummer in"
  Exit Sub
End If

If DI_Combo_Artikelgroep <> "" And DI_Combo_Sub_artikelgroep = "" Then
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.DI_TB_Artikelnummer.Value
ws.Cells(iRow, 2).Value = Me.DI_TB_Artikelomschrijving.Value
ws.Cells(iRow, 3).Value = Me.DI_Combo_Artikeleenheid.Value
enz enz
End If

Maar nu de eerste lege regel vanaf bv rij 50
Wie kan mij helpen?

Alvast bedankt

 

[Mark xl]

Helpt deze functie je?

Sub voorbeeld()
    VindLegeRijVanafCel(50).Select
End Sub

Function VindLegeRijVanafCel(rij As Long) As Excel.Range
    Set VindLegeRijVanafCel = _
        Range("A" & rij & ":A65535").SpecialCells(xlCellTypeBlanks).Cells(1)
End Function

 

[HSV]

Beetje jammer van je tijd Mark, omdat het hier als is opgelost.

 

[Mark xl]

Bedankt Harry.

tja...ik ga even kijken naar die andere oplossing, ik vergelijk graag mijn eigen oplossing met die van een ander, dan leer ik daar tenminste nog wat van

Edit:
die andere oplossing lijkt de laatste rij te pakken en deze de eerste lege rij. ach hij zoekt het maar uit

 

[Wigi]

Helpt deze functie je?

Sub voorbeeld()
    VindLegeRijVanafCel(50).Select
End Sub

Function VindLegeRijVanafCel(rij As Long) As Excel.Range
    Set VindLegeRijVanafCel = _
        Range("A" & rij & ":A65535").SpecialCells(xlCellTypeBlanks).Cells(1)
End Function

Dag Mark

Vergeet niet met de Excel versies mee te gaan. Sinds Excel 2007 zijn er zoals je weet meer dan 1 miljoen rijen op een werkblad. Geen 65536 meer.
Vandaar, gebruik Rows.Count ipv 65536 of andere hardgecodeerde waarden.

 

[Mark xl]

Thanks wim.

ja, 2 tot de macht 20 rijen.

Ik probeer natuurlijk zoveel mogelijk backwards compatible te zijn, maar rows.count is natuurlijk veel robuuster. Das een goede reden om het voortaan anders te doen.

Mark