Saman Makron ajaminen valituilla "sheets"

oho tuohon jäi tuo muuttujan määrittely vahingossa, edellä oleva sub pelaa koska siinä muuttujan määrittelyssä on kirjoitusvirhe, mutta se on turha ja sen rivin voi poistaa.

"Eli sun pitää ensin cotrolli pohjassa valita alapalkista työkirjat missä haluut tuon Laske() makron ajaa."
Olen kyl niin aloittelija etten ymmärrätänyt mitä pitää ja mistä pitää tehdä? Mä vaan heitän moduliin koodeja muusta en tiedä.

Mut hei, eikös allaoleva sivua kait aika paljon tuota sinun koodausta. Tuohan kanssa kutsuu Sub Laske makron. Saiskohan valaistusta miten annetaan käsky että se ajaa vain kyseiset "sheet1", "Sheet2", "Sheet3" taulukot.
Nyt tuo makro kieltää ajamasta nuo taulukot ja ajaa kaikki muut taulukot aktiivisessa työkirjassa.


Olen yrittänyt modaa mutta taidot ei riitä, se huutaa aina vaan virhettä. Kun ei osaa niin ei osaa!




Sub RunRun()
Dim wS As Worksheet
For Each wS In ActiveWorkbook.Worksheets
If wS.Name = "Sheet1" Or _
wS.Name = "Sheet2" Or _
wS.Name = "Sheet3" Then
''''do nothing
Else
wS.Select
Laske ' 

Makro-Marko kirjoitti:

"Eli sun pitää ensin cotrolli pohjassa valita alapalkista työkirjat missä haluut tuon Laske() makron ajaa."
Olen kyl niin aloittelija etten ymmärrätänyt mitä pitää ja mistä pitää tehdä? Mä vaan heitän moduliin koodeja muusta en tiedä.

Mut hei, eikös allaoleva sivua kait aika paljon tuota sinun koodausta. Tuohan kanssa kutsuu Sub Laske makron. Saiskohan valaistusta miten annetaan käsky että se ajaa vain kyseiset "sheet1", "Sheet2", "Sheet3" taulukot.
Nyt tuo makro kieltää ajamasta nuo taulukot ja ajaa kaikki muut taulukot aktiivisessa työkirjassa.


Olen yrittänyt modaa mutta taidot ei riitä, se huutaa aina vaan virhettä. Kun ei osaa niin ei osaa!




Sub RunRun()
Dim wS As Worksheet
For Each wS In ActiveWorkbook.Worksheets
If wS.Name = "Sheet1" Or _
wS.Name = "Sheet2" Or _
wS.Name = "Sheet3" Then
''''do nothing
Else
wS.Select
Laske ' 

Sub RunRun()
Dim wS As Worksheet
For Each wS In ActiveWorkbook.Worksheets
If wS.Name = "Sheet1" Or _
wS.Name = "Sheet2" Or _
wS.Name = "Sheet3" Then
wS.Select
Laske '  <  <  <  < sub Laske
End If
Next
End Sub

... kirjoitti:

Sub RunRun()
Dim wS As Worksheet
For Each wS In ActiveWorkbook.Worksheets
If wS.Name = "Sheet1" Or _
wS.Name = "Sheet2" Or _
wS.Name = "Sheet3" Then
wS.Select
Laske '  <  <  <  < sub Laske
End If
Next
End Sub

Tunnen itseni tosi tyhmäksi, siitä otettiin välistä pois ainoastaan Else, oppi kuitenkin jotain uutta mikä on hyvä juttu.
Toi ''''do nothing ei ole aktiivinen kun siinä on ne heittismerkkit edessä. Mutta kiitos!

Makro-Marko kirjoitti:

Tunnen itseni tosi tyhmäksi, siitä otettiin välistä pois ainoastaan Else, oppi kuitenkin jotain uutta mikä on hyvä juttu.
Toi ''''do nothing ei ole aktiivinen kun siinä on ne heittismerkkit edessä. Mutta kiitos!

turhat luupit ja jossittelut pois...
Sub RunRun
Dim Taulukko as WorkSheet
For Each Taulukko In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
Taulukko.Activate
Laske
Next
End Sub