Do While Loop IF Els lus doet het nu prima maar ?

[PJurriaans Sr]

gast0667Ben lekker aan het stoeien met de Loop (Lus) die je voor mij hebt
gemaakt nr 1 hier onder werkt prima dus nr 2 ook geweldig maar sheet oud
moet naar een INI-tialiseer sheet kijken in PERSONAL>XLS.dat krijg ik maar niet
voor elkaar zie nr:3 .Heb er vertrouwen in dat het voor jou geen probleem is zou
je mij nog eens willen helpen?

 1: Worksheets(a + 1).Range("C5").Value = "=" & ActiveSheet.name & "!C6"
 2: Worksheets(a + 1).Range("E5").Value = "=" & ActiveSheet.name & "!E6"

 3:Worksheets(a).Range("C5").Value = "=" & [PERSONAL.XLS].INI & "!C6"

Van deze gelegenheid wil ik graag gebruik maken om jou en ook andere
helpers te bedanken de hulp is geweldig:thumb::thumb:

vrgr Peter sr

 

[gast0667]

Ok, even samenvatten:

Je wilt dus dat cel 'C5' in worksheet("Oud") van bestand "1.xls" kijkt naar cel 'C6' in worksheets("INI") van bestand "personal.xls" ?

In welk bestand en/of werkblad staat de 'commandbutton' die deze macro activeerd ?
Voor deze code moet je onderstaand proberen:

Worksheets(a).Range("C5").Value = "='VOLLEDIGEPADNAAM\[PERSONAL.xls]INI'!$C$6"

Uitleg:
Volledigepadnaam => bijvoorbeeld C:\MijnDocumenten\Testmap\
dus lijkt uiteindelijk op:
[B]"='C:\MijnDocumenten\Testmap\[personal.xls]ini'!$C$6"[/B]

Let op als je het bestand verder opend dan zal hij wel telkens vragen of je de koppelingen wilt bijwerken.

 

[gast0667]

Let wel op trouwens:
Met de eerder opgegeven code wordt de cel waarde CONTINU aangepast.
Dus als je bijvoorbeeld C6 van Januari aanpast dan veranderd C5 van Februari AUTOMATISCH mee. Als je dit aan een commandbutton of macro wilt plaatsen zodat het alleen gebeurt als JIJ het wilt moet je het volgende plaatsen:

"=" & ActiveSheet.Name & "!C6" vervangen voor worksheets(a).range("C6").value

 

[PJurriaans Sr]

gast0667 Hij is weer helemaal voor de bakker:thumb::thumb:

Aan duidelijkheden ontbreekt het bij jou helemaal niet,geweldig!! persoonlijk
werd ik daar al meerdere malen op gewezen, gelukkig raad jij mijn bedoelingen
tot op heden steeds wel:thumbe uitleg bij jouw oplossingen zijn van
onschatbare waarden daar kunnen bepaalde schrijvers van boeken nog
een puntje aan zuigen.Dank daar voor.
vrgr Peter sr.
ps.
Had me reeds als vriend bij je aangemeldt
blij dat ik dat niet meer hoef te vragen.