Niet lege rijen selecteren

[Joete]

Ik probeer een project database aan te maken met behulp van Excel. Ik heb hierin een adressen bestand waarin alle benodigde adressen te selecteren zijn door een teken in kolom A te plaatsen. Vervolgens heb ik hieraan een macro hangen die de geselecteerde regels filtert en kopieert naar een nieuw bestand, de project database.
Het probleem wat ik nu heb is dat na het kopieren de database samengevoegd wordt met Word en ik daarin 60000 brieven krijg terwijl ik maar 50 regels met data heb...

Mijn idee is nu om alleen de rijen i.p.v. het hele werkblad te selecteren. Alleen krijg ik dit nog niet voor elkaar. Iemand een idee hoe ik dat kan doen?

 

[Joete]

Niemand?

 

[Plenkie]

Zoiets?

Krijg je in ieder geval nooit een lege regel.

Blad 1 je zoek opdracht. Blad 2 je database.

 

[Joete]

Hmmm, nee, ik doe mijn bewerking, zoals vermeld, met een macro. Deze macro wil ik uitbreiden met een beperking. Hieronder de code die ik nu gebruik.

Sub selecteren()
'
' selecteren Macro
'

'
    ActiveSheet.Range("$A$1:$M$2412").AutoFilter Field:=1, Criteria1:="<>"
    Columns("A:M").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("C2:C63137" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("D2:D63137" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("B2:B63137" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:M63137")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

In deze code worden op dit moment de KOLOMMEN A t/m M geselecteerd. Dit moet gewijzigd worden in RIJEN 1 t/m de laatste (variabel). Ik heb geen idee hoe ik dat voor elkaar kan krijgen.

 

[Joete]

Edit: dubbel post...

 

[huijb]

Ik vraag me af of dit wel de juiste sectie is voor je vraag. VB is iets anders dan Excel of VBA

 

[Joete]

Ow...sorry...kan die dan verplaatst worden? Of moet ik de vraag elders opnieuw stellen?

 

[huijb]

Ik zal hem verplaatsen.

 

[Joete]

Mijn dank is groot, nu hopen dat iemand hier mij kan helpen

 

[Joete]

Iemand hier die weet hoe ik dit probleem op kan lossen?

 

[Joete]

Echt niemand?