Beste,

Advies gegeven op een onduidelijke en onvolledige vraag, is onbegonnen werk.
Herlees je post zelf eens: is dit dan duidelijk?

Hallo

De CodeName eigenschap is read-only, en kan je dus niet wijzigen.
Waarom zou je ze willen wijzigen?

Hallo TonRo

Heeft iemand jou ooit verteld dat samengevoegde cellen moeten vermeden worden.
Net omwille van problemen zoals je nu meemaakt...

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Address(0,0)
Case "E7", "E8", "E10"
.Parent.Unprotect "wachtwoord"
.Locked = True
...

Het hangt af van welk tabblad actief is.
Is dat blad Factuur, dan heb je chance en werkt het.

Gebruik:


Private Sub cmdOKFeest_Click()

Dim ws3 As Worksheet

Kijk even bij een andere Excel MVP, Rob Bovey:
http://www.appspro.com/Utilities/ChartLabeler.htm

Wat als je nu eens AANTALARG(Sheet1!$F$4:$F$18) vervangt door simpelweg $B$4 in de benoemde bereiken?

Er is toch een zoon gebaard en geen computer? :eek:
Wel proficiat overigens.

Mijn eerdere code is kant en klaar en vervangt de jouwe.

Zoek het niet zo ver. De functie TREND is wat je al kan gebruiken:

=TREND($B$2:$B14;$A$2:$A14;A15)

Doe aub zelf ook een poging om dit te snappen.
Dit is geen hogere wiskunde of zo ;)
Uiteindelijk ben jij het die de code in de toekomst zal moeten onderhouden / uitleggen / documenteren, enz.

...

Aangepaste code:


Sub pdfs_hernoemen()
On Error Resume Next
Path = "C:\Documents and Settings\woning\"
For Each r In Columns(2).SpecialCells(2)
Name Path & r.Text & ".pdf"...

Aangepaste code:


Sub pdfs_hernoemen()

Path = "C:\Documents and Settings\woning\"
For Each r In Columns(2).SpecialCells(2)
Name Path & r.Text & ".pdf" As Path & r.Text &...

Maak een generieke procedure, bvb. DoMsgbox:


Sub DoMsgbox()
MsgBox "This textbox is locked"
End Sub

Spreek die procedure dan aan in elk van de 30 events:

Of nog:


Sub pdfs_hernoemen()

Path = "C:\Documents and Settings\woning\"
For Each r In Columns(2).SpecialCells(2, 2)
s = Path & r.Text & ">.pdf"
Name Replace(s,...

Voorbeeldcode:


Sub pdfs_hernoemen()

Path = "C:\Documents and Settings\woning\"
For Each r In Columns(2).SpecialCells(2, 2)
Name Path & r.Text & ".pdf" As Path & r.Text &...

AddPicture was ik even uit het oog verloren, bedankt :thumb:

Dag Lars

Tot op het moment dat er iemand zich aandient, zou ik uit gaan van eigen kracht :-)

Begin zelf met een opzet, en als je ergens vast zit dan kan je een nieuwe topic openen :thumb:

Ik kan dit niet reproduceren. Als ik middels VBA een extra rij (de eerste kolom daarvan) vul met een nieuwe waarde, dan update Excel automatisch de tabel.

Kan je een simpel voorbeeldbestandje...

Bijvoorbeeld:


Sub Macro1()

Dim rng As Range

On Error Resume Next
For Each rng In Columns(1).SpecialCells(2, 2)
Afb_bestandsnaam = "C:\fotos2\00" & rng.Text &...

Achteraan c00 moet nog een \ komen te staan.

Hallo

Lees ook eens het artikel door dat je kan vinden op mijn website, dan ga je naar Excel, dan klik je op Artikels, en dan zoek je (Ctrl-F) op "Automatisch sorteren".
Een voorbeeldbestand is...

Dit is een matrixformule, en moet als zodanig niet bevestigd worden met Enter, maar met Ctrl-Shift-Enter.

Ben je dan al eens in de VBEditor omgeving gaan kijken (Alt-F11) ?

De code wat opgekuist:


Private Sub ToggleButton1_Click()
With Sheets("Blad1")
.EnableCalculation = Not .EnableCalculation
End With
With ToggleButton1
.Caption =...

Sub test()

On Error Resume Next

Do

Sheets(Array("Voorblad", "Samenvatting")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
...