*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: voorwaarden uitprinten  (gelezen 2150 keer)

0 leden en 1 gast bekijken dit topic.

Offline oney

  • Nieuw lid
  • Berichten: 7
  • Helpmij.info de oplossing
voorwaarden uitprinten
« Gepost op: 27 augustus 2006, 16:32:34 »
hallo,

in een werkblad heb ik een veld "naam" een veld "adres" en een veld "voorwaarde". In veld "voorwaarde" is ofwel 0 of 1 ingevuld. ik zou een afdruk willen maken van alle lijnen  waarvan veld "voorwaarde" een 1 bevat, doch die lijnen moeten op elkaar aansluiten. zie vb. in bijlage.
alvast bedankt
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:voorwaarden uitprinten
« Reactie #1 Gepost op: 27 augustus 2006, 18:07:21 »
Beste Oney,
Ik zou het volgende doen:
In "blad1" , in kolom 'F' plaats ik deze formule
=ALS(E3=1;0;1) en copieer ik deze naar alle gebruikte lijnen.
Dan zou ik een macro in een module zetten als volgt:
(((Ik noem de macro bvb 'voorwaarde')))
Je kan bvb deze macro oproepen door op een button te klikken. Vervolgens wordt de gewenste data overgezet naar blad2.

Sub voorwaarde()
Sheets("Blad1").Select
Range("F2:F500").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
Range("A1:E40").Select
    Selection.Copy
    Sheets("blad2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Blad1").Select
    Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Blad2").Select
    Range("a1").Select
    Sheets("Blad1").ShowAllData
End Sub

Probeer het maar eens en laat je gedacht dan weten.
Succes Dimy
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline oney

  • Nieuw lid
  • Berichten: 7
  • Helpmij.info de oplossing
Re:voorwaarden uitprinten
« Reactie #2 Gepost op: 27 augustus 2006, 22:24:28 »
Beste Dimy, jij verdient de nobelprijs!!!!
Danke,danke,danke
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:voorwaarden uitprinten
« Reactie #3 Gepost op: 28 augustus 2006, 11:22:11 »
Dank je Oney maar zoveel lof verdien ik niet hoor.
Ik heb er nog's over nagedacht en jou vraag kan nog iets simpeler opgelost worden.
Je hoeft eigenlijk geen formule te zetten in kolom 'F'.
In onderstaande code maak ik gebruik van de getallen uit kolom 'E'.
Zet deze macro in een module en probeer maar uit.
Werkt even goed.

Sub voorwaarde()
Sheets("Blad1").Select
Range("E2:F500").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("A1:E40").Select
    Selection.Copy
    Sheets("blad2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Blad1").Select
    Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Blad2").Select
    Range("a1").Select
    Sheets("Blad1").ShowAllData
End Sub

Succes Dimy
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:voorwaarden uitprinten
« Reactie #4 Gepost op: 28 augustus 2006, 21:00:15 »
Ik verdien ook een Nobelprijs denk ik, want hier is code die efficiënter en korter is:

Code: [Selecteer]
Sub voorwaarde()
    Application.ScreenUpdating = False
    Range("C2:E500").AutoFilter Field:=3, Criteria1:="1"
    With Sheets("Blad2")
        Range("C3:E" & Range("C" & Rows.Count).End(xlUp).Row).Copy .Range("A1")
        .Activate
        .Range("A1").Select
    End With
    Sheets("Blad1").Activate
    Sheets("Blad1").Range("A1").Select
    Range("C2:E500").AutoFilter
    Application.ScreenUpdating = True
End Sub
Wigi
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline oney

  • Nieuw lid
  • Berichten: 7
  • Helpmij.info de oplossing
Re:voorwaarden uitprinten
« Reactie #5 Gepost op: 31 augustus 2006, 23:03:54 »
jullie verdelen de prijs dan maar!
allebei danke

ONEY
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com