VBA autofilter

[8ar8ara]

Goedemiddag,

Ik heb een aantal vragen.
Bijgevoegd heb ik een excel 'nep'bestand.

Ik leg het bestand kort uit.

Blad "Invoer"
In het originele bestand komen hier de gevens naar toe met behulp van VBA. Aangezien de gegevens van verschillende bestanden afkomstig zijn.
Het gaat om het kopje Getal. Vanuit hier moet VBA gaan zoeken.

Blad " Vul hier uw getal in"
In dit blad kan iemand het getal invoeren die hij graag wil zien. Doordat VBA dan gaat kijken naar het blad Invoer, komen de uiteindelijke gegevens in het blad "Uitvoer"

Blad "Uitvoer"
De uiteindelijke gevonden gegevens staan hier.

Kan iemand mij hiermee helpen? Het lukt mij niet om de gegevens te filteren en alle bijbehorende kolommen te kopieren en te plakken in het blad uitvoer.

Mijn dank is groot!

 

[HSV]

Hoi,

Alles staat in het bestand.

Private Sub CommandButton1_Click()
With Sheets("Invoer")
   .Range("A1").CurrentRegion.AutoFilter 3, ComboBox1.Value
 Sheets("Invoer").AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Uitvoer").Cells(Rows.Count, 4).End(xlUp).Offset(1)
   .Range("A1").CurrentRegion.AutoFilter
 End With
End Sub
Private Sub Worksheet_Activate()
 ComboBox1.List = Sheets("Invoer").Range("A1").CurrentRegion.Offset(1).Columns(3).SpecialCells(2).Value
End Sub

 

[snb]

@HSV

of ??

Private Sub CommandButton1_Click()
  With Sheets("Invoer").Range("A1").CurrentRegion
    .AutoFilter 3, ComboBox1.Value
    .Offset(1).Copy Sheets("Uitvoer").Cells(Rows.Count, 4).End(xlUp).Offset(1)
    .AutoFilter
  End With
End Sub

 

[HSV]

Zou mogelijk kunnen @snb (in dit voorbeeld wel).
Maar ik heb maar rekening gehouden met een staartje aan het eind.

Maar als het maar om één regeltje gaat, kan het net zo goed in één coderegeltje.

Private Sub CommandButton1_Click()
 Sheets("Uitvoer").Cells(Rows.Count, 4).End(xlUp).Offset(1).Resize(, 3) = Sheets("Invoer").Columns(3).SpecialCells(2).Find(ComboBox1.Value, , xlValues, xlWhole).Offset(, -2).Resize(, 3).Value
End Sub