Urgent Help Plz

[jaadoogar]

dear friends maine excell main school challan system banaya hai.
jis main do sheets hain ek challan ki jis mian chalan banaya hai or dosri
students record kis jis un ki admission tution or areas waghaira hain.
main chahta hon k students record wali sheet main se jis jis student k status per
yes lagaon us ki admision fees, challan k admision fess main ajae or tution fees, tution fees main ajae or arears, areas main ajaen. yani jo kuch bhi hai woh challlan wali sheet main ajae.
maine screen shots add kiye hain. agar koi dost help ker sakta hai tu mehirbani hogi.

agar koi friend is ki file lena chahy tu mjhe PM ker de main copy send ker donga is file ki.
thanks

[syar]

salm:

1. Chalan Form main aap student k no kis cell main enter karain gai?
2. Agar Possible ho tu file snd kar dain.

thanks

[syar]

salam::

Suppose agar aap b9 main student ka Sr. No. enter karte hain tu try follwoing

Admission Fee k leye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$h$2:$h$100))

Annual ex kleye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$i$2:$i$100))

Tution fee k leye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$j$2:$j$100))

aap akhri condition main column ka name badalte jain.

Leekan agar aap chahte ho k sirf aik he formula likhon aur is ko copy down aur across karne par aap ko matloba result mil jae tu is k leye zaroori ha ka aap k sheet 2 main column ka name challan form main name aik jaise hon. Kia aap aisa kar sakte hain? agar yes then reply.

regards

[jaadoogar]

salam::

Suppose agar aap b9 main student ka Sr. No. enter karte hain tu try follwoing

Admission Fee k leye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$h$2:$h$100))

Annual ex kleye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$i$2:$i$100))

Tution fee k leye
=SUMPRODUCT(--(Sheet2!$A$2:$A$100=Sheet1!B$9),--(Sheet2!$c$2:$c$100="yes"),--(Sheet2!$j$2:$j$100))

aap akhri condition main column ka name badalte jain.

Leekan agar aap chahte ho k sirf aik he formula likhon aur is ko copy down aur across karne par aap ko matloba result mil jae tu is k leye zaroori ha ka aap k sheet 2 main column ka name challan form main name aik jaise hon. Kia aap aisa kar sakte hain? agar yes then reply.

regards

syar bhai main apko file kaise send karon?
meri posts bhi itni nahin hain k PM ho saky. ap batain tu main ap ko file send ker don challan wali
thanks

[syar]

aap apni file jab reply karte hain tu go advance k option m ja kar attached kar dain.
sirf challan k do example aur sheet 2 par 10 rows hon tu bohat acha ho ga.

kiya aapne mere diye howe formula try keye. aap e21 main 1st, e22 main 2nd, e23 main 3rd copy kar dain

regards

[jaadoogar]

aap apni file jab reply karte hain tu go advance k option m ja kar attached kar dain.
sirf challan k do example aur sheet 2 par 10 rows hon tu bohat acha ho ga.

kiya aapne mere diye howe formula try keye. aap e21 main 1st, e22 main 2nd, e23 main 3rd copy kar dain

regards

dear maine sheet attach ker di hai.

[syar]

Bhai Aap sab se pehle merge cell kam se kam istimal karain kiyon ka ye aap ko mushkilat main dalain.

Dosra solution jo main ne deya ha us k leye main ne dosri sheet main column ka nam aapki challan ka name ki tarah kr deye hain ka dosra formula kam karain aur aapko bar bar ranges tabdel na karne parhe like (solution1). Ye formula array formula ha is ko enter karne k leye "control+shift+enter" aik saath press karain.

=INDEX('std rcrd'!$H$2:$N$19,MATCH(1,IF('std rcrd'!$C$2:$C$19="yes",IF('std rcrd'!$A$2:$A$19=Challan!J$8,1)),0),MATCH(I20,'std rcrd'!$H$1:$N$1,0))

[syar]

Dosra aap numbers ko words m lekhn chahte hain jo ka macro k bagheer mumkin nahee.
Main ne aap ki sheet main tocopy kar de ha leekan aap k elawa kisi aur ko zaroorat ha tu ye procedure follow karain.

press ALT+F11
1 NEW WINDOW OPEN HO GI IS MAIN
INSERT K MENU MAIN JA KAR "MODULE" PAR CLICK KARAIN
AUR YE MACRO COPY KAR DAIN.

Option Explicit
'-----------------------------------------------------------¬------
Function SpellNumber(ByVal MyNumber, _
Optional incRupees As Boolean = True)
'-----------------------------------------------------------¬------
Dim Crores, Lakhs, Rupees, Paise, Temp
Dim DecimalPlace As Long, Count As Long
Dim myLakhs, myCrores
ReDim Place(9) As String
Place(2) = " Thousand ": Place(3) = " Million "
Place(4) = " Billion ": Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupees amount.
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
myCrores = MyNumber \ 10000000
myLakhs = (MyNumber - myCrores * 10000000) \ 100000
MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000
Count = 1
Do While myCrores <> ""
Temp = GetHundreds(Right(myCrores, 3))
If Temp <> "" Then Crores = Temp & Place(Count) & Crores
If Len(myCrores) > 3 Then
myCrores = Left(myCrores, Len(myCrores) - 3)
Else
myCrores = ""
End If
Count = Count + 1
Loop
Count = 1
Do While myLakhs <> ""
Temp = GetHundreds(Right(myLakhs, 3))
If Temp <> "" Then Lakhs = Temp & Place(Count) & Lakhs
If Len(myLakhs) > 3 Then
myLakhs = Left(myLakhs, Len(myLakhs) - 3)
Else
myLakhs = ""
End If
Count = Count + 1
Loop
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Crores
Case "": Crores = ""
Case "One": Crores = " One Crore "
Case Else: Crores = Crores & " Crores "
End Select
Select Case Lakhs
Case "": Lakhs = ""
Case "One": Lakhs = " One Lakh "
Case Else: Lakhs = Lakhs & " Lakhs "
End Select
Select Case Rupees
Case "": Rupees = "Zero "
Case "One": Rupees = "One "
Case Else: Rupees = Rupees
End Select
Select Case Paise
Case "": Paise = " and Paise Zero Only "
Case "One": Paise = " and Paise One Only "
Case Else: Paise = " and Paise " & Paise & " Only "
End Select
SpellNumber = IIf(incRupees, "Rupees ", "") & Crores & Lakhs & Rupees &
Paise
End Function
'-----------------------------------------------------------¬------
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
'-----------------------------------------------------------¬------
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'-----------------------------------------------------------¬------
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
'-----------------------------------------------------------¬------
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function
'-----------------------------------------------------------¬------
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
'-----------------------------------------------------------¬------
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function


IS KO ISTIMAL KARNE K LEYE

=SpellNumber(cell reference)
=SpellNumbe(a1)


regards

[jaadoogar]

Bhai Aap sab se pehle merge cell kam se kam istimal karain kiyon ka ye aap ko mushkilat main dalain.

Dosra solution jo main ne deya ha us k leye main ne dosri sheet main column ka nam aapki challan ka name ki tarah kr deye hain ka dosra formula kam karain aur aapko bar bar ranges tabdel na karne parhe like (solution1). Ye formula array formula ha is ko enter karne k leye "control+shift+enter" aik saath press karain.

=INDEX('std rcrd'!$H$2:$N$19,MATCH(1,IF('std rcrd'!$C$2:$C$19="yes",IF('std rcrd'!$A$2:$A$19=Challan!J$8,1)),0),MATCH(I20,'std rcrd'!$H$1:$N$1,0))

thank u very very much dear syar.
ap ny meri buhat help ki is k liye ap ka shuker guzar hon.
thank u again.
may God Bless You. Aamen.

[A_R_MANI.....]

sorry

[Jaffary]

tHANX DEAR

[Nawazish88]

Bhai koi bataega k EXCEL small words capital main kese convert hunge??
Example:
(nawazish) ise capital main convert krne ka formula bataen..thanks