.Resize(,10)

[rvt1982]

Beste Leden,

Met dank aan Elsendoorn2134 heb ik de volgende script, maar deze wil ik nu Resizen, maar op een of andere manier doe ik iets fout..
Kunnen jullie mij vertellen hoe ik deze in de onderstaande script moet verwerken ?

Alvast bedankt

.Resize(,10)

Public Sub ZoekLetter()

Dim sZoekLetter As String
Dim sReeks(100) As String
Dim nReeksTeller As Integer
Dim nTeller As Integer

nTeller = 0
nReeksTeller = 0
sZoekLetter = Sheets("Resultaat").Range("E6").Value


'Verwijder oude gegevens.
Sheets("Resultaat").Range("A1", Sheets("Resultaat").Range("A1").End(xlDown)).Clear

'Opzoeken van de nieuwe gegevens
With Sheets("Data").Range("A1")
    Do While .Offset(nTeller, 0) <> ""
        If .Offset(nTeller, 0) = sZoekLetter Then
            sReeks(nReeksTeller) = .Offset(nTeller, 1)
            nReeksTeller = nReeksTeller + 1
        End If
        nTeller = nTeller + 1
    Loop
End With

'Afdrukken nieuwe gegevens.
For nTeller = 0 To nReeksTeller
    Sheets("Resultaat").Range("A1").Offset(nTeller, 0) = sReeks(nTeller)
Next

End Sub

 

[snb]

Beschrijf het gewenste resultaat, geïllustreerd met een voorbeeldbestand.

 

[rvt1982]

Via deze script krijg ik nu netjes een rij met resultaten, echter wil ik ook de gegevens die er naast staan ook er bij hebben, en dan dacht ik aan .Resize(,3) voor dit voorbeeltje.

Dus in Blad "resultaten" komt nu 1 colom met gegevens, en dat moeten er 3 worden door de resize.

Tevens heb ik ook een voorbeeld bestandje gemaakt.

Bekijk bijlage Resize.xls

Alvast bedankt voor de moeite :thumb:

 

[snb]

Sub M_snb()
   With Sheet2.Cells(1).CurrentRegion
     .AutoFilter 1, Sheet1.Cells(6, 5)
     .Offset(, 1).Copy Sheet1.Cells(1)
     .AutoFilter
    End With
End Sub

NB. Het is handiger aan de gegevens een veldnamenrij toe te voegen

 

[rvt1982]

Thanks snb,

Deze werkt perfect :thumb:
Tevens zal ik ook kijken of ik inderdaad met veldnamenrij kan werken, heb ik eigelijk niet eerder over na gedacht..

Bedankt voor de moeite :thumb:

 

[rvt1982]

Maar nu loop ik tegen een ander probleempje op..

Sheet2.Cells(1) is bij mij een extern bestand (DATA.xlsx)
Maar waarschijnlijk doe ik iets fout...

   With Workbooks("DATA.xlsx").Sheet2.Cells(1).CurrentRegion
     .AutoFilter 1, Workbooks("Home.xlsx").Sheet1.Cells(6, 5)
     .Offset(, 1).Copy Workbooks("Home.xlsx").Sheet1.Cells(1)
     .AutoFilter
    End With

 

[snb]

Controleer eens of het bestand data.xlsx een werkblad sheet2 als codename heeft.

 

[rvt1982]

Foutje gevonden, Deze werkt perfect. :thumb: