Excel geadvanceerde filters

[Martijnblaauw]

Goedemiddag allemaal,

Ik ben een 'stukje' software aan het maken om data filterbaar te maken en vervolgens printbaar.

We hebben een microscoop en die creërt raw data.
Deze data moet filterbaar worden op Tray ID, Cell ID, Operator, Tray lay-out, en datum.

Vervolgens moeten meerdere lijnen van die raw data printbaar worden in twee vierkanten van 10 * 6 velden. Dit wilde ik met een advenceerde filter doen. Deze blijft echter niet zichtbaar.

Kan iemand mij hiermee helpen?
Alvast bedankt.

Groeten Marti
Bekijk bijlage Printsoftware.xls

 

[sylvester-ponte]

Marti,
hoe bedoelje "Deze blijft echter niet zichtbaar."
heb je een autofilter gebruikt?
verder denk ik dat je een macrotje moet maken om die 120 veldjes per regel om te zetten naar 2 maal (10 maal 6)
hoe geef je aan wat er geprint moet worden?

het kan misschien ook met formules maar dat laat ik graag aan de cracks over
groet sylvester

 

[JeanPaul28]

Marti
Kan je het beoogde resultaat als voorbeeld op een apart blad laten zien, met dat laatste is het wat onduidelijk.

 

[Martijnblaauw]

Bekijk bijlage Printsoftware v2.rar

Bedankt alvast voor de hulp.
Wat ik bedoel met blijft niet zichtbaar is: Ik wil graag op blad 1 de filterkeuzes kunnen maken. De selectie lijnen moet dan vervolgens worden omgezet in printbare tabellen

Wat bedoeld u met dat laat ik graag aan de Cracks over?

Ik hoor het graag of dit helpt.
Groeten Marti

 

[Martijnblaauw]

Iemand nog een tip?

 

[sylvester-ponte]

mijn rar opener werkt niet meer maar mijn zip opener doet het wel

groet sylvester

 

[Martijnblaauw]

Wat bedoel je Sylvester?

 

[sylvester-ponte]

ik kan niks met jouw rar bestand

 

[Martijnblaauw]

Het bestand is nu te groot geworden op up te loaden.
Ik ben nu op zoek naar een marco die alleen de lijnen kopieert waar een 'waarde in zit'.
Dit is het macro op dit moment.

Zou je hier naar willen kijken of je hier een oplossing in ziet?
Sub Printselectie()
'
' Printselectie Macro
'

'
Range("C12W40").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Selectie").Select
ActiveWindow.SmallScroll Down:=-20
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Printen").Select
ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

 

[sylvester-ponte]

hier kan ik niet zoveel mee
plaats een eenvoudig voorbeeldje en beschrijf precies wat er moet gebeuren

dan heb je de meeste kans dat iemand het voor je oplost
groet sylvester