macro automatisch starten

[Steve72]

Hallo,

Weet niet zeker of ik hier goed zit maar heb volgende twee vragen.
Eerst de situatie.Op een pc wordt bij opstart automatisch een excel bestand geopend. deze pc staat in verbinding met een plc. deze plc stuur contunu dat naar mijn excel bestand. nu de volgende vragen
1: Aan de hand van een waarde op blad1 in cel C1 zou een macro automatisch moeten woden uitgevoerd op een ander blad zonder dat er iemand hier een bewerking doet.
2: op het einde van het order wil ik mijn bestand opslaan en de met een lege werkmap beginnen. nu het wissen luk mij wel maar het probleem is dat ik ook mijn verwijzingen wis en eigenlijk wil ik enkel de data in de cel wissen.

 

[EdWel]

Mogge Steve,

Antwoord op vraag 1:

ThisWorkbook (Code):

Private Sub Workbook_Open()
   If Sheets(1).[C1] = 1 Then Sheets(2) enz......
End Sub

Vraag 2 begrijp ik niet want je wilt met een lege werkmap beginnen, dus.....?

Groet, Ed

 

[Steve72]

Bedankt voor het antwoord op de eerste vraag.
Voor de tweede vraag is de bedoeling aan de hand de waarde in cel C1 op blad 1 om de werkbladen op te slaan en de werkbladen leeg te maken , het probleem is dat ik ook de verwijzngen of formules wis in mijn cellen die ik leeg maak.

bv: in cel C1 1= order wacht 2=inlezen ordergegevens van plc 3=opslaan ordergegevens 4=cellen leegmaken De 1,2,3,4 wrdt door de plc gescereven in de cel

 

[EdWel]

Heb je hier wat aan?

ThisWorkbook (Code):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Target = Sheets(1).[C1] Then
      On Error Resume Next
      Application.EnableEvents = False
      If [C1] = 1 Then Call orderwacht
      If [C1] = 2 Then Call inlezenorder
      If [C1] = 3 Then Call opslaanorder
      If [C1] = 4 Then Columns("B:B").ClearContents   'of wat je maar selectief wilt wissen
      Application.EnableEvents = True
      On Error GoTo 0
   End If
End Sub

Groet, Ed

 

[Steve72]

kan hier wel iets mee doen

alvast bedankt