Tekst (wedstrijdprogramma) toevoegen aan Keuzemenu.

[eddie01]

Ik heb een tabblad "Wedstrijden" met het wedstrijd programma van 22 wedstrijden
In het tabblad "Printen" heb ik een keuzemenu gemaakt van 22 wedstrijden.
Hoe kan ik het keuzemenu "Tapblad printen" koppelen aan de wedstrijdprogramma in het tabblad "Wedstrijden"

Ik werk et Excel 2007

 

[Cobbe]

Het wordt niet echt op prijs gesteld om dezelfde vraag gelijktijdig in verschillende fora te posten zonder dat te vermelden.

Cobbe

 

[Wigi]

En dan nog een privé-mail naar mij ook zonder enige link of vermelding. Mail zit ondertussen al in de Deleted items folder

Wigi

 

[Cobbe]

Allez dan enkel maar omdat mijn neefje bij jullie voetbalt(jeugdkeeper).

Kijk eens of dit ongeveer is wat je voor ogen hebt.

Cobbe

 

[eddie01]

Foutmelding

Cobbe,

Bedankt voor de moeite.

Vraag 1
Wie is jouw neefje die bij ons keept ?

Vraag 2
Visual Basic geeft foutmelding aan.
Het bestandje geeft een copileerfout aan.
kan het project of biblioteek niet vinden

 

[Cobbe]

Dat is vreemd, maar ligt misschien aan een invoegtoepassing die niet aangeroepen kon worden.
Heb dat aangepast en tevens een printknop ingevoegd om dat blad als afdrukvoorbeeld weer te geven.

Cobbe

Kan het zijn dat Niels Brouwers daar ergens in de goal staat?

 

[eddie01]

Niels Brouwers

Cobbe,

Niels Brouwers keept bij ons op de B1.

V.w.b. excel
Alles gaat goed, behalve wedstrijd 1.

Ik wil het ook wel zelf leren, maar ik weet niet hoe ik het moet aanpassen.

 

[Cobbe]

Ik heb geen probleem met wedstrijd 1, heb je niets gewijzigd.
Ik heb alle wedstrijden een naam gegeven (een,twee,drie,...enz)
Die staan in AA2:AB24
Als je cel B2 wijzigt gaat de code op zoek naar de wedstrijd met het nummer van B2 in AA2:AA24, en neemst dan de waarde uit de tweede kolom(AB24)
Het bereik met de overeenkomende naam wordt dan op blad 'printen' geplaatst
Eerst wordt de vorige wedstrijddag gewist.

Moelijk hé

Succes, Cobbe

PS En hoe doet Niels het?

 

[eddie01]

Wedstrijdprogramma

Cobbe,

Niels doet het uitstekend.
Volgens mij is het een Belg. Kan dit ?

Kijk maar ens op http://www.vveijsden.nl/index.php?page=b1

Bij mij pakt hij bij wedstrijd1 het programma van wedstrijd 10.
De kop van wedstrijd1 is wel goed, maar geeft het programma van wedstrijd10

 

[trucker10]

Sub Ophalen()
Application.ScreenUpdating = False
Range("B6:F12").ClearContents
Set c = Range("AA2:AB24").Find([B2])
wedstrijd = c.Offset(0, 1)
Range(wedstrijd).Copy
Range("B6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[B2].Select
End Sub

Zet de range op AA2

 

[Cobbe]

Ik heb een kleine aanpassing gedaan en het schijnt te werken.

Cobbe

PS Mooie foto, bedankt. Ja Niels is een Belg uit Voeren.

 

[trucker10]

Ik heb geen probleem met wedstrijd 1, heb je niets gewijzigd.
Ik heb alle wedstrijden een naam gegeven (een,twee,drie,...enz)
Die staan in AA2:AB24
Als je cel B2 wijzigt gaat de code op zoek naar de wedstrijd met het nummer van B2 in AA2:AA24, en neemst dan de waarde uit de tweede kolom(AB24)
Het bereik met de overeenkomende naam wordt dan op blad 'printen' geplaatst
Eerst wordt de vorige wedstrijddag gewist.

Sorry ik wil je niet controleren , hier zet je het goed , maar in je bestandje #4 heb je AA3 staan . Soms zit het hem in een kleinhoekje prachtige oplossing :thumb:

 

[eddie01]

Aanpassen

Ik heb het iets aangepast.

Nu wil ik nog hebben dat het automatsch landscape print i.p.v. portrait.
Hier moet ik iets in de macro aanpassen. Maar hoe ?

Sub Printen()
Range("A1:s20").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$s$20"
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Verder wil ik de grijze balk in het tabblad "programma"een andere kleur geven.
Dit lukt me niet met eigenschappen.

Eddie

 

[Cobbe]

Aangepaste PRINT-macro:

Sub Printen()
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PrintArea = "$A$1:$S$20"
    End With
    Range("A1:S20").Select
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Grijze balk wijzigen:
Selecteer een grijze cel bv D3, dan via Opmaak - Voorwaardelijke Opmaak opent zich een schermpje.
Voorwaarde 2 moet je dan de opmaak wijzigen

Succes, Cobbe

 

[eddie01]

Vraagje

Grijze balk wijzigen:

Hoe moet dit in Excel 2007

Nog een vraagje.

Hoe kan ik een cel splitsen in 2007

 

[trucker10]

Grijze balk wijzigen:

Hoe moet dit in Excel 2007

Klik bv in de cel M3 , daarna klik je op "Voorwaardelijke opmaak ", krijg je een dropdown , daar klik je " Regels beheren" nieuw schermpje zorg dat je daar op het huidige selectie staat , daar zie je ook de opmaak van de cellen Formule: = .............." WD " selecteer deze en klik daarna op " regel bewerken " nieuw schermpje daar klik je bij opmaak kom je in de celeigenschappen , daar selecteer je opvulling en kies je kleur . Let wel op je moet dit ook nog eens voor cel D3 doen .