Rows in macros

A

AVB Over My Head

I have a table below has the fields as showing. I have another form
that I'm copying the data from this table to the form. I want to type
"Yes" under completed column when I go over the first row. It should
then go to the second row and do the same. I have the macro but I'm
stock with how to make it move to A3 then finish row 3 then go to A4
and so on until A$ = ""
Subject Type Rating Name email Completed
A2 B2 C2 D2 E2 F2
A3 B3 C3 D3 E3 F3
A4 B4 C4 D4 E4 F4
A5 B5 C5 D5 E5 F5
A6 B6 C6 D6 E6 F6
A7 B7 C7 D7 E7 F7
A8 B8 C8 D8 E8 F8
 
K

kemal

Is this table ready to copy or people are still filling in ?
Below will fix your 10.000 rows.Change it to your needs.
Code checks A:E columns if all filled in puts a "yes" or "no".

Sub chkrows()

Dim rng As Range
Dim i As Range

With Worksheets("sheet1")
Set rng = .Range("a2:a10000")
End With

For Each i In rng
If Application.CountA(Worksheets("sheet1").Range("a" & i.Row & ":" &
"e" & i.Row)) = 5 Then
i.Offset(, 5).Value = "yes"
Else
i.Offset(, 5).Value = "no"
End If
Next i

end sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top