2 Macro's in één sheet

[User21]

Nog even een aanvullende vraag op dit topic: http://www.helpmij.nl/forum/showthread.php?p=2687853

Daar heb ik uiteindelijk deze macro aan over gehouden:

Private Sub Worksheet_Change(ByVal Target As Range)
  If not Intersect(Target, Range("A3:B19")) Is Nothing Then Workbooks("149271.xls").Sheets("Blad1").Range("B2").AutoFilter 1,"<>"
End Sub

Naast 149271.xls wil ik diezelfde macro ook toepassen op 150110.xls. Kan ik deze gewoon eronder bij kopiëren, of is daar dan een speciale code voor? :thumb:

 

[snb]

Wat heb je zelf al uitgeprobeerd en wat was het resultaat ?

 

[User21]

Nou, ik heb nul verstand van macro's, dus zelf een schrijven kan ik niet. Ik heb die 2 sheetnamen achter elkaar gezet en ik heb twee codes onder elkaar gezet. Bij beide krijg ik een foutmelding.

Is er trouwens ergens een handleiding te vinden over macro's in excel?

 

[snb]

macro's voor beginners

 

[User21]

Niemand die hier een idee over heeft?

 

[Roncancio]

Nou, ik heb nul verstand van macro's, dus zelf een schrijven kan ik niet. Ik heb die 2 sheetnamen achter elkaar gezet en ik heb twee codes onder elkaar gezet. Bij beide krijg ik een foutmelding.

Is er trouwens ergens een handleiding te vinden over macro's in excel?

De sheetnamen naast elkaar zetten, gaat helaas niet werken.
Lukt het volgende wel?

Private Sub Worksheet_Change(ByVal Target As Range)
  If not Intersect(Target, Range("A3:B19")) Is Nothing Then Workbooks("149271.xls").Sheets("Blad1").Range("B2").AutoFilter 1,"<>"
  If not Intersect(Target, Range("A3:B19")) Is Nothing Then Workbooks("150110.xls").Sheets("Blad1").Range("B2").AutoFilter 1,"<>"
End Sub

Met vriendelijke groet,


Roncancio