gevulde regels selecteren

[bikkel9]

beste mensen van morgen geweldig geholpen door leo( voor het invullen van de tijden)
maar ik loop tegen nog een probleem aan
ik wil graag als alle gegevens op een regel gevuld zijn
dus in mijn voorbeeld rij 2 kolom A t/m H
dat deze gekopieerd wordt naar een lege rij op blad 3
en daarna de regel op blad 1 weer leeg maakt
voor nieuw gebruik
nu weet ik dat het kan met kopieren en plakken
maar de mensen die het moeten invullen zijn wat dit betreft digibeten
en de gegevens zijn wel belangrijk
dus zou het mooi zijn als het automatisch gaat
ik heb gezocht op het forum maar kan niks vinden
wat mijn probleem zou kunnen oplossen

alvast bedankt voor de moeite

 

[Wigi]

Als kolom H veranderd wordt, en alles is ingevuld in die rij, dan wordt er gekopieerd:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Target
    
        If .Column = 8 Then
    
            If Len(Range("A" & .Row).Value) * _
               Len(Range("B" & .Row).Value) * _
               Len(Range("C" & .Row).Value) * _
               Len(Range("D" & .Row).Value) * _
               Len(Range("F" & .Row).Value) * _
               Len(Range("G" & .Row).Value) * _
               Len(Range("H" & .Row).Value) Then
               
                    Range("A" & .Row, "H" & .Row).Copy
                    Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
                    Application.CutCopyMode = False
                    
                    Application.EnableEvents = False
                    Range("A" & .Row, "D" & .Row).ClearContents
                    Range("F" & .Row, "H" & .Row).ClearContents
                    Application.EnableEvents = True
               
            End If
    
        End If
        
    End With

End Sub

Wigi

 

[Cobbe]

maar de mensen die het moeten invullen zijn wat dit betreft digibeten
en de gegevens zijn wel belangrijk
dus zou het mooi zijn als het automatisch gaat

Zou het dan niet handiger werken zijn met een Userform?

Cobbe

 

[bikkel9]

Wigi

Helemaal top
bedankt voor de moeite
fijne oudjaaravond

groeten
Bikkel9