Cellen uit een rij kopieren

[Rap261]

Hi,


Voor een project zoek ik de volgende oplossing:

In een excel bestand gevuld met data kan ik dmv een zoek functie (textbox + commandbutton) bepaalde gegevens terug vinden.
Nu wil ik graag dat de gevonden informatie ook wordt gekopieerd naar een paar vaste cellen in de sheet.

Ik heb al het eea gevonden qua VBA alleen betreft dit complete rijen kopieren en het lukt me niet de VBA aan te passen.
Graag jullie hulp

 

[Cobbe]

Is het niet makkelijker werken via Vert.Zoeken?

 

[Rap261]

Hi Cobbe,


In het voorbeeld werkt eea goed met Vloopup. Echter, in het originele bestand (5000 rijen groot incl dubbele) werkt dit minder goed.

In mijn originele bestand heb ik onderstaande code om gegegevens te zoeken. Graag zou ik een aanvulling hierop willen hebben die naast het zoeken/vinden van gegegevens ook bepaalde gegegevens kopieerd naar een paar vaste cellen boven in (noem dit maar het resultaat venster.

Private Sub CommandButton1_Click()
    Dim Zoekletter As String
    Dim Results As Range
    Dim c As Range
    Dim ans As Variant
    If Trim(TextBox1) <> "" Then
Zoekletter = UCase("*" & TextBox1.Text & "*")
        With ActiveSheet.Columns("D:DT")
            Set c = .Find(What:=Zoekletter, LookIn:=xlValues, _
                          lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not c Is Nothing Then
                c.Select
                TextBox1 = ""
            Else
                MsgBox TextBox1.Text & " not found."
            End If
        End With
    Else
        Cells.FindNext(After:=ActiveCell).Activate
    End If
End Sub[CODE]


Wie kan helpen?
Thanks a lot!