Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Knippen plakken en waarden 0 verbergen

  1. #1
    Junior Member
    Geregistreerd
    23 februari 2021
    Vraag is niet opgelost

    Knippen plakken en waarden 0 verbergen

    Goedemorgen,

    Ik ben op zoek naar een oplossing voor het volgende:

    Ik heb een "master blad" die gevuld word met data.
    Blad 2 is een blad waaruit verkorte info in staat afkomstig uit het master blad.
    Dit doe ik gewoon simpel met een verwijzing =masterblad!A1 etc

    op het master blad word in een kolom een getal ingevuld handmatig als deze leeg blijft zou ik op blad2 willen dat deze regel verborgen word of zelfs verwijderd in dat blad.

    Ik dacht te begrijpen dat vba niet met die formule om kon gaan maar een harde waarde moest zijn.
    Ik dacht dus aan knippen en plakken.
    Dus kwam ik tot deze code:

    Code:
    Sub kopieerTest()
    
        Sheets(1).Range("k3:k999999").Copy
    Sheets(2).Range("e3:e999999").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Dit werkt verder prima

    voor het verbergen van de waarde 0 heb ik dit:

    Code:
    If Target.Column = 5 Then Target.EntireRow.Hidden = Target.Value = 0


    Deze alleen werkt ook

    Er zijn 2 afdeling die met dit blad gaan werken.
    Blad 1 is voor afdeling 1.
    Blad 2 voor afdeling 2.

    Als afdeling 1 zijn gegevens heeft verwerkt is het de bedoeling wanneer afdeling 2 het blad openend zijg gegevens ingevuld opgeschoond zijn op blad2.

    Alleen nu wil ik graag deze 2 combineren echter lukt me dat niet.
    De codes hierboven heb ik niet zelf bedacht maar gezocht op internet.
    Ik heb zelf totaal geen verstand van vba.

    Kunnen jullie mij helpen met dit onderwerp wellicht kan het heel simpel alleen zie ik door de bomen het bos niet meer..
    Ik hoop dat ik het goed heb kunnen omschrijven wat mijn wensen zijn.

    Met vriendelijke groet,

    Bennie
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door Bennie122 : 23 februari 2021 om 14:37 Reden: document toegevoegd

  2. #2
    Giga Senior
    Geregistreerd
    13 juni 2016
    Welkom
    Ik denk dat een representatief voorbeeldbestand wenselijk is.
    Desktop computer; Windows 10 Pro 64-bits; Versie 20H2; Build 19042.804;
    WFEP 120.2212.551.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Office 2007 H&S

  3. #3
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Met een bestandje erbij wordt de animo om er in te duiken een stuk groter .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Gewoon filteren?
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Junior Member
    Geregistreerd
    23 februari 2021
    Quote Origineel gepost door VenA Bekijk Bericht
    Gewoon filteren?


    liever niet, vanwege kolommen die er nog bij gaan komen waar wel op gefilterd gaat worden.
    Filter op filter wil ik eigenlijk voorkomen.

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Echt handig is deze opzet niet. Door de directe verwijzing naar de tab 'magazijn' en de kolommen die je nog gaat toevoegen loop je het risico dat er bij een sortering alles door elkaar staat. Maar goed.

    Code:
    Sub VenA()
      Dim r As Range
      With Sheets("uitgifte")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(3, 5).Resize(lr - 2) = Sheets("magazijn").Cells(3, 11).Resize(lr - 2).Value
        For j = 3 To lr
          If .Cells(j, 5) = "" Then
            If r Is Nothing Then Set r = .Cells(j, 5) Else Set r = Union(r, .Cells(j, 5))
          End If
        Next j
        If Not r Is Nothing Then r.EntireRow.Hidden = True
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren