*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Auteur Topic: formule voor autm. werking tabellen  (gelezen 7136 keer)

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
formule voor autm. werking tabellen
« Gepost op: 08 augustus 2017, 12:21:12 »
Aan iedereen een goede morgen
(is een tijdje geleden dat ik op het forum geweest ben)
Kan iemand mij helpen;Ik heb een tabel aangemaakt waar ik de plaatsbeschrijving van in ingeschreven personen autm. wil laten invullen (kaartprijskamp).
In sheet tafelnummer staat de tabel die ik handmatig ingevuld heb.
De bedoeling is dat na het invullen van het aantal tafels (sheet tafelnummer cel C1) de nummers opgehaald worden in sheet tabel waar de volledige tabel staat van 4t/m 30 tafels en dit per ronde
 (er zijn 4 ronde) rondenummer wordt ingevuld in sheet tafelnummer cel B1
Als alles werkt (indien mogelijk) zou ik de geselecteerde nummers willen afprinten
(enkel de geselecteerde nummers)deze worden ophangen in de zaal zodat iedereen snel zijn plaats terug vind.
De macro voor afprinten heb ik al toegevoegd (moet misschien aangepast worden


mvg,Luc

Offline lommer

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
Re: formule voor autm. werking tabellen
« Reactie #1 Gepost op: 08 augustus 2017, 18:42:04 »
Hallo Luc,
Ik denk dat je voor ieder aantal tafels een apart blad moet aanmaken.
Je moet eens kijken of je iets kunt aanvangen met het voorbeeld van 5 tafels dat ik heb bijgevoegd.
Het genereert in willekeurige volgorde 20 getallen per ronde voor 5 tafels.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #2 Gepost op: 08 augustus 2017, 19:41:41 »
LOMMER,bedankt voor de aanbreng maar dit is voor mij te ingewikkeld.
werkt perfect maar te omslachtig (kan dit wel ergens anders voor gebruiken).
Maar de opzet is als ik het aantal tafels invoer bovenaan het blad (dat via een vba code)zo dacht ik de nummers opgehaald worden en in de desbetreffende cellen geplaatst worden en ik dan de macro printen kan aanpassen om dit te laten afprinten.
ps:zelf ken ik niets van vba codes SORRY

    mvg,Luc

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #3 Gepost op: 09 augustus 2017, 09:50:24 »
Lommer;
nog een opmerking ivm uw opmaak
de nummering in het voorbeeld is niet juist.
vb:normaal voor 5tafels 1ste ronde zijn nr 1/6/11/16 de juiste
deze komen uit sheet tabel rij 18 cellen c/d/e/f
uw voorbeeld geeft de nummers 1/18/11/17
ps:de nummering moet moet met de  nummers uit de sheet tabel overeenkomen
  mvg,Luc

Offline lommer

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
Re: formule voor autm. werking tabellen
« Reactie #4 Gepost op: 09 augustus 2017, 15:10:41 »
Efkes verkeerd begrepen, ik dacht iedere keer nieuwe nummers te creëren.
Het zijn dus de nummers die je zelf in tabel hebt gezet die in de printtabel moeten komen naargelang tafels en ronde.
In het voorbeeld zijn 4 en 5 tafels (elk met 4 rondes) in macro gezet.
Je zou dit nu gemakkelijk zelf kunnen uitbreiden.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #5 Gepost op: 09 augustus 2017, 23:37:46 »
Lommer,

 bedankt voor de aangebrachte versie werkt perfect
 Ik ga er morgen mee aan de slag om dit uit te breiden tot 30 tafels en laat nog iets weten als er problemen zijn
(dit had ik zelf nooit klaargekregen) nogmaals bedankt.
     mvg,Luc

Offline lommer

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
Re: formule voor autm. werking tabellen
« Reactie #6 Gepost op: 10 augustus 2017, 08:29:51 »
Je kan de vba nog drastisch inkorten door de rondes op 1 lijn te plaatsen.

Sub Tabel_vullen()
Sheets("tafelnummer").Select

Tafels = Range("C1")
Ronde = Range("B2")
Range("B4:E33").Select
Selection.ClearContents
Range("B4").Select

Sheets("tabel").Select

Select Case Tafels
    Case 4 '4 tafels
        BeginRonde = Choose(Ronde, 2, 6, 10, 14)
        EindeRonde = Choose(Ronde, 5, 9, 13, 17)
    Case 5 '5 tafels
        BeginRonde = Choose(Ronde, 18, 23, 28, 33)
        EindeRonde = Choose(Ronde, 22, 27, 32, 37)
End Select
Call Uitvoeren
End Sub



Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #7 Gepost op: 10 augustus 2017, 08:56:42 »
Lommer:

Bedankt voor de inperking van de tabel,ik was juist op weg de vraag te stellen!
Was al bezig met de aanvulling maar dit werd een slopend werkje, beter Exel laten werken.
ps:als ik dit probeer krijg ik een compileerfout (iets met call uitvoeren)al verwijderd werkt nog steeds niet
Dit staat er nu!!

Dim Tafels, Ronde As Integer
Dim BeginRonde, EindeRonde As Integer
Sub Tabel_vullen()
Sheets("tafelnummer").Select

Tafels = Range("C1")
Ronde = Range("B2")
Range("B4:E33").Select
Selection.ClearContents
Range("B4").Select

Sheets("tabel").Select

Select Case Tafels
    Case 4 '4 tafels
        BeginRonde = Choose(Ronde, 2, 6, 10, 14)
        EindeRonde = Choose(Ronde, 5, 9, 13, 17)
    Case 5 '5 tafels
        BeginRonde = Choose(Ronde, 18, 23, 28, 33)
        EindeRonde = Choose(Ronde, 22, 27, 32, 37)
   Case 6 '6 tafels
        BeginRonde = Choose(Ronde, 38, 44, 50, 56)
        EindeRonde = Choose(Ronde, 43, 49, 55, 60)
   Case 7 '7 tafels
        BeginRonde = Choose(Ronde, 61, 68, 75, 82)
        EindeRonde = Choose(Ronde, 67, 74, 80, 86)

End Select

End Sub
Private Sub Uitvoeren()
    Range("C" + CStr(BeginRonde) + ":F" + CStr(EindeRonde)).Select
    Selection.Copy
    Sheets("tafelnummer").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
mvg,Luc
« Laatst bewerkt op: 10 augustus 2017, 09:36:30 door lco »

Offline lommer

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
Re: formule voor autm. werking tabellen
« Reactie #8 Gepost op: 10 augustus 2017, 10:24:41 »
de regel 'Call Uitvoeren' moet tussen 'end select' en 'end sub' staan en die staat er niet bij jou.
Ik ga de 30 tafels invullen en het bestand dan opladen.
Tot straks.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lommer

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
Re: formule voor autm. werking tabellen
« Reactie #9 Gepost op: 10 augustus 2017, 10:49:58 »
Dit zou het dan moeten zijn.
Grtz
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #10 Gepost op: 10 augustus 2017, 11:33:21 »
Lommer,

 Bedankt voor de prachtige oplossing,werkt perfect.
PS. Ik zou dit nooit klaargekregen zonder jou.



  mvg,Luc
« Laatst bewerkt op: 12 augustus 2017, 14:15:21 door lco »

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #11 Gepost op: 12 augustus 2017, 14:12:16 »
Lommer,
ik heb nog een vraagje ivm de print macro.
Als ik nu de macro gebruik print hij 6 pagina af (totaal aan bladen) maar hij moet enkel de ingevulde cellen afprinten
kun jij de macro aanpassen zodat hij enkel de ingevulde cellen print.

     mvg,Luc
« Laatst bewerkt op: 12 augustus 2017, 14:47:20 door lco »

Offline lco

  • Volledig lid
  • **
  • Berichten: 123
Re: formule voor autm. werking tabellen
« Reactie #12 Gepost op: 14 augustus 2017, 08:17:19 »
Aan iedereen,ik ga dit in een nieuwe vraag steken
bedankt bij deze voor alle medewerking;


   mvg.Luc

Offline RedHead

  • Ambassadeur
  • *****
  • Berichten: 1.665
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: formule voor autm. werking tabellen
« Reactie #13 Gepost op: 16 augustus 2017, 14:51:19 »
SoftAid, dank voor het unlocken van dit draadje...

@Ico, vanavond plaats ik ff een knutselwerk van mij op jouw idee....  ;D
______________________________

Groet, Leo

Offline RedHead

  • Ambassadeur
  • *****
  • Berichten: 1.665
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: formule voor autm. werking tabellen
« Reactie #14 Gepost op: 16 augustus 2017, 20:26:56 »
Ico, Omdat ik je vraag wel geinig vond, heb ik er dus mee zitten stoeien. Ik begon met een code die achteraf rete traag bleek. Je vindt deze code ook nog in een module in het workbook. De knop om aan te sturen staat in kolom AA (puur voor het geval dat je geïnteresseerd bent en het verschil wilt ervaren).

Hierna ben ik verder gaan puzzelen om de boel te versnellen en dus te herschrijven....
Mijn uitgangspunt was je grote tabel waar je je verdelingen in hebt gezet. Deze verdeling wordt in mijn versie per ronde random aangemaakt (dus niets meer op voorhand aangemaakt).  Daarnaast wordt dan ook een Deelnemer tabel aangemaakt die per deelnemernummer laat zien aan welke tafel er in welke ronde er moet worden gespeeld. Dit kan prettiger zijn voor deelnemers dan in de Ronde-tabel te moeten zoeken. Het afdrukblad hiervoor heb ik - nog - niet aangemaakt. Dit hangt er een beetje vanaf of je iets met mijn versie kan én wil...   ;)

Bekijk 'm maar 'ns en laat weten of je er iets aan hebt.
______________________________

Groet, Leo

 


www.combell.com