İstediğiniz bu şekilde idi sanırım, sorunuzdan anlaya bildiğim kadarı ile yapmaya çalıştım.
Formül ile:
PHP Kod:
=EĞER('1A'!H4="";EĞER('2A'!H4="";EĞER('3A'!H4="";EĞER('4A'!H4="";"";'4A'!H4);'3A'!H4);'2A'!H4);'1A'!H4)
Kod:
Private Sub Worksheet_Activate()
Range("B2:C2").Select
ActiveCell.FormulaR1C1 = _
"=IF('1A'!R4C8="""",IF('2A'!R[2]C[6]="""",IF('3A'!R[2]C[6]="""",IF('4A'!R[2]C[6]="""","""",'4A'!R[2]C[6]),'3A'!R[2]C[6]),'2A'!R[2]C[6]),'1A'!R4C8)"
Range("A3:B3").Select
End Sub