[excel] Macro starten mbv een formule.

[SideBuster]

Ik heb een macro in mijn sheet staan deze werd altijd gestart door een knop in te drukken. Nu zou het makkelijer zijn wanneer de macro gestart wordt als er een waarde in een bepaalde cel is ingegeven en daarna op Enter (of een andere enkele toets) wordt gedrukt.

Is dit uberhaubt mogelijk?

[Schonhose]

Ja, maar dan moet je werken met het volgende:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
   StartMacro '(Vul hier je eigen macro in)
End Sub

Deze moet je plaatsen door in de vba project editor te klikken op de sheet (sheet1) met de rechtermuisknop en dan op code. Daar moet ie dus staan (in de code van je sheet. Dus niet in een module!)

Nu wordt elke keer dat je wat veranderd in je sheet de macro gestart. Je kunt eventueel in de sub ook nog een restrictie toepassen dat die verandering in een bepaalde range moet liggen (bijv. alleen kolom C). Als je daar niet uitkomt wil ik het wel even uitleggen.

[SideBuster]

Ah ok.. het is de bedoeling dat een bepaalde macro alleen gestart wordt als er in een bepaalde cel iets veranderd wordt.

[Schonhose]

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
   if ActiveCell.Address = "$A$1" then
       StartMacro '(Vul hier je eigen macro in)
   end if
End Sub

Nu kijkt ie naar de active cell en vergelijkt deze met het adres wat je opgeeft. In dit geval dus A1 (let niet op de $ tekens dat moet helaas....). Indien hij daar aan voldoet (er wordt wat veranderd in A1 dan start de macro. Anders stopt ie gewoon en doet ie niets.

Voer nu je eigen cell in maar wel met de $ tekens.......

[KeeZ]

Visual Basic .NET:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target(1, 2) = "3" Then
  MsgBox ("woei!!")
 End If
End Sub

zo werkt het wel... bij mij tenmiste

[ Voor 73% gewijzigd door KeeZ op 13-02-2003 14:35 ]

[henkleerssen]

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
   if ActiveCell.Address(FALSE,FALSE) = "A1" then
       StartMacro '(Vul hier je eigen macro in)
   end if
End Sub

Zo kan het ook nog..

[SideBuster]

Ik krijg een compileer fout: Sub of Funtion is niet gedefieerd

Download hem anders maar even.
http://www.froeling.net/downloads/Dartscore.zip

Het is de bedoeling dat bij het veranderen van cel J7 de macro "speler01_ok" gaat lopen en bij het veranderen van cel N7 de macro "speler02_ok" gaat lopen.

[ Voor 67% gewijzigd door SideBuster op 13-02-2003 14:47 . Reden: Link added ]

[Schonhose]

Het moest dit zijn na testen:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SelectedCell As String
    SelectedCell = Mid$(ActiveCell.Address, 2, 1) & Right$(ActiveCell.Address, 1) - 1
   If SelectedCell = "J7" Then
       speler01_ok
   ElseIf SelectedCell = "N7" Then
       speler02_ok
   End If
End Sub

en dat allemaal omdat je na het invoeren van de cell op enter drukt waardoor hij 1 cel naar beneden gaat. Hiervoor moet je corrigeren.

Je kunt het downloaden.

Hoop alleen dat dit is wat je wou.

[SideBuster]

ah coolio die is wat ik zocht...
many thanx!!

[henkleerssen]

wat is er mis met:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(False, False) = "J7" Then
       speler01_ok
   ElseIf Target.Address(False, False) = "N7" Then
       speler02_ok
   End If
End Sub

??

ff tussendoor... veel recorded macro stuff... eerst Range("J7").Select en dan Selection.Copy ? duh...

[Schonhose]

Helemaal niets ware het niet dat je na het invoeren van de cell op enter drukt waardoor hij 1 cel naar beneden gaat. Hiervoor moet je corrigeren.

En ik ben zo lui om mijn eigen code te gebruiken, maar er zijn meerdere wegen naar Rome.

Dat er veel record-macro spul instond viel mij ook al op Volgens mij kan die code efficienter.