Inkorten!

[DZP]

Zou iemand de onderstaande code die met de macro-writer is gemaakt kunnen inkorten zodat ik het verschil kan zien hoe het zou moeten.

Sub Printer_artikelen_bestellen_BijKlikken()
'
' Knop1_BijKlikken Macro
' 
    Application.ScreenUpdating = False
    Sheets("printer art").Select
    Range("F7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F7").Select
    Selection.AutoFilter
    'ActiveSheet.Shapes("Drop Down 1").Select
    Selection.AutoFilter Field:=1, Criteria1:="x"
    Range("A7:E163").Select
    ActiveWindow.SmallScroll Down:=-30
    Range("A7:E163").Select
    Selection.Copy
    Sheets("bestellijst").Select
    Sheets("bestellijst").Name = "bestellijst"
    Range("E7").Select
    Range("E65535").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("printer art").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A1").Select
    Selection.AutoFilter
    Sheets("bestellijst").Select
End Sub

Alvast bedankt voor de moeite:thumb:

 

[richard1970]

Eerste stap.

Maak van:

Range("F7").Select
    ActiveCell.FormulaR1C1 = ""

De code:

Range("F7").FormulaR1C1 = ""

Dat schiet al op

Richard

 

[Wigi]

Beter nog, maak ervan:

Range("F7").Value = ""

 

[DZP]

Zoals Wigi voorstelde werkte het niet (geen melding, geen actie) + op de manier van Richard werkte het wel. Zijn er nog mogelijkheden dat ik verder kan bezuinigen in de macro?



>>>>>>>>>>>>>>>>hé Richard, hoe weet jij dat mijn zus nog leeft?<<<<<<<<<<<<<

 

[Wigi]

Gezien de autofilter gaat dit vermoedelijk niet altijd werken, maar dat moet je dan maar aanpassen:

Sub Printer_artikelen_bestellen_BijKlikken()
    Application.ScreenUpdating = False
    With Sheets("printer art")
        With .Range("F7")
            .ClearContents
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:="x"
        End With
        .Range("A7:E163").Copy Sheets("bestellijst").Range("E" & Rows.Count).End(xlUp).Offset(1)
        .Range("F7").AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

Wigi

 

[DZP]

Dank je Wigi, het werkt en is te lezen.
Ik heb nog een vraagje!
Hoe komt het dat het eerste artikel van iedere lijst telkens wordt meegenomen naar de totaallijst terwijl er géén x voorstaat als voorwaarde? Als de x wel wordt ingevoerd neemt hij hem ook gewoon mee. (bij mij en ook bij die van jou <> dus auto-filter, denk ik)
Kan ik dit op een of andere manier beinvloeden of komt dat door de instelling van het auto-filter?
(Het zijn er dus 2 )

 

[Wigi]

Daarvoor moet ik een bestandje zien, kan dat wrs niet zo.

 

[DZP]

Hier heb je hem, hij is natuurlijk nog lang niet af maar hij is onderweg.
(Ik vind excel al moeilijk maar wat is WRS nu weer).
(Rode of groene knop indrukken (dan laat hij de bovenste lege regel zien) en met de verwijderknop kun je de gegevens weer verwijderen!

 

[Wigi]

(Ik vind excel al moeilijk maar wat is WRS nu weer).

Waarschijnlijk

 

[Wigi]

Ik zie geen Commandbutton2 in je bestand staan.

 

[DZP]

Bestand openen
extra <> macro
visual basic editor (alt + F11)
(userform) printer artikelen (groene vlak) dubbel kllikken en daar is iè!

 

[Wigi]

Als ik dat doe, gebeurt er niks. Maak eens eerst een werkende versie voor je iets opstuurt aub.

 

[DZP]

Sorry de lila knop is commandbutton 2 en die werkt netzo als de rode alleen haalt die de gegevens van een andere sheet.

 

[Wigi]

Gebruik eens de code van hier, weliswaar lichtjes aangepast voor jou situatie. Veel beter.

 

[DZP]

De weg van de minste weerstand helaas!
Ik ga wel verder rommelen want met die macro kom ik niet veel verder (had ik al eerder gelezen vanwege het feit dat ik constant op het forum aan het zoeken ben naar mogelijke oplossingen voor m'n vraagjes) omdat ik ook geen die-hard ben in excel anders zat ik niet op dit forum en had ik ook niet zo veel vragen!
Ik sluit dit topic nog niet af omdat er geen bevredigend antwoord op de tweede vraag is gekomen (regel zonder voorwaarde toch gekopieërd) maar wie weet lukt het de volgende keer weer beter.
Succes voor u allen en wie weet tot de volgende X.:thumb:

 

[DZP]

Door veel 5en en 6en heb ik het bestand bijna gereed.
Alleen nog een variërend aantal rijen kopieren en dan in een ander Excel-bestand opslaan onder een variabel aantal andere rijen en hij is helemaal gereed.
Iedereen bedankt voor zijn medewerking en wie weet tot de volgende X.:thumb:
Ik sluit dit topic af met een groen vinkje ook al heeft een ander daar weinig aan.

 

[LucB]

Ik heb je Module1 aangepast.
Kijk maar eens of dit je bedoeling is.