excel - If column X contains value, add column Y value to worksheet range -
i'm sure has been answered elsewhere, require specific development of required vba code.
the scenario: membership database (worksheet "members") contains members details including whether "active" or not.
i trying make program down column c; if cell contains "active" copy corresponding column value 2nd worksheet template range, "active members".
any suggestions appreciated.
kind regards.
this copy active users second worksheet called active members
sub copyactive() dim counter, rowno long counter = 1 rowno = 1 until sheets("members").cells(counter, 1) = "" if ucase(sheets("members").cells(counter, 3)) = "active" sheets("active members").cells(rowno, 1) = sheets("members").cells(counter, 1) rowno = rowno + 1 counter = counter + 1 end if counter = counter + 1 loop end sub
Comments
Post a Comment