VBA to find a value in different cell and mark as Y

[christopherlewis1620]

A	B	C	d
42	081204	*MG	Y
6	081204	02236979
6	081204	02237371
6	081204	02245293
6	081204	02245644
6	081204	02281279
42	081204	Mg	N
6	081204	02024152

I have the above data.

Col A- will have values like 6,42,41 etc.. , for this i am intrested only in 42 and 6
Col D - will have Y or N for all value in col A=42

i want to write a VBA to check if COL D has Y , If it is Y then i want Y as value in Col D to fill , only those which has number as 6 in Col A.

This set repeats in the table.

 

[christopherlewis1620]

Do you have any merged cells on that sheet?

no merged cell in my sheet

 

[Fluff]

Do you have values in col A?

 

[christopherlewis1620]

Do you have values in col A?

Thanks Fluff, yeah the issue was with the col A , this was very helpfull. let me do some more testing. i really appreciate your help

 

[Fluff]

Ok

 

[Zot]

Looks like what I previously was correct compare to your expected result. I hope this is correct. I'm assuming that column D is always blank when column A is 6. Otherwise it will just overwrite.

Sub ToggleState()

Dim n As Long, eRow As Long
Dim State As String

' Find  end of data row in column A
eRow = Range("A1").End(xlDown).Row

' Go through rows and fill column D on what state of D when column A = 42
For n = 2 To eRow
    If Range("A" & n) = 42 Then State = Range("D" & n)
    If Range("A" & n) = 6 Then Range("D" & n) = State
Next

End Sub

 

[Larry Haydn]

Do you have any merged cells on that sheet?

A	B	C	d
42	081204	*MG	Y
6	081204	02236979
6	081204	02237371
6	081204	02245293
6	081204	02245644
6	081204	02281279
42	081204	Mg	N
6	081204	02024152

I have the above data.

Col A- will have values like 6,42,41 etc.. , for this i am intrested only in 42 and 6
Col D - will have Y or N for all value in col A=42

i want to write a VBA to check if COL D has Y , If it is Y then i want Y as value in Col D to fill , only those which has number as 6 in Col A.

This set repeats in the table.

Would it be simpler if you just sort the list by Col A and Col D?