Portfolio - automatisch invullen tabbladen

[wout83]

thanks Wieter. Zal de code proberen.
Hoe pas ik eigenlijk het bereik aan van A:L tot A:K.
Als ik deze aanpas in de code dan blijft excel L kolom verwijderen.

 

[wieter]

Je moet op 2 plaatsen een wijziging maken, zie rood in de code

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("SALES")
Application.ScreenUpdating = False
.Unprotect
.Range("A1:[COLOR="#FF0000"]K[/COLOR]" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For Each cl In Sheets("PORTFOLIO").Range("a:a").SpecialCells(2)
If cl.Value <> "NO" Then
cl.Offset(, 0).Resize(, [COLOR="#FF0000"]11[/COLOR]).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
.Columns("A:L").EntireColumn.AutoFit
End If
Next
.Columns("A:L").AutoFilter
.Columns("H:H").EntireColumn.Hidden = True
.Protect
End With

With Sheets("STOCK")
Application.ScreenUpdating = False
.Unprotect
.Range("A1:[COLOR="#FF0000"]K[/COLOR]" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For Each cl In Sheets("PORTFOLIO").Range("a:a").SpecialCells(2)
If cl.Value <> "NO" Then
cl.Offset(, 0).Resize(, [COLOR="#FF0000"]11[/COLOR]).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
.Columns("A:L").EntireColumn.AutoFit
End If
Next
.Columns("A:L").AutoFilter
.Columns("H:H").EntireColumn.Hidden = True
.Protect
End With
End Sub

 

[wieter]

In de bijlage van post #21 zat een serieuze fout.
De autofilter werd niet eerst uitgezet, zodat de filter bij wijzigingen beurtelings werd aan- en uitgezet.
Ook de code achter ThisWorkbook hoefde niet, het kan eenvoudiger rechtstreeks in de code.
Daarom nieuwe bijlage.

Bekijk bijlage 183538

 

[wout83]

Bedankt voor de info Wieter.
Waar staat de waarde 11 dan voor zodat ik de macro beter begrijp?

Zal het nieuwe bestand gebruiken in bron bestand.

 

[wieter]

cl.Offset(, 0).Resize(, 11).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

cl.Offset(, 0).Resize(, 11).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
cl.van kolom 0. tot kolom 11. Copy. ....................................................................

 

[wout83]

OK uiteraard thx.

 

[wout83]

In de bijlage van post #21 zat een serieuze fout.
De autofilter werd niet eerst uitgezet, zodat de filter bij wijzigingen beurtelings werd aan- en uitgezet.
Ook de code achter ThisWorkbook hoefde niet, het kan eenvoudiger rechtstreeks in de code.
Daarom nieuwe bijlage.

Bekijk bijlage 183538

bij mij werkt de filter niet.
Als ik bv filter plaats op PROMO in portfolio dan zie ik nog steeds alle waarden in tabblad sales / stock. (niet enkel de PROMO waarden)
Ik kan wel de filter functie zien in sales en stock.