niet printen bij bepaalde tekst

[freeze]

Allen,

wie kan me helpen. ik ben planner voor een bedrijf en moet voor de productievloer de wekelijkse werkorders printen die de productievloer op moeten om bij de producten te doen zodat die ingevuld worden door operators.
Nu heb ik in onze digitale werkorderkaart een macro gemaakt waarin ik een range kan invoeren van/tot datum en dan laat hij alle order zien van de server die daar aan voldoen.
En als ik op print druk komen al die orders er prima uit rollen. echter zou ik graag willen dat als hij tijdens het printen een bepaald term tegenkomt in alle tabbladen bijvoorbeeld het woord "weven" dat hij die dan niet uitprint

in onderstaande tablad staat het woord weven, dus ik wil dat hij deze niet afdrukt

mfop_orderno mfop_opno mfop_shortdesc mfop_planqty mfop_proctime mfop_settime mfop_remarks mfop_uzpldate
36158110 20 WEVEN 1 0 242 1-1-1900
36158110 30 VERZENDEN 1 0 1 1-1-1900

Sub print_week()

With Application
 
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .DisplayAlerts = False
 
End With

    r = 5
    c = 5
    r2 = Range("teller").Value
    
    Sheets("Orderboek").Select
    Range("Tabel_Query_van_amco4[[#Headers],[mford_orderno]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    'Selection.PrintOut , ActivePrinter:= _
        "\\ps1\Spreekkamer1_ABM_Tray2"

   

    Do

        Sheets("Orderboek").Select
        Cells(r, c).Select
        Cells(r, c).Copy
        Sheets("WerkOrder").Select
        Cells(3, 4).Select
        Selection.PasteSpecial
            Sheets("mford").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("pst").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("mfres").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("oelin").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("oecmt").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("oehdr").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("oemer").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("mfops").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("oecpt").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("pulin").Select
    Range("A1").Select
    Selection.QueryTable.refresh BackgroundQuery:=False
    Sheets("Werkorder").Select
        Application.CutCopyMode = True

       

         
        Sheets(Array("Werkorder")).PrintOut , ActivePrinter:= _
        "\\ps1\Spreekkamer1_ABM_Tray2"

        r2 = r2 - 1
        r = r + 1

    Loop Until r2 = 0
    
Sheets("Orderboek").Select

With Application
 
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
    .DisplayAlerts = True
 
End With

End Sub

 

[Senso]

Volgens mij zet men normaal vba in PHP codetags.

 

[freeze]

Deze excel sheet was al voor mijn komst naar het bedrijf gemaakt ik heb alleen het gedeelte van orderboek toegevoegd

 

[edmoor]

Naast dat je code hier inderdaad in codetags dient te plaatsen is het ook niet handig om een document met wachtwoord als voorbeeld te geven.

 

[freeze]

Volgens mij zet men normaal vba in PHP codetags.

excuses, begreep de vraagstelling verkeerd. ik dacht dat je heel ieder anders bedoelde

 

[freeze]

Naast dat je code hier inderdaad in codetags dient te plaatsen is het ook niet handig om een document met wachtwoord als voorbeeld te geven.

inderdaad die vergeten eraf te halen, ik heb nu een nieuwe bijlage geplaatst waar het wachtwoord vanaf is. en de van de code begreep ik even verkeerd. excuus zal er op letten

 

[freeze]

Eigenlijk wat de macro nu doet is het ordernummer kopieren uit het tablad "orderboek" naar het tabblad "werkorderkaart" en plakken in het groene vakje. dan de data ophalen van de server en het tablad "werkorderkaart" printen. en dat zelfde riedeltje dan van het 2e ordernummer uit het tabblad "orderboek" maar ik zou dus graag willen dat hij na het verversen van de data op alle tabbladen als hij op het tabblad "mfops" in de kolom mfop_shortdesc het woord "weven" ziet hij dan het printen over slaat.

Misschien heb ik het zo beter uitgelegd. ben nieuw hier dus nog niet zo bekend met alle termen en hoe je iets moet posten. vandaar dat ik dacht ligt het even toe

 

[edmoor]

ben nieuw hier

Nieuw sinds 4 april 2006?

 

[freeze]

Nieuw sinds 4 april 2006?

waarschijnlijk een keer geregistreerd om wat te lezen maar nooit wat gepost haha. toen nog niet zo uitbundig met excel bezig