j`
>lh
$>`h
V`P
pXjh
Xlp
Xlx
Xj
<$ hH f 6 PpdX@
`px<\(
HvXh8
X h h!p!
!~!d ""
"""<"Z#p#
##Z0$$
$$ZP%%
%%d&'
0'@'d(p(
((((
(
( $($)$()$P)$x) @)R)j8*$*** :*L +lp+$+,, F,~`,r,$X--- @-L-v .$... D.L/xh/$/00 0$ 0$H0p0$x0$00 0$0X1$p1
1L1X1$P2
x242f2$(3
P3:`3l3$4
842H4j44
5 5 *(5 X5@x5
5 5@5
(686 @6P6X6`6h6p6x6 6Duplicate S.No Checking Start 0!`!b!d'^e("M13-LastCol = ActiveSheet.UsedRange.Columns.Countx ^'fow lA13:L ^$X!h(jT'n
'p p fA pX 'rC pX '
r$X!t
$X!t
p'v .MsgBox ActiveSheet.Cells(LastRow - 1, 4).Valueage #Chk for Domestic for Percentage BoQ 0%!t
Percentage 0%!tINR Only6Please reset the Conversion type as INR Only for S.No 0%
$|A@z 0%!h(j0F'nSek`0Chk for C1D1 and Discount BoQ Dropdown as Selecter 0%!t ^ 0%!t n the IPlease reset the cell value as Blank for one row before LastRow D Column ^ 0% in the Sheet 0!A@z ^ 0%!h(jF'n 0%!tC1D1 ^ 0%!tSelectentagKPlease reset the Option C1D1 as Select for one row before LastRow D Column ^ 0% in the Sheet 0!A@zs ^ 0%!h(j%F'nPercen 0%!tDiscount ^ 0%!tSelecteOPlease reset the Option Discount as Select for one row before LastRow D Column ^ 0% in the Sheet 0!A@zfor Ba ^ 0%!h(jtemwF'n Xk-Chk for Heading and Notnull from 4 to 12 rowsmt_B X0% l X 0%!h(j 0%!h(j X X 0%!t d Rate$Please Enter Valid Data for the Row X 0%
$|A@z X 0%!h(jouF'nd With X X 0%!t,Name of the Bidder/ Bidding Firm / Company :eXSPlease Enter the Word 'Name of the Bidder/ Bidding Firm / Company :' for the Cell X 0%
$|A@zz X 0%!h(jChF'nc Rate X X 0%!t eOPlease Reset the 'Name of the Bidder/ Bidding Firm / Company :' as Blank Value X 0%
$|A@z%Plea X 0%!h(jNoF'n 0%&Chk for Bidder Status is Empty for MCL X 0%!tMCL 0%!tSelecte X9Please reset the Bidder Status as Select for the Cell E8 0% in the Sheet 0!A@zm F'nek X0%AMsgBox InStr(ActiveSheet.Cells(LastRow - 1, 6).NumberFormat, "%") X
f
0For Mandatory Fields Check Z70% Z Z X Z 0%!t %Please Enter Valid Data for the S.No X Z 0%
$|A@z X Z 0%!h(jBaF'ns Emptk0 Z 0%!t Item Wise X 0%!t e X Z 0%!t h4Please Enter Valid Item Code / Item No for the S.No X Z 0%
$|A@z X Z 0%!h(j(ضF'n@ X Z 0%!td
eKThe Item Code / Item No should not exceed more than 100 Chars for the S.No X 0%
$|A@z X Z 0%!h(jF'n
@kX Z ZeChk for Qty$ X 0%!t X 0%!t 6Please Enter Valid Data for Quantity Columns for S.No X 0%
$|A@z X 0%!h(jF'nh
Chk for Units=H X 0%!t X 0%!t eX3Please Enter Valid Data for Units Columns for S.No X 0%
$|A@z X 0%!h(jF F'nChk for Units length X 0%!t X 0%!t
e?The Units value should not exceed more than 255 Chars for S.No X 0%
$|A@z% X 0%!h(jF'nC!hkhChk for Column H length X 0%!t X 0%!t
BThe Column H value should not exceed more than 255 Chars for S.No X 0%
$|A@z% X 0%!h(jF'nk`
Z
Z5 Z6e]/ X Z 0%!t$ X Z 0%!t :5Please Enter Valid Data for Numeric Columns for S.No X Z 0%
$|A@z X Z 0%!h(jF'n=H Z5 Z6 X 0%!t X Z 0%!t e5Please Enter Valid Data for Numeric Columns for S.No X Z 0%
$|A@z X Z 0%!h(j@F'n Z
e: X 0%!t X
0%!t X Z 0%! Z'Z@Please set the Rate as Blank value or Protect the Cell for S.No X 0%
$|A@z%h X
0%!h(j(F'n
X 0%!t X
0%!t X Z 0%!e Z'ZBPlease set the Rate as Blank value or UnProtect the Cell for S.No X 0%
$|A@z% X
0%!h(jhF'n=( X 0%!t X
0%!t
X Z 0%!e Z'Z(8BPlease set the Rate as Blank value or UnProtect the Cell for S.No X 0%
$|A@zH X
0%!h(j(ضF'n$
@ X 0%!t X
0%!t X Z 0%!e Z'Z6@Please set the Rate as Blank value or Protect the Cell for S.No X 0%
$|A@z
@ X
0%!h(jF'nX X 0%!t X 0%!t e( X
0%!h(jkk Z
Z5 Z6e4;bIf IsNumeric(ActiveSheet.Cells(r, c).Value) And ActiveSheet.Cells(r, c).Value <> vbNullString Then_MsgBox "Please Enter Valid Data for TEXT Columns for S.No " & ActiveSheet.Cells(r, c) & Chr(13)/ActiveSheet.Cells(r, c).Interior.ColorIndex = 3/boqvalidationstatus = "F" ZP 0%!t
Percentage X 0%!t X 0%!t
.Please Enter Valid Estimate Rate for the S.No X Z 0%
$|A@z X Z 0%!h(jF'n%k Ze X 0%!t X 0%!t A1Please Choose Valid Convertion Type for the S.No X 0%
$|A@zH( X Z 0%!h(j%F'n@h 0%!t Item Rate X 0%!t X Z 0%!tPartial Conversione%(=Please reset the Conversion type as Full Conversion for S.No X 0%
$|A@z X Z 0%!h(jF'n' 0%!t
Percentage 0%!tINR Only X 0%!t X Z 0%!tPartial Conversione+=Please reset the Conversion type as Full Conversion for S.No X 0%
$|A@z X Z 0%!h(jF'n' 0%!t
Percentage 0%!tINR Only X Z 0%!tPartial Conversione:Please reset Convertion Type as Full Convert for the S.No X 0%
$|A@z X Z 0%!h(j F'n k@ Ze $ X 0%!t X 0%!t /Please Choose Valid Currency Type for the S.No X 0%
$|A@z and P X Z 0%!h(jF'n@+ 0%!t
Percentage 0%!tINR Only X 0%!t X Z 0%!tINRe/Please reset the Currency Type as INR for S.No X 0%
$|A@z X Z 0%!h(jF'n 0%!t
Percentage 0%!tINR Only X 0%!t X Z 0%!tINRe/Please reset the Currency Type as INR for S.No X 0%
$|A@z X Z 0%!h(jF'n 0%!t
Percentage 0%!tINR Only X 0%!t X Z 0%!tPartial Conversion X Z 0%!tINRe9Please Enter valid Currency type other than INR for S.No X 0%
$|A@z X Z 0%!h(jF'n44 0%!t
Percentage 0%!tINR Only X 0%!t X Z 0%!tINR 0%!t X Z 0%!te:Please Enter valid Currency from the Master List for S.No X 0%
$|A@z X Z 0%!h(jF'nkXkPkH Z X l ^ 0%!h(j l ^ 0%!h(j l ^ 0%!h(j l ^5 0%!h(j l ^5 0%!h(j:Chk for Percentage Type Option is Empty for Percentage BoQ 0%!t
Percentage ^ 0%!tSelectTPlease reset the Percentage Type Option as Select for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jAz 3Chk for Percentage Rate is Empty for Percentage BoQ 0%!t
Percentage ^ 0%!t eVPlease set the Percentage Rate Cell should be Blank for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jAz?Chk for Percentage Rate Format is Percentage for Percentage BoQ 0%!t
Percentage ^ 0%!tSelect ^ 0%!%e\Please Set the Percentage Rate Cell should be format as % for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jAzp:Chk for Quoted Percentage Rate is Empty for Percentage BoQ 0%!t
Percentage ^5 0%!t e_Please set the Formulla for the Quoted Percentage Rate in Figure Cell Highlighted in Red Color
$|A@z ^5 0%!h(j>Az0=Chk for Estimated Percentage Rate is Empty for Percentage BoQ 0%!t
Percentage ^5 0%!t ebPlease set the Formulla for the Estimated Percentage Rate in Figure Cell Highlighted in Red Color
$|A@z ^5 0%!h(jAzd ^ 0%!t ^ 0%!h(jk ^ 0%!h(j ^ 0%!h(jk0Chk for Last 3 Rows ^5 0%!t BPlease Enter the valid formulla for Cell Highlighted in Red Color
$|A@z ^5 0%!h(jF'n 0%!t
Percentage ^5 0%!t eBPlease Enter the valid formulla for Cell Highlighted in Red Color
$|A@z ^5 0%!h(jF'n ^ 0%!tTotal in FigureseOPlease Enter the value as 'Total in Figures' for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jF'n ^ 0%!tQuoted Rate in FigureseUPlease Enter the value as 'Quoted Rate in Figures' for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jF'n ^ 0%!tQuoted Rate in WordseSPlease Enter the value as 'Quoted Rate in Words' for Cell Highlighted in Red Color
$|A@z ^ 0%!h(jF'nk
$Check 2nd and 3rd Row should be Hide 0%!!T6Please Hide the 2nd Row, This Row only for System Use A@zF'n 0%!!Te6Please Hide the 3rd Row, This Row only for System Use A@zF'nk nFA~d Ak k i x yAttribute VB_Name = "Module6"
Function CheckDuplicates()
'8 S.NoDing Start
LastRowAveSheet.UsedRange.6s.Count - 1O0Col0umna3
in^@= m- 3
`("A13:L" & ).Int erior{lo@rIndex9xlNone
boqvalidastatu2s"TLLhoop
18 W hile <=F Q-LChdPValuAQCStr(1 IC@CIf 0Len(~
2).5) > 0 OrIC
ThenG-$LTestD=*? @E7,B<> QMEHN
P\@(S@cACXZ 0%E MsgBox "Please remove dE~b|s high
l`t@[ BacHkgr xd `sor"Shr(131kFk)ElseaE[VI :FP:g::1Id: A;ItemPCode;C; ;End Ifkub}E{ +Wend b`Av9
L "F"hCall Up`eCustomDocProppDT
a^Reset@&
Man`ory$@e= yyy|4}yyThisWorkbook.f
ument!erti@"BLoQw")">NoG8u-Hsic H{ are Not comed J"&`, pcOcorrect th e issy", vbCritlu9MA؇7!'$
)
Cells(4, 1oO.CG 1, 4}"'Chk for Dom}PercqageR,28, 27" ^A( 0INR Onlyy0g.Converstype as rMp1):K Z!twj7KP%C1D1 p7` DiscQ)D!P=downSe.l&3vbNulla!OAW3APe=/c04`/BlLans" rbe"Da ~5'+"Q5n8GYoh3O"-6R.39. u.OpCֲ#s .A X =3 oT `4? ct;/ /ol/tW[/m/_>=&1/oK
'ôChk for Heading and Notnull from 4 to 12 rows
FQr =TTT
ActiveSheet.Cells(r, 1).Interior.ColorIndexlxlNonej8, 2520
If r <> 7 AwValu"eivbNStrThen
MsgBox "Please E id Datathe Row " & 3Chr(1\3)+F3boqvalidationstatus\"F"
Elsew= 8 w"Name of ^Bidd0er/ Firm / Company :" Word ''O ?P?Pé@ËP#ResetXlFas Bplank֖2n)ʟF'C S#Ois Emptyb8MCLP`(@3, 3).c(= ""U{5%USelect Qsr-k)NM,E8TN1*" in7╎a]CsasIf
NePxt r'I
n@(ρLasta- 1, 6).Numbermat, "%"#13 inAACount'M atory Fields `Checkc`155a`Or 2dҘc 100_0@r o should not exceed more `-anRCharsI^ו ..4 4C5 dQtyF*#w.= .?Yc1B'5-er
Qu0antinumnoo)Io`IAooyUnitи/#I}_]lwOO" l?01/`(/ "b11 length..9d _JQJ257 EQJĠIII//////IRϝIF; H`HH??q"8Tz? 59 oMcoc'o`1t1 boqvalidationstatus = "F"
End IfLEls eIf cV13( Or54 0Then^Not IsNumeric(ActiveSheet.Cells(r, c).Valu0e) As" <> vbNullStringsMsgBox "Please E nter 3id Data for K Columns S.No` " & DChr(13)u;_I@ior.6orIndex3"у( Ř4[NR^=^^^^zÏR`LT`@mL ockedyTrue8eGc + 1sQiset the Rate as Blank `@jProtecC!|j 1)jІ"j0dj;7m77G7=> 7@7à7Un77(7177U71!" > 0ԟ6C_ni6nMwOOzOTO߆O7okO7Nd} o7z
OSOSOSqUOSOS
/!zo/S5/'
ol20o]P"(cq
'K~'(P{TEXTw__5c'C'++Pz/"'_'_'q86ba2, 2%`Percentag|e"]GG;6'z֒
@oEstim2ˁB["Os_=; $5 $CA11__B11?2A8
od4 \ChoocConverQ Typews;ionstatus = "F"
ElseIf ActiveSheet.Cells(2, 2).ValuevItem Rat@e" And^r, 4^<> vbNullStr(ing1caPartial Co nvers" 0ThenMsgBox "Please res@et the> type as FDfor S.No " &d1)Chr(1<3)?gInterior.ColorInde
x3"boqv@alidatPercentagvjINR OnlyuEBFuuB%uu"?v|4oo#waY TOot nAto ocoh/oeEIfKx6c{12%@1=( 6Chooठrid Currency42A_g__ 22_B?g_M2Fyۑ
7@ۡ7_j/5P'llIooOo oOl~4l R2QV7-#P_S4",߈W
S, c - 1(ϏC_s%o; E] W2oPprPan <,w? ? ? ? ? ? ? ? ? ? ? i8? Ƹi "Select" Then
@MsgBoxUlease res@et theas D Highlted in RCol" & Chrp(13)6m
UInterior.A Indexy3aCall/PCustomDocPropExit Funom'Chk
RatBeElse6`vbNullStringaPaB/\should be Blan9b ,b]bFormat4E
! "#$%&'()*+,-./0123\6789:C<=>?@AB5DF]HIJKLUNOPQRSTGVWXYZ[a^_`bdLBeSIn@g(ܪ@HNumberC1, "%") <= 0uSOk:@ " m%l l(_;llQuo8z:^s53m= mawem!9@sa.An Figure ߟnߟ( nR!EstiI3n',Ѩ3ٿ3 ,Ҷ34MK44`
0k/g`Z;4%P|_-||OK]v20Dt9If5).H~2Ex
, 3 s'&ow &Evalid@m&A>ώώ ԎboqBaastatusF"#?#?-Sorϡϡ+" }d6:6"186"Total}^s?6J0k{''Be$$$$
$*
?ps}Voo 'O`tshĿ}?, d Wordooe ="l"OO0D2XXeck 2a03rpÀHideYepP!ire\.den MFaP_|"P#!"YQ, onlsSystem UQpSS
$3R=
ZP
, This Row only for System Use "
boqvalidationstatus = "FxEnd If
If R<>TenCall UpeCustomDocPropDT@
Else%Reset
$"rzaFunc
`$`nDrr#<+V9|lNr_p0 F]eGyD||x]eGyD||+V9|lNr_p0ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h%%Xp@@\\0{W$*\Rffff*0u5ce4052d4 xAttribute VB_Name = "Sheet20"
Basx0{00020820- C$0046}
|GlobaBlSpacFalsedCre atablPr@edeclaI"dTru
BExposeTemplateDeriv$BustomizD2
rU ;!;
4q__SRP_16__SRP_17$BModule8Y__SRP_14T`rU @nrU~| krU ,`ay0+nﲀ0* pHd
VBAProject4@j
=
e Macro4.VB_Description = "Macro recorded 05/01/01 by Shailesh Agrawal"GAttribute Macro4.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro4"6 Your comments and Feed back will be most appreciated.
Macro4 Macro9 Macro recorded 05/01/2001 by Shailesh Agrawal Associates@ This macro is available free of cost at www.CharteredValuer.comG For Further inquiry feel free to contact on shashi@CharteredValuer.comR This is distributed as freeware. We do not take any responsiblity for any problem due to this macroN Updated to work up 9999 Thousand Crores of Indian Rupees. by KSR on 3/09/2011]
0H`]x
Xp@@]
%]dZero+ resetOne+lues sTwo+ustomDThree+Four+for FoFive+stomDoSix+sed Seven+Eight+!Nine +eeTen
+eWorkbEleven+(2, Twelve+esetThirteen
+ulFourteen+etFifteen+isSixteen+ Seventeen+Eighteen+asNineteen+Q1Twenty+
Twenty One+
Twenty Two+Twenty Three+ Twenty Four+3PleaTwenty Five+ould b
Twenty Six+Twenty Seven+for itTwenty Eight+r alteTwenty Nine+ XThirty+
Thirty One+
Thirty Two +Thirty Three!+ Thirty Four"+Thirty Five#+H
Thirty Six$+Thirty Seven%+^Thirty Eight&+lectThirty Nine'+he OptForty(+or o Forty One)+ Forty Two*+Forty Three++t
Forty Four,+
Forty Five-+ Forty Six.+Forty Seven/+DiscouForty Eight0+!t
Forty Nine1+Fifty2+Disc Fifty One3+ Fifty Two4+Fifty Three5+
Fifty Four6+
Fifty Five7+ Fifty Six8+Fifty Seven9+Fifty Eight:+Notnul
Fifty Nine;+Sixty<+% Sixty One=+ Sixty Two>+Sixty Three?+ X
Sixty Four@+
Sixty FiveA+ Sixty SixB+Sixty SevenC+|Sixty EightD+!
Sixty NineE+SeventyF+%Seventy OneG+dder/ Seventy TwoH+eX
Seventy ThreeI+ame Seventy FourJ+m / CoSeventy FiveK+XSeventy SixL+zz
Seventy SevenM+jCh
Seventy EightN+XSeventy NineO+EightyP+ 'Na
Eighty OneQ+
Eighty TwoR+Eighty ThreeS+Eighty FourT+ XEighty FiveU+F'
Eighty SixV+Eighty SevenW+CLEighty EightX+!tEighty NineY+!NinetyZ+ X
Ninety One[+
Ninety Two\+Ninety Three]+%Ninety Four^+!Ninety Five_+
Ninety Six`+Ninety Sevena+ls(LasNinety Eightb+ "%")Ninety Ninec+FoOne Hundredd+ Z]0]H]`]x]Z]*==========================================]D X ]D]D ]D8Ph!]DF']D0]D Itemw]D]D(]D@Xp]D]D]D0H`]Dx]D8] H]8Ph]tbGr:xME(6
<<<8
`@i`i@@@@@@d be@... `@Bo@e@@r Bo@
ank@@@@P@@8@`Z P (@``@@````p````tion`F'`JPY,`(`%`her `0%``t` ``'` ^````!^`l`l`p```!d``t`Fo``D1`Opti``!^`l`l`
p`%`e`'t`!^`l`l`p``!t`` `"`$+`&ght`(Fort`*Fift`,Fift`.Fift`0Fift`2`4`6`8`:+`<ght`>Fift`@Sixt Sixt (
%
{W$*\Rffff*0t5ce40115 6 8 B@ B B V N0 < @ F N` X T >xD 0H`x 8Ph(@Xx0H`x0Ph @ X p
(
H
`
x
0Ph @`
(
H
`
(Hh 0 08
h
x
@X
p 8
P
`p
( (0H`h px
(8P
h
x
(8 H`hx 0@`h p @P`x (0 8H`x08 @ Xpx 0@PX`hpx 0@PX`hpx (08@HPX`p0@HPXhx (0 @ Xp(@X px
0HPX`x
8 P h x
!0!H!`!x!!!!!!
!!!!"" "(" 0"@" 0DP" F# ##($($0$8$ H$/This function will work upto 99,99,99,99,999.99 @;-- Updated on II/11/2011. Updated up to 9999 Thousan crorestx;-- Modified as per requirement and updated as on 15/09/2011OAttributx]]
](@DX4]Dp]D]D C]D ]D0 H ]D` ]Dx ]D '
'!-- Limits in place 2004-09-23 ... 8
Zero Only'z
k
qvH7B
x
High Value'z
k
' '& &d$B'0 0'( ($D'* *$F'," $D' $F'8 ' $D'
Crore ' Lakh '
Thousand ' Hundred ' ' ' 'P ' '"0 ' ' ' '"&'< 4 $H$- $H'2 Minus'`
MsgBox RABJI1
d $H'2k 2
2$J' 2
$J' $F $F'
_B'cros $D' $J' : $F'.e
[1]) $
Thousand 'e d
'
CRORE = ""save'kh
d`
KARANT8 = ""ible CRORE = ""workbo'k
2
2
$J'Turn o 2 $J' $F $F'
ʚ;' $D' $J'Save w $F'ly
or s $ Hundred 'd@ '
CRORE = "", *.'k d
KARANT8 = "" CRORE = ""'k 2
su 2 $J'A6 2$J' $ $F $F'
'
' $D' t $J' $F'>
k or and 'e k $'d'
CRORE = ""9
GXZP1 = ""kd'''k` 2
2$J'$' 2$F $$F' ' $D'4.e 4$J'6 6$F'8e: 8
work 8$' acd' ''kd' ''k` 2
2$J'en Pul 2$F $F' 'e: $D'sh $J'cro we $F'
$H $' d'''kd'''k` 2
2$J'Author $'(www.e $F'])
cro $'ald'''kd'''k 2
G 2$J'@ @$F'N
J $'>d@'>'<k(d '>'<k 2 2
Nam 2$'k"
$F'81'<''
Fa $'ld'kpdh'kX 2 2
t
'<''k ,
_B ,$'.ald'.''k $F':ul iocl code start[1PAISE = "Point"ha]d ucZero+as oOne+
NnTwo+@
% Three+ariFour+Cal$lFive+'TurSix+hingSeven+EnEight+p@@Nine +@Y@Q''''' ' .'Zero '
@' '!e
S a' 'CS ', ' $'s $'id' ' $''kx / 'ser wa X+Z axuˬ$Z
+ @ro$Z
+$+Z$X +$$' ' ' Point 'd`'kP ' X+Z a$Z
+$Z
+$+Z$X +$$' ' 'XdP'k@ ' Zero' e Zero Zero'd'k INR '#3AQ_ $H $H $H $H $H $H $H $H $H $H < >$H $H and Paise $H Only'@+ GXZP7 + "Paise " + Trim(PAISE) + GXZP7 + Trim(PAST5) + " Only"d ' Only'k 'iAttribute VB_Name = "Module8"
'This function will work upto 99B,9.99fOpVExplicit
'-- Updated II/11/2011.up O99 Thousan crores=ifi>as per requirement and]`15/09`FSpellNumber123(s As Sng, kapilDoub(le)'Ma H4.Desc1/01 by Shailesh Ag`rawal(ProcData.Invoke_ZNormal.New@s.C$ Your coJmsFe@backbe mosppreci. !0201Hso7gkm@av@ 9
. "Hig"h lue9
BINDRZ
8- Int()2Round((* 100), 0 cA2^3@2e4`Valb3(}%1
1AJEB!
CR N" Crore;LAKBH"Lakhthousa?TI(HU$EDH red
dE0`!I&I߆! 5 SQa\@&C(Left(Trim(#b`11))-" P Dq= Abs@&AfMinus"'MsgBox
ElseaZ D+! Len(S) ^>P"dRRp*t4, 1W&#) -}.(tC3 /q*0#@"4q5, A6a?7?Pa!?ordsd
7)l +0@& 8',% @p B'$r* 8
9?rhtPC9pw?n "Q
77C1_5q__= __5 624v XY\P3sA+ 8 1^} ~8ue
[S5sU, 5%W3QW8%Q= PyҗNcBdPq
r$s> PQ#c" F/ y
1h}i3c֍=KkB1
1q2Dgg"hbs!!YacK
If Len(RABJI1) > 2 Then
BORIS = RighBt, 3)hCYRUhLeft"(N, 10OS1hVal(J*G0> 0 @ ERUPT+wpords-!.Elsed ""HUNDRED1AGXZP4End If
=\*9 71TZZARS2TDOZAL@v
$
vFLITIEwvoXYZnf: ""'> *"+c(@= CDbl(Do Until0"@ l(b"\ 1* "Modj=G a(cCFl RnaGT%+d " + $enA" ALoopC' % aT7i."c /n%!"y)q//2//
/ss(.
/W!b, yqTƅap9*Hqne0I
}eǼ{.PF(zB9XPCt2
SLiJ
6%MGl0r8H=OExcel+VBAWin16~Win32MacVBA6#
VBAProjectstdole`OfficeuThisWorkbook| _EvaluateWelcomePage8sWorkbook_BeforeSavelSaveAsUICancelws_ WorksheetwsActive vFilename{bSaved@ (ValidateAllSheets\}Application*EnableEventsScreenUpdating!ActiveSheet%NGetSaveAsFilename
fileFilter
HideAllSheetsSaveAsf;RecentFiles9Addr
ShowAllSheetsSaveActivate|Savedd
Workbook_Open
WorksheetsVisiblexlSheetVisiblexlSheetVeryHiddenWorkbook_BeforeCloseWorkbook_SheetChangeISh_TargetFRangeModule7h(DuplicateSerialNo0xLastRoww UsedRangeȉRowsUCount0vintRowCountČInterior;
ColorIndexxlNoneboqvalidationstatusLLoop\&
LChangedValueKValueK LTestLoop
LTestValueMsgBoxRChrK~(UpdateCustomDocPropDT(se~;SheetChangeW_Defaultj
_B_var_Str_B_var_TrimmT_B_var_LeftQ_B_var_Right9 _B_var_bcJ_B_var_BoQ1SheetFoundu _B_var_sc_B_var_r
_B_var_Chr\;_B_var_LastRow_B_var_intRowCount&~_B_var_AtleasetOneItemFilled/:M
O[
@ H@ r {WJ<
rstdole>stdole
h%^*\G{00020430-C
0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE12\MSO.DLL#P 9.0 Ob Li`braryMrThisWorkbookGTisWArkboU2THB1y
B,!`""B"+BModule7G#du}7 2O"M!UO1O1J1O1OSBOKSheet2GVS@^et2G2N|dVV_25O92|m+]Uu+3o+3j+33Io
4U444R55U55@p_6666Please sheet name should be BoQNC^Please assign atleast one sheet should be BoQ1 !-P
&S`+V9|lNr_p0]eGyD||+ Invalid BoQ!!! Please download the BoQ from the Downloads section of eProc Portal zPlease download the correct BoQ from the eProcurement portal
&`ZPlease Enter the Bidder Name for the Cell B8 in the Sheet ^Please Enter the Bidder Status for the Cell E8 ZPlease Choose Option C1 or Option D1 for Row hPlease Enter the Percentage Type Option for the Row ZPlease Enter the Percentage Rate for the Row %NumberFormat!~Please Enter the Valid Data Format Percentage Rate for the Row (Please Enter the Valid Data in Quoted Percentage Rate in Figure for the Row LPlease Check the Quoted Rate for S.No LockedJPlease Enter the Basic Rate for S.No bPlease Enter the Basic Rate for atleast one Item
&1VThe Basic BoQ validations are Not complied 8 , please correct the issue VThe Basic BoQ validations are complied for R , protect the sheet and proceed further *Please Ensure that the formula for Column BA (AMOUNT) and Column BB (ONLY TAXES) =__SRP_1PROJECTwmPROJECT)SummaryInformation(,Basic_rateTax_typeED_structureED_rate SaveAsUICancelShTarget q(,ThisWorkbookThisWorkbookModule1Module1Sheet2Sheet2Module2Module2Module3Module3Module4Module4Module5Module5Module6Module6Sheet20Sheet20Module7Module7Module8Module8ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisWorkbook/&H00000000
Module=Module1
Document=Sheet2/&H00000000
Module=Module2
Module=Module3
Module=Module4
Module=Module5
Module=Module6
Document=Sheet20/&H00000000
Module=Module7
Module=Module8
HelpFile=""
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="B6B41AD6663A183E183E1D431D43"
DPB="6C6EC0ACC07FDD7FDD802380DD4156134DF6D9C1240EFB768147EB1FE0A602A5933E64B25907"
GC="22208E7A457B457B45"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=75, 75, 1237, 525, Z
Module1=200, 200, 1362, 650, Z
Sheet2=0, 0, 0, 0, C
Module2=150, 150, 1312, 600,
Module3=175, 175, 1337, 625,
Module4=125, 125, 1287, 575,
Module5=100, 100, 1262, 550,
Module6=175, 175, 1337, 625,
Sheet20=50, 50, 1212, 500,
Module7=175, 175, 1337, 625,
Module8=75, 75, 1237, 525,
Oh+'0HPhx
AdministratorDellMicrosoft Excel@J<*@N@N`՜.+,D՜.+,$HPX`hp
xMacrosBoQ1!Print_AreaWorksheets
Named RangeshDocumentSummaryInformation8#CompObj.r';KWco {
BoQStatusBoQVersion
BoQChartTypeSRTWOTSRTWTSCTWTShowSummary
FormBased
RankCSTypeCRBoQ_Ver3.0NormalYesYesYesYesNoL
F&Microsoft Office Excel 2003 WorksheetBiff8Excel.Sheet.89q |