Na uitstekende ervaringen bij mijn eerste hulpvraag, probeer ik het nogmaals voor iets waar ik na lang speuren toch (weer) niet uit kan komen.
Ik heb 2 werkbladen, met nagenoeg dezelfde kolommen. In het eerste werkblad staat alleen een kolom extra ("E") waarin aangegeven moet worden of iemand meegenomen moet worden voor een startwerkbespreking. Als alles is ingevuld moeten alle rijen waarin in kolom E 'ja' is ingevuld, gekopieerd worden naar het volgende werkblad. Alleen exclusief kolom E (of de betreffende cel of waarde in die cel)! In het tweede werkblad ontbreekt deze kolom met deze vraag namelijk.
De printscreens zijn bijgevoegd.
Onderstaande code heb ik gevonden:
Sub CopyRowInputItem()
Dim r As Integer
Dim cell As Range
r = 11
Application.ScreenUpdating = False
For Each cell In Worksheets("Personen op bouwlocatie").Range("E11:E30").Cells
If cell.Value = "ja" Then
cell.EntireRow.Copy
Sheets("Startwerkbespreking").Cells(r, 1).EntireRow.PasteSpecial xlPasteValues, SkipBlanks:=True
r = r + 1
End If
Next cell
Application.ScreenUpdating = True
End Sub
Alleen ipv cell.entirerow.copy, wil ik dus een rij kopiëren uit werkblad 1 exclusief de waarde "ja" uit kolom E. Kan iemand mij helpen de code aan te passen?
Ik heb 2 werkbladen, met nagenoeg dezelfde kolommen. In het eerste werkblad staat alleen een kolom extra ("E") waarin aangegeven moet worden of iemand meegenomen moet worden voor een startwerkbespreking. Als alles is ingevuld moeten alle rijen waarin in kolom E 'ja' is ingevuld, gekopieerd worden naar het volgende werkblad. Alleen exclusief kolom E (of de betreffende cel of waarde in die cel)! In het tweede werkblad ontbreekt deze kolom met deze vraag namelijk.
De printscreens zijn bijgevoegd.
Onderstaande code heb ik gevonden:
Sub CopyRowInputItem()
Dim r As Integer
Dim cell As Range
r = 11
Application.ScreenUpdating = False
For Each cell In Worksheets("Personen op bouwlocatie").Range("E11:E30").Cells
If cell.Value = "ja" Then
cell.EntireRow.Copy
Sheets("Startwerkbespreking").Cells(r, 1).EntireRow.PasteSpecial xlPasteValues, SkipBlanks:=True
r = r + 1
End If
Next cell
Application.ScreenUpdating = True
End Sub
Alleen ipv cell.entirerow.copy, wil ik dus een rij kopiëren uit werkblad 1 exclusief de waarde "ja" uit kolom E. Kan iemand mij helpen de code aan te passen?