ik zoek vba code excel(zoeken naar nummer in een loop)

[Henk Schepers]

Ik zoek een code die in een kolom zoekt naar een getal en de regel waar dat getal in staat,
kopieert naar een ander werkblad. Hij moet dat doen over de hele kolom in de database. dus van de eerste cel in de kolom tot en met de laatste gevulde cel van die kolom

Ik heb geprobeerd om het via macro opnemen een filter aan te maken met het selectie criterium, maar als ikdan de gevonden regels selecteer en de geselecteerde regels kopieer en plak, dan kopieert hij alles en niet het resultaat van het filter.
zie voorbeeld

 

[Wigi]

Hier kan je code vinden daarvoor:

http://www.contextures.com/xlautofilter03.html#Copy

Wigi

 

[Henk Schepers]

Bedankt

Wigi
Bedankt voor je tip, ik ga het uitproberen.
gr Henk

 

[Henk Schepers]

Hallo Wigi

Ik heb de vba code gekopieerd en het werkt in principe goed.
Het moet alleen een beetje aangepast worden.
De filter regels worden hierin gekopieerd, maar moeten geknipt worden zodat ze uit de database verdwijnen en geplakt in een ander werkblad. De bestaande data in dat werkblad moet behouden blijven.

Sub CopyFilter()
'by Tom Ogilvy
Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Worksheets("Sheet2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End If
ActiveSheet.ShowAllData

End Sub


'My coal is to move the selected data to "sheet2"
'without deleting the data allready in "sheet2"
'
''
'Het is de bedoeling, dat "sheet2" niet leeg gemaakt wordt maar de
'nieuwe data er aan toegevoegd wordt.
'dus de destination moet niet "a1" zijn maar de cel onder de laatst gevulde cel.
'ook moet in mijn geval de regels uit het filter worden geknipt.
'dus eigenlijk verplaatst

Enig idee wat veranderd moet worden?

M.v.g Henk