Auteur Topic: Voetbaluitslagen (gelezen 3490 keer)

Vriesacker · « **Gepost op:** 04 mei 2017, 16:31:22 »

Wie kan mij helpen om de voetbaluitslagen in de juiste kolom te krijgen.

de uitslagen van blad 1 zouden met 1 druk op een knop in blad 2 moeten staan.

SoftAid · « **Reactie #1 Gepost op:** 04 mei 2017, 16:39:27 »

Hallo Vriesacker,

Je hebt meer wedstrijden op Blad1 dan op Blad2

Wil je de doelpunten correct overbrengen, dan moeten de ploegen/wedstrijden ook overeenkomen op de 2 tabbladen.

SoftAid

RedHead · « **Reactie #2 Gepost op:** 04 mei 2017, 19:03:30 »

Ik snap even niet waarom je de uitslagen niet rechtstreeks in je tabel van blad 2 zet? Wat is het voordeel van het eerste blad?

Vriesacker · « **Reactie #3 Gepost op:** 05 mei 2017, 17:55:02 »

De ploegen op blad 1 worden gedownload via de site vbal4.be.

de ploegen op blad 2 is een pronostiekboekje

SoftAid · « **Reactie #4 Gepost op:** 05 mei 2017, 18:43:00 »

Citaat van: Vriesacker op 05 mei 2017, 17:55:02

De ploegen op blad 1 worden gedownload via de site vbal4.be.
de ploegen op blad 2 is een pronostiekboekje

Dan blijf ik evenzeer bij mijn vorige opmerking......

SoftAid

Vriesacker · « **Reactie #5 Gepost op:** 06 mei 2017, 17:14:17 »

iemand was zo vriendelijk in Nederland om mij een basic programma te schrijven voor dit excel bestand

RedHead · « **Reactie #6 Gepost op:** 06 mei 2017, 17:53:36 »

Da's mooi. Wil je het hier nog ff delen met ons? Ben benieuwd wat die persoon er van gemaakt heeft.
Ik heb zelf ook nog even gekeken, maar had in minder dan een minuut die kolom A verwijder en vanaf regel 10 steeds die 2 tussenregels om een gelijke opzet te krijgen zoals je op Blad2 had. Waarom wil je dit zéér eenvoudige klusje zo graag geautomatiseerd hebben? (deze vraag is géén waarde oordeel, slechts nieuwsgierigheid)

Vriesacker · « **Reactie #7 Gepost op:** 06 mei 2017, 18:23:18 »

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

RedHead · « **Reactie #8 Gepost op:** 06 mei 2017, 21:43:40 »

Dank. Maar... Hmmm... Lijkt me geen juiste oplossing als je clubnamen op beide sheets niet gelijk zijn...

Code: [Selecteer]

   A                                      B     C                D    E  F    
 1 Zaterdag en zondag 28 en 29 april 2017                                     
 2                                                                            
 3 Heist                                  -     Hasselt          #N/A -  0    
 4 Exc. Virton                            -     Sprimont         #N/A -  #N/A 
 5 Dessel Sport                           -     WS Brussel       #N/A -  #N/A 
 6 Beerschot W.                           -     Oudenaarde       #N/A -  0    
 7 Oosterzonen                            -     Deinze           3    -  1    
 8 Patro Eisden                           -     Geel             3    -  1    
 9 Seraing                                -     Dender           1    -  0    
10 Hamme                                  -     Koksijde         4    -  #N/A 
11 Sparta Petegem                           -   Bornem           1    -  0    
12 Olsa Brakel                              -   St.Eloois-Winkel 0    -  1    
13 Gullegem                                 -   Temse            1    -  0    
14 Westhoek                                 -   Menen            4    -  3    
15 Eendracht Aalst                          -   Knokke           #N/A -  3    
16 Sint-Niklaas                             -   Izegem           1    -  0    
17 Torhout                                  -   Halle            1    -  0    
18 RC Gent                                  -   Harelbeke        2    -  0    
19 Berchem                                  -   Cappellen        4    -  1    
20 Grimbergen                               -   Tienen           1    -  3    
21 Wijgmaal                                 -   Rupel Boom       1    -  #N/A 
22 Bocholter                                -   Duffel           #N/A -  #N/A 
23 Hoogstraten                              -   Londerzeel       3    -  #N/A 
24 Hades                                    -   Wol-Zaventem     1    -  #N/A 
25 Tempo Overijse                           -   Sp.-Mopertingen  4    -  #N/A 
26 Thes Sport                               -   Zwarte Leeuw     3    -  1    
27 St. Gillis-Waas                          -   Vlamertinge      #N/A -  3    
28 Dikkelvenne                              -   Ronse            1    -  0    

Blad2

[Table-It] version 09 by Erik Van Geit

Wat ga je daarmee doen?

Vriesacker · « **Reactie #9 Gepost op:** 07 mei 2017, 10:30:11 »

bij het nieuwe boekje seizoen 2017 2018 zullen de namen gelijk zijn

Help!

Menu

Hulp bij posten

Zoeken

Recente topics