Thank you my dear for this link.
Printable View
Thank you my dear for this link.
Dear sir,with my regards ,First, I apologize for the tardiness of this observation to show now ( because my friend who i have given him this program like to use it now ),second,i hope you shall help me again to solve this problem.
The problem is : in (main) sheet of the invoice ,if i update the data mentioned in columns (38-39) i got a mistake in (materials ) sheet (out) scheduale ( i mean the invoice accept only (20) units).
I ask you kindly to take a look for this problem and tell me hoe to solve.
Many thanks in advance.
Please attach your workbook so we can see where you are up to?
Dear sir,with my thanks for interest,i enclosed herewith the invoice with signs on the columns which caused the problem.
i ask you kindly to modify the code to : accept the two signed columns in material sheet ,or cancel them from the invoice without any effects after updating.
my appreciattion .
Dear experts,i am so sad to see my thread passed to second sheet without any reply.
I hope you shall take a look with my regards.
Dear sir,with my apology for the insistence,is this delay in replying means deleting the matter.Please let me know.
Dir expert,please consider my above request as cancelled to try sending the problem to another forum with my apology.
I'm sorry to read that you believe that you need to relocate this issue to another forum, however that is your right to do so. I trust that you understand that those people who operate here do so on a voluntary basis. We attend here when we are able to do so, despite the workload our own personal lives have. I wish you well in your endevours
I had a quick look at your workbook and could see that apart from the code provided by MaximS, you don't seem to have added, amended anything else as an alternative to that which has been currently offered. Even when you were given a link to an section of code in the KB, you haven't tried to add it to your workbook. Perhaps in hindsight you may have been better off getting a professional programmer to assist your issue.
By all means continue the thread here if you wish, but you will need to be patient with your requests.
Dear sir,with my appreciation,shall i wait or leave please.
I hope (if there is any light in the sight) to have the solution before 28/12 with my regards.
Have a look here at the following code. It is very similar to that which we have in the KB as was indicated in a post earlier.
Dear sir,i didnt see any code with your message, please.
My apologies
[vba]Option Explicit
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
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 cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function
[/vba]
This code is untested, so open a new workbook, type Alt F11 to go to the VBE, click Insert Module and copy this code into the module. Save then return to Sheet1, in cell A1 input a number, then in any other cell type =Spellnumber(A1)
Dear sir,with my appreciation to your interest,my problem is not in this code,the problem is in ( main ) sheet columns (38,39)when i register the data in ,and transfer them by clicking the update button ,the trouble will appear in (materials) sheet . i mean some modify in the code will solve
thanking you
I regret that I cannot assist at the moment as I have limited PC access and no Excel. I suggest you isolate your problem and post it as a new question. That is likely to get a quicker response
Ok sir and many thanks