# VBScript Excel Exact Formula

**URL:** <https://forum.robusta.ai/t/vbscript-excel-exact-formula/111>\
**Category:** FAQ\
**Created:** [May 9, 2022, 7:07am UTC](https://forum.robusta.ai/t/vbscript-excel-exact-formula/111 "2022-05-09T07:07:17Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![ilayda.ipar](https://dub1.discourse-cdn.com/flex005/user_avatar/forum.robusta.ai/ilayda.ipar/32/56_2.png) [@ilayda.ipar](https://forum.robusta.ai/u/ilayda.ipar)\
**Post date:** [May 9, 2022, 7:07am UTC](https://forum.robusta.ai/t/vbscript-excel-exact-formula/111/1 "2022-05-09T07:07:18Z")

</div>

To apply the exact formula between 2 different sheets in Excel

⬇

```auto
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
objXLApp.DisplayAlerts = False
Set objXLWb = objXLApp.Workbooks.Open("C:\Robusta\Output\Pivot.xlsx")
Set oSheet = objXLWb.Worksheets(1)  
Set oSheet2 = objXLWb.Worksheets(2)  

Dim rowCount
rowCount = oSheet2.Range("A1").CurrentRegion.Rows.Count

oSheet.Range("D2").Formula ="=EXACT(A2,PivotBackupGuncel!A2)"
oSheet.Range("D2:D" & rowCount).FillDown

oSheet2.Cells(2,4).Value="Exact"

objXLWb.Save
objXLWb.Close
objXLApp.Quit

```