uitslagen overzetten

[Vriesacker]

Ik heb een bestandje met blad1 de voetbaluitslagen die ik download via een site vbal4.be en daarnaast blad 2 met een pronostiek boekje, graag zou ik de uitslagen van blad 1 met 1 druk op een knop willen overzetten naar blad2, wie kan mij daarbij helpen, dank bij voorbaat,

 

[SjonR]

Verticaal zoeken?

Sub danny()
Dim R, cell As Range
Set R = Blad2.Range("A3:A28")
For Each cell In R
cell.Offset(0, 3).Value = Application.WorksheetFunction.VLookup(cell, Blad1.Range("B1:G39"), 4, 0)
cell.Offset(0, 5).Value = Application.WorksheetFunction.VLookup(cell, Blad1.Range("B1:G39"), 6, 0)
Next cell
End Sub

 

[Vriesacker]

Fantastisch, vriendelijk bedankt

 

[SjonR]

Graag gedaan, maar klopt het dat niet alle wedstrijden van blad1 op blad2 staan?

 

[Vriesacker]

ja dat klopt, als men de uitslagen download van de site vbal4.be is dat altijd in een gehele klasse, in het pronostiekboekje is dat bijv bij de laatste of onderste klasse maar een paar wedstrijden

 

[Vriesacker]

Voetbaluitslagen overzetten

Sjong, kun je mij nog eens helpen ??

heb dat bestand uitgebreid met 32 weken,

natuurlijk werkt de macro niet meer vanaf week 02.

wil je het nog eens bekijken