Ongeldige buiten procedure

[Atwist]

Hallo forumleden,

Krijg een foutmelding bij deze code

Range("A37").Formula = "=Lus1"

Melding "Ongeldige buiten procedure"

De code moet de gegevens overnemen van een cel met de naam "Lus1" en dan in cel A37 zetten.
Wat is de oorzaak van deze melding?

 

[Revdutchie]

In VBA

[A37] = [Lus1]

 

[Wigi]

Hang een bestandje bij met (alleen) de VBA-code.

Kans is groot dat je Procedures en functies in een module hebt staan, en daarbuiten nog vanalles dat er niet hoort.

Wigi

 

[Atwist]

Beste Revdutchie,

Ik gebruik een code zodat de formule niet wordt verwijderd bij delete of inhoud wissen.

Van Roncancio heb ik gisteren de onderstaande code gekregen.

Met .Formula is de opmaak wat beter leesbaar.
Onderstaande formule is op het werkblad identiek aan de formule van Trucker10.


Code:
  Range("D1").Formula = "=IF(COUNT(A1:B1)=2,SUM(A1:B1),"""")"Met vriendelijke groet,


Roncancio 
__________________

Deze code is een voorbeeld

 

[Atwist]

Beste Wigi,

Ik heb de code achter het betreffende blad staan

 

[Wigi]

Ik heb de code achter het betreffende blad staan

Zo, zonder meer?

 

[Atwist]

Zo, zonder meer?

Ja, aan U reactie te merken krijg ik het vermoeden dat dit niet kan, mijn kennis met VBA is nog nihil.
Ik dacht dat ik deze code wel onder de knie had, maar nee dus

 

[Wigi]

Op zijn minst zet je die code in een procedure:

Sub MijnProcedure()

   'jouw regel code

End Sub

Algemene procedures zet je in een Module overigens, niet in de code van dat blad (al kan het wel, beter is modules te gebruiken).

Wigi

 

[Revdutchie]

Wigi bedoelt gewoon of je je bestandje even wil posten hier.

 

[Wigi]

Wigi bedoelt gewoon of je je bestandje even wil posten hier.

Ergens wel, maar je ziet al van mijlenver aankomen wat het probleem is... Toch?

 

[Atwist]

Beste Wigi,

Heb het ontbrekend erbij gezet en nu werkt het wel.

Hiervoor mijn dank.

 

[Revdutchie]

Beste Wigi,

Heb het ontbrekend erbij gezet en nu werkt het wel.

Hiervoor mijn dank.

HUH ????:shocked:

 

[Wigi]

HUH ????:shocked:

Er was geen procedure-aanhef, noch een End Sub.

Met dat erbij werkt het wel.

 

[Revdutchie]

Ahh, sorry heb over die post van jou heen gelezen.

 

[Atwist]

Als ik dit gebruik gaat het goed

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub

Maar als ik deze gebuik dan werk range A37 wel maar de rest niet

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub
 Sub RangeA38()
 Range("A38").Formula = "=Lus2"
End Sub
Sub RangeA39()
 Range("A39").Formula = "=Lus3"
End Sub

Wat is hier fout??

 

[Roncancio]

Als ik dit gebruik gaat het goed

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub

Maar als ik deze gebuik dan werk range A37 wel maar de rest niet

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub
 Sub RangeA38()
 Range("A38").Formula = "=Lus2"
End Sub
Sub RangeA39()
 Range("A39").Formula = "=Lus3"
End Sub

Wat is hier fout??

Dit zijn 3 aparte macro's genaamd RangeA37, RangeA38 en RangeA39.

Met vriendelijke groet,


Roncancio

 

[Revdutchie]

is er wel een Lus2 en Lus3 ?

Verder zonder voorbeeld bestand wordt het erg gissen (voor mij wel tenminste)

 

[Atwist]

@ Roncancio,

Hoe kan ik deze 3 dan in 1 maken zodat het wel werkt??

@ Revdutchie,

Deze zijn aanwezig

 

[Roncancio]

Zo:

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 Range("A38").Formula = "=Lus2"
 Range("A39").Formula = "=Lus3"
End Sub

Ik zou wel voor een andere benaming kiezen voor de macro.

Met vriendelijke groet,


Roncancio

 

[Breuk132]

Als ik dit gebruik gaat het goed

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub

Maar als ik deze gebuik dan werk range A37 wel maar de rest niet

Sub RangeA37()
 Range("A37").Formula = "=Lus1"
 End Sub
 Sub RangeA38()
 Range("A38").Formula = "=Lus2"
End Sub
Sub RangeA39()
 Range("A39").Formula = "=Lus3"
End Sub

Wat is hier fout??

Dit kan je ook in 1 macro zetten. Hoef je niet 3 verschillende te starten

Sub Formules()
 
Range("A37").Formula = "=Lus1"
Range("A38").Formula = "=Lus2"
Range("A39").Formula = "=Lus3"

End Sub

Verder moeten de namen "lus2" en "lus3" wel bestaan en een juist bereik hebben.