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.

 

[Larry Haydn]

I do not understand what you mean by this:

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.

 

[Lian]

confused, too.
better to use formula by 'if' condition.

 

[Zot]

What value you want to fill in column D? If column D is N, no need to write value?
It is easy to understand if you show what is the expected result in this case

 

[christopherlewis1620]

I do not understand what you mean by this:

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.

I new to writing a macro , i want to fill the subsequent cells under col D Y if COL D =Y and Col A =6 and likewise N if col D=N and Col A=6

 

[Fluff]

Still not entirely clear but maybe

Sub christopherlewis()
   Dim Rng As Range, Cl As Range
   
   For Each Rng In Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
      If Rng.Offset(-1)(1) = "Y" Then
         For Each Cl In Rng
            If Cl.Offset(, -3) = 6 Then Cl.Value = "Y"
         Next Cl
      End If
   Next Rng
End Sub

 

[christopherlewis1620]

Still not entirely clear but maybe

Sub christopherlewis()
   Dim Rng As Range, Cl As Range
  
   For Each Rng In Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
      If Rng.Offset(-1)(1) = "Y" Then
         For Each Cl In Rng
            If Cl.Offset(, -3) = 6 Then Cl.Value = "Y"
         Next Cl
      End If
   Next Rng
End Sub

Thank you so much , it is not executing somehow there is a debug error , what i want is as below

A	B	C	d	If D2=Y or N and A2=6 then Y or N
42	081204	*100MG	Y	Y
6	081204	02236979		Y
6	081204	02237371		Y
6	081204	02245293		Y
6	081204	02245644		Y
6	081204	02281279		Y
42	081204	10Mg	N	N
6	081204	02024152		N

 

[Fluff]

What is the error message & number & what line is highlighted when you click debug?

 

[christopherlewis1620]

What is the error message & number & what line is highlighted when you click debug?

Highlighted in the below line

If Rng.Offset(-1)(1) = "Y" Then

 

[Fluff]

Do you have any merged cells on that sheet?