Convert Formula to VBA

[Nu2Java]

Hello,

I want to convert these formulas to a VBA method. I am not very good with formulas but I am much better with VBA. Can someone help me convert this to VBA? I plan to create a userform with text boxes to validate the data the same way. Thanks for any help.

=IF(AND(D4="",E4=""),"",IF(RIGHT(D4,6)=RIGHT(E4,6),"PASS","FAIL"))

=IF(AND(E4=""),"",IF(LEFT(E4,19)=$O$3,"PASS","FAIL"))

"O3" RD-FA3622-01 1UL05
"E4" RD-FA3622-01 1UL05 288139
"D4" 1248-20 288139

 

[chirayu]

Which cell are you putting the formula in? Either way edit the range accordingly

Sub Formulator()

'=IF(AND(D4="",E4=""),"",IF(RIGHT(D4,6)=RIGHT(E4,6),"PASS","FAIL"))
Range("A1").Formula = "=IF(AND(D4="""",E4=""""),"""",IF(RIGHT(D4,6)=RIGHT(E4,6),""PASS"",""FAIL""))"

'=IF(AND(E4=""),"",IF(LEFT(E4,19)=$O$3,"PASS","FAIL"))
Range("A2").Formula = "=IF(AND(E4=""""),"""",IF(LEFT(E4,19)=$O$3,""PASS"",""FAIL""))"


End Sub

 

[Nu2Java]

Which cell are you putting the formula in? Either way edit the range accordingly

Sub Formulator()

'=IF(AND(D4="",E4=""),"",IF(RIGHT(D4,6)=RIGHT(E4,6),"PASS","FAIL"))
Range("A1").Formula = "=IF(AND(D4="""",E4=""""),"""",IF(RIGHT(D4,6)=RIGHT(E4,6),""PASS"",""FAIL""))"

'=IF(AND(E4=""),"",IF(LEFT(E4,19)=$O$3,"PASS","FAIL"))
Range("A2").Formula = "=IF(AND(E4=""""),"""",IF(LEFT(E4,19)=$O$3,""PASS"",""FAIL""))"


End Sub

Hello @chirayu Thanks for your reply. I'm sorry I did not explain this properly. The data that is now in O3, D4, E4 will become the contents of a VBA userform textboxes. I need a VBA solution to perform the "Pass" "Fail" result. I hope I am explaining it properly.

 

[chirayu]

Something like this? The reason the second argument shows fail is because LEFT(E4,19) leads to a space at the end so not exact match to O3

 

[Nu2Java]

Something like this? The reason the second argument shows fail is because LEFT(E4,19) leads to a space at the end so not exact match to O3

Ahh yes this is getting me in the right direction. Now all I need is the cell data to be inside of textboxes and then compare the textbox data. There will be no data in the excel sheet. Everything will be in a form.

 

[chirayu]

Try this. You must type in D4 and O3 before typing E4

 

[Nu2Java]

Try this. You must type in D4 and O3 before typing E4

So far this is awesome and exactly the direction I am looking for. Thank You VERY much for your help and your time. Greatly appreciated.