• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hulp nodig bij kopiëren en plakken celgegevens van blad1 naar blad2

Status
Niet open voor verdere reacties.
Hoi, het helpt niet dat je in je voorbeeld koppelingen hebt opgenomen die de helpers niet hebben.
 
Maar deze zou het moeten doen:

Code: 
Sub PG1()

If Blad12.Range("S14").Value = 0 Then
        Blad4.Range("A21:A34").EntireRow.Hidden = True
        Blad12.Select
                    
ElseIf Blad12.Range("S14").Value > 0 Then
        Blad12.Range("Y10:Y14").Copy
        Blad4.Range("A21:A34").EntireRow.Hidden = False
        Blad4.Range("A21").PasteSpecial xlPasteAll
    End If
    
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan