opzoeken waarde in cel ander tabblad tbv vba autofilter

[serpent xx]

Hallo allemaal,

in bijgaand bestandje wordt de waarde in cel A20 gebruikt voor de VBA activate; dit werkt. Ik wil alleen graag de waarde in de VBA rechtstreeks laten verwijzen naar cel A2 in blad "selectie". Alhoewel mij dit in eerste instantie vrij simpel leek, krijg ik de code niet werkend.

Weet iemand raad?

 

[SjonR]

zo:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Unprotect
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$13").AutoFilter Field:=1, Criteria1:=[COLOR="#FF0000"]Sheets("selectie").Range("A2")[/COLOR]
Range("c1").Select
ActiveSheet.Protect AllowFiltering:=True
Application.ScreenUpdating = True

End Sub

 

[serpent xx]

Dat is 'm!
Dank je.

 

[HSV]

Onderstaand doet geen dienst in de code.

Selection.AutoFilter
ActiveSheet.

Je kan het rustig zo schrijven.

Private Sub Worksheet_Activate()
  Unprotect
  Range("A1:D13").AutoFilter 1, Sheets("selectie").Range("A2")
  Protect AllowFiltering:=True
End Sub

 

[serpent xx]

Beste Harry,

nu heb ik meerdere dezelfde bladen als Blad 1. Moet ik deze VBA per worksheet instellen of kan dit in 1 keer voor alle bladen m.u.v. blad 2 en blad 3?

 

[HSV]

Die andere code eruit, en onderstaande in ThisWorkbook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ff fh.name <> "Blad 2" and sh.name <> "Blad 3" then
  sh.Unprotect
  sh.Range("A1:D13").AutoFilter 1, Sheets("selectie").Range("A2")
  sh.Protect AllowFiltering:=True
end If
End Sub

 

[serpent xx]

Harry,

die krijg ik niet werkend. Ik heb in het originele bestand 3 sheets die buiten beschouwing gelaten dienen te worden.
Ik probeer dit als volgt in te geven:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ff fh.name <> "blad 2" and sh.name <> "blad 3" and sh.name "blad 4" then
Sh.Unprotect
Sh.Range("A1 : D13").AutoFilter 1, Sheets("selectie").Range("A2")
Sh.Protect AllowFiltering:=True
End If
End Sub

Maar dan krijg ik een foutmelding op de rode regel.
Wat doe ik fout?

 

[HSV]

Excuus.

[COLOR=#FF0000]if sh.name <> "blad 2" and sh.name <> "blad 3" and sh.name "blad 4" then[/COLOR]

 

[serpent xx]

Perfect!

Nu zoek ik enkel nog het volgende:
Als de waarde in A2 van Sheets("selectie")"0" is dan is het de bedoeling dat hij op alle "gefilterde" werkbladen weer alle resultaten laat zien.
Kan ik dit verwerken in deze code of moet ik daar een aparte voor aanmaken die de filters weer terugzet?

 

[HSV]

Plaats het bestand eens.

 

[serpent xx]

Beste Harry,

Ik heb bijgaand bestandje bijgesloten. De bladen 1 t/m 5 zijn gegevensbladen. Deze worden in de loop vd tijd steeds meer.

Als de waarde in A2 van Sheets("selectie")"0" is dan is het de bedoeling dat hij op alle "gefilterde" werkbladen weer alle resultaten laat zien.
Kan ik dit verwerken in deze code of moet ik daar een aparte voor aanmaken die de filters weer terugzet?

Kun je hier iets mee?

 

[VenA]

Hier staat nog een vraag open. http://www.helpmij.nl/forum/showthread.php/933567-criterium-bepalen-door-aanklikken-cel

 

[serpent xx]

Hier staat nog een vraag open. http://www.helpmij.nl/forum/showthread.php/933567-criterium-bepalen-door-aanklikken-cel

Ik had idd je bericht gemist; zojuist alsnog het bestand geplaatst :thumb:

 

[HSV]

Test het maar eens.

 

[serpent xx]

Dat is gedeeltelijk wat ik zoek. Het werkt in bestaande tabbladen; nieuwe worden echter hierin niet meegenomen omdat die ook niet in de code staan. Kun je dit wel aanpassen zodat dit ook voor nieuwe geldt? Bv dat dit geldt voor alle tabbladen m.u.v. blad "selectie", "sel2"en "sel3"?

 

[HSV]

Verwijder de code in ThisWorkbook.
Plaats onderstaande in Sheets selectie.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A2" Then
 Application.ScreenUpdating = False
   For Each Sh In Sheets
       If InStr("|selectie|sel2|sel3|", "|" & Sh.Name & "|") = 0 Then
        Sh.Unprotect
         If Target.Value = 0 Then
            If Sh.FilterMode Then Sh.ShowAllData
         Else
            Sh.Range("A1:D13").AutoFilter 1, target.value
         End If
       Sh.Protect AllowFiltering:=True
    End If
   Next Sh
  End If
End Sub

 

[serpent xx]

Top, dat is die.
Mijn dank is groot.

 

[serpent xx]

Ik mis enkel nog het feit dat de cursor in beide gevallen in cel C1 geplaatst dient te worden bij uitvoering van de VBA.
Ik heb dit geprobeerd met Range("C1").Select maar hier doet hij niets mee (waarom niet is mij een raadsel).
Daarnaast valt mij op dat er niet wordt afgesloten met Application.ScreenUpdating = True; is dit niet noodzakelijk?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
Application.ScreenUpdating = False
For Each Sh In Sheets
If InStr("|selectie|sel2|sel3|", "|" & Sh.Name & "|") = 0 Then
Sh.Unprotect
If Target.Value = 0 Then
If Sh.FilterMode Then Sh.ShowAllData
Else
Sh.Range("A113").AutoFilter 1, target.value
End If
Sh.Protect AllowFiltering:=True
End If
Range("c1").Select
Next Sh
End If
End Sub

 

[HSV]

Sh.range("c1").select
Op True gaat automatisch.

 

[serpent xx]

Ook met deze krijg ik het niet werkend. Wat doe ik fout? Ik heb de Sh.Range("c1").Select geplaatst op de plek van Range("c1").Select.