Copieren van celgegevens werkt niet, hulp nodig

[regenTon]

Sub PG1()

If Sheets("4.1 Schadekenmerken").Range("S14").Value = 0 Then        'beoordeel of het getal gelijk is aan 0
            Sheets("Werkblad algemeen").Select                                     'selecteer het werkblad waar de gegevens weggeschreven moten worden
               Range("AL21:AL34").EntireRow.Hidden = True                     'als het getal 0 is, dan verberg rijen AL21 t/m AL34
                   Sheets("4.1 Schadekenmerken").Select                          'ga terug naar het werkblad "4.1 Schadekenmerken"
                    
ElseIf Sheets("4.1 Schadekenmerken").Range("S14").Value > 0 Then    'als het getal groter is dan 0 dan "Werkblad algemeen"
                   Sheets("4.1 Schadekenmerken").Range("Y10:Y14").Copy
                   
                   
                   Sheets("Werkblad algemeen").Select               'selecteer het werkblad
                      Range("AL21:AL34").EntireRow.Hidden = False     'laat alle verstopte regels zien
                            Sheets("Werkblad algemeen").Paste Range("AL21:AL25")
                        
                        
                        ''Sheets("Werkblad algemeen").Range(AL21).Copy = Sheets("4.1 Schadekenmerken").Range(X10).past
                        ''Sheets("4.1 Schadekenmerken").Range(X10).Select
                        ''Range("AL21").Value = "Kenmerk:"
                        ''Range("AL22").Value = "Gebrek:"
                        ''Range("AL23").Value = "Oorzaak:"
                        ''Range("AL24").Value = "Vaststelling:"
                        ''Range("AL25").Value = "Herstel:"
                        
                        ''Sheets("Werkblad algemeen").Range(AL21).past
    End If
    
End Sub

 

[SjonR]

Alleen een Sub plakken en de kreet hulp nodig lijkt mij wat kort door de bocht.

Lees de tips hieronder. Daarin staat o.a. dat je code tussen codetags moet plaatsen.

 

[KristiaanL]

.past = .paste

?

 

[puppie]

Netzoals jong al typt, dit zegt niks.
Ik heb de code tags maar geplaatst.
maar gaat het misschien om deze vraag http://www.helpmij.nl/forum/showthr...n-en-plakken-celgegevens-van-blad1-naar-blad2