Udvælgelse af kunder med ufuldstændige kundeoplysninger

Helt sikkert.

Vil du have én boks op med mangler, eller skal de sendes over i et andet/nyt ark. ??

Hvis du sætter denne ind i arkkoden på det det ark du har data i ("ark1") får du i ("ark2") en liste med de kunder de mangler opslyninger.

Private Sub Worksheet_Activate()

Sheets("ark2").Cells.ClearContents
Sheets("ark1").Range("1:1").Select
Selection.Copy
Sheets("Ark2").Range("a1").Insert
nyrk = 2
For x = 2 To Sheets("ark1").Range("a" & Rows.Count).End(xlUp).Row
For kol = 1 To Sheets("ark1").Cells(1, Columns.Count).End(xlToLeft).Column
If Sheets("Ark1").Cells(x, kol) = "" Then
Sheets("ark1").Range(x & ":" & x).Select
Selection.Copy
Sheets("Ark2").Range("a" & nyrk).Insert
nyrk = nyrk + 1
Exit For
End If
Next kol

Next x
End Sub

Jeg vil gerne ha dem vist i et nyt ark. Jeg kan ikke lige på stående fod se om din kode ved løse mit problem - jeg får kigget på det i morgen tidlig.

måske