• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule in voettekst

Status
Niet open voor verdere reacties.
S

Sjaco90

Gebruiker
Lid geworden
23 jan 2013
Berichten
39
Hi,

Is het mogelijk een formule te plaatsen in de voettekst van je Excel(2010) sheet?
Hier zou ik de volgende formule in willen plaatsen, hoe doen jullie dit?

="Dit formulier wordt u aangeboden namens TEST "&ALS('Bestaande situatie'!C26=0;"";"en ")&'Bestaande situatie'!C26

Hiermee wil ik het volgende bereiken:
Wanneer ik alleen iets aanbied wil ik dat het namens TEST wordt aangeboden, wanneer ik het in samenwerking doe wil ik het namens TEST en de naam in C26 aanbieden.
Zou perfect zijn als dit mogelijk is in de voettekst van al mijn bladen, iemand een idee?

Ben benieuwd!
 
Met een macrootje gaat het wel lukken.
Code: 
Sub hsv()
With Sheets("Bestaande situatie")
  .PageSetup.CenterFooter = "Dit formulier wordt u aangeboden namens TEST " & IIf(.Range("C26") = 0, "", "en " & .Range("C26"))
 End With
End Sub
 
Thx voor je reactie Harry, nu heb ik de techniek van een koalabeer i.c.m. macro's.
Ik krijg de volgende melding:

Fout 28 tijdens uitvoering:

Onvoldoende stackruimte

Beëindigen - Fout opsporen
Wanneer ik op Fout opsporen klik, krijg ik de volgende melding

Sub Macro1()
'
' Macro1 Macro
' Voettekst
'
' Sneltoets: Ctrl+Shift+Q
'
Application.Run "'Exploitatieoverzicht - 30-01-2013.xlsx'!Macro1"
Range("D15").Select
End Sub

Enig idee wat ik fout doe?;)
 
Laatst bewerkt:
Waar komt die macro vandaan.
Test alleen die van mij eens.
 
Dit is mijn poging tot het invoegen van jou macro;)
Heb nog niet eerder met macro's gewerkt, vandaar.
Ik heb het volgende gedaan:

R.muis op blad bestaande situatie
Programmacode weergeven
je macro geplakt
Venster gesloten
Tabblad ontwikkelaars
Macro opnemen
Naam en sneltoets gegeven
sneltoets uitgevoerd
foutmelding

Voer ik je macro verkeerd in?
 
Druk Alt+F11.
Menu Invoegen → Module.
Plak in het grote witte vlak de code.
Vba editor afsluiten.

Uitvoeren van de code Alt F8, of een knopje in het lint,
of zelf een knop maken en daar de code aanhangen.
 
De macro geeft geen foutmelding meer en bij uitvoeren lijkt excel het inderdaad in te voeren, maar er verschijnt geen voettekst in de tabbladen.
Any idea?
 
Ziet er beter uit dan mijn bestand.
Bij dezen een WeTransferlink naar mijn bestandje (zonder gevoeldige data) https://www.wetransfer.com/download...b75eb6a24565da53a87c329c20130130213815/94c132

Verder nog wat vragen over jouw bestand:
- Is het mogelijk de tekst rechts uit te lijnen in Calibri 7, met de kleur grijs (RGB 191,191,191)
- Bij wijzigen, moet dit handmatig gerefresht worden (Alt F8) of kan dit ook automatisch?

Overigens super bedankt voor je snelle reacties!
 
Helaas moet ik akkoord gaan met enige voorwaarden.
En laat ik daar nu net de schurft aan hebben. ;)

Zet je bestand op Mijnbestand.nl en ik kan er allicht eens naar kijken.
 
Haha, ik ken het probleem.
Het bestand bevat gevoelige info, maar als het je lukt via wetransfer kan ik het 1 op 1 kopiëren.
Lukt het je in dat bestand?
 
Het staat in bladmodule "Bestaande situatie", en is geautomatiseerd als je cel C26 wijzigd.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C26" Then
Application.ScreenUpdating = False
 With Sheets("Bestaande situatie")
  .PageSetup.CenterFooter = ""
  .PageSetup.RightFooter = "&7&K00-034 Dit formulier wordt u aangeboden namens TEST " & IIf(.Range("C26") = 0, "", "en " & .Range("C26"))
  End With
 End If
End Sub
 

Bijlagen

Laatst bewerkt:
Ziet er super uit HSV, zit nu op m'n werk maar je testbestand werkt super!
Ga vanavond testen, hoop dat het hetzelfde werkt, thx!
 
Bekijk bijlage Voettekst op lettertype en kleur.xlsm

Hi HSV,

Begin me hoe langer hoe dommer te voelen, maar daar ben ik weer.
Op het voorbeeldbestand dat je stuurt ziet het er super uit.
Nu moet het werken in een macro die verwijst naar de bestaande situatie, alleen dit werkblad komt de naam van de partner te staan.
In de bijlage zie je een bestand met de namen van de bladen, in deze bladen staat vermeld of er wel of geen voettekst gewenst is.
Lukt het je deze aan te passen, of is dit teveel werk?
Ik hoor erg graag van je.
 
Hallo Sjaco90,

Verwijder alle codes van elk blad.
Zet onderstaande in Thisworkbook.
Als je nu cel C26 wijzigd, maakt niet uit van welk blad, wordt er een voettekst wel of niet gezet.

Ik weet niet of je het zo bedoeld.
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If WorksheetFunction.Or(.Name = "Voorblad", .Name = "Blad 1", .Name = "Blad 2", .Name = "Totaalpagina") Then
If Target.Address(0, 0) = "C26" Then
 Application.ScreenUpdating = False
  .PageSetup.CenterFooter = ""
  .PageSetup.RightFooter = "&7&K00-034 Dit formulier wordt u aangeboden namens boe " & IIf(.Range("C26") = 0, "", "en " & .Range("C26"))
    End If
   End If
 End With
End Sub
 
Hi HSV,

laten we nog even dwars liggen, hij doet niets.
Het is de bedoeling dat ie standaard in de genoemde formulieren het volgende zegt:

Dit formulier wordt u aangeboden namens boe

Als in cel C26 een partner is ingevoegd moet er staan
Dit formulier wordt u aangeboden namens boe en partner

Daarnaast moet het zoals bij je vorige formule werkte alles direct automatisch aanpassen wanneer C26 wijzigt, lukt dit?
 
Ha Harry,

Ik zal het zelf wel zijn...
Heb je bestand even bekeken, die doet in ieder geval meer dan het mijne. Wel verwijst jouw bestand op ieder blad naar cel C26 van dat blad, terwijl ze allemaal naar cel C26 van Bestaande situatie moeten verwijzen.
Stuur me ff een mail op [bdsversteeg@gmail.com], dan stuur ik je het origineelbestand toe.

Als het hier werkend in wordt, zou helemaal top zijn;)
 
Zo lukt het ook wel toch?
Verwijder alle code in het workbook.
Onderstaande in "Bestaande situatie".
Als je cel C26 daar veranderd gaan alle werkbladen mee waar je wel/geen voettekst wil.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address(0, 0) = "C26" Then
For Each ws In Sheets
With ws
If WorksheetFunction.Or(.Name = "Voorblad", .Name = "Blad 1", .Name = "Blad 2", .Name = "Totaalpagina") Then
 Application.ScreenUpdating = False
  .PageSetup.CenterFooter = ""
  .PageSetup.RightFooter = "&7&K00-034 Dit formulier wordt u aangeboden namens boe " & IIf(Range("C26") = 0, "", "en " & Range("C26"))
    Else: .PageSetup.RightFooter = ""
     End If
      End With
    Next ws
  End If
End Sub
 

Bijlagen

Laatst bewerkt:
Nope, werkt niet. Verwacht dat ik het zelf ergens fout doe, maar geen flauw idee waar. Pure ellende als je geen flauw idee hebt hoe de macro's in elkaar steken, zal voor jou onderhand ook een crime worden. Vind het prima om het bestand naar je door te mailen, hoop dat jij het wel werkend krijgt. Ben benieuwd.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan