Posts by h

Thank u very much thomach

ColumA ColumB

i have problem in this code, the integers in columB do not appear correctly
i tried to use this code to first check if A1*.005 is between 0---.5 then put
b.value =

Quote

Sub Tax4SalesTax()
Dim c As Range
Dim b As Range

For Each b In Range("B1:B5")
For Each c In Range("A1:A5")
Select Case c * 0.005
Case 0 To 0.5
b.Value = 0.5
Case 0.5 To 1
b.Value = 1
Case 1 To 1.5
b.Value = 1.5
Case 1.5 To 2
b.Value = 2
Case 2 To 2.5
b.Value = 2.5
Case 2.5 To 3
b.Value = 3
End Select
Next
Next
End Sub

Display More

i appreciate any help

Thankx a lot Andy Pope

That is what is needed exactly

My TextBoxes are on userform

Quote

TextBox1.value=CDble(TextBox2.value)- (CDble(TextBox3.value+TextBox4.value))

i used both ways Clng and CDbl.......
i just put an integer in TextBox2 and TextBox3 and 4 to see an integer in TextBox1 on the userform...........but result was seen in TextBox1 that is placed on the userform

any idea why
yours

it did not work Dave

any idea

Thankx Dave

Hi

Quote

TextBox1.value=TextBox2.value- (TextBox3.value+TextBox4.value)

how to make this works in a code?

And the TextBox1 should show the result of the formula........

yours
h

yes Dave

I do mean

Quote

IF IsEmpty(Target.Value) Then

Hi
when i press the enter key, i want an event happened...
my code as follows works fine
the cod is:

Quote

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("C2:C25")) Is Nothing Then
Target.Offset(1, -2).Activate
End If
End If

End Sub

Display More

i tried to put this part in my code, but it does not work.

Quote

If enter key is pressed then
IF Empt (Target.Value) then
Target.offset(1,-2).Activate
end if
end if

could any one pls help improving the part i am tring to add
yours
h

Hi

is there a way to print a sheet page that has background ....

i tried Format>sheet>backgroung and insert picture............but .....

your kind help is highly appreciated.....

yours
h

Hello all

I have several items.....i want to build a combobox on userform, so that i can choose an item from the drop-down combobox which was bult on the userform.....cuz i need it on userform not on excel sheet

i appreciate any kind of help and direction

yours
h

Hello all

I have a master file (1.xls) that other file reads from it using
='[1.xls]OrderForm'!$J$10

i want to save the master file giving it name so to archive the info in another file and keep the master file as it is
so when i save as the master file giving a different name, then the connection formula changes to read from the saved as file which became a different file and not the master file.....the formula becomes ='[new named.xls]OrderForm'!$J$10

i wnat to save as the master file giving a name and keep the sub file reads from the master file not the new named file......

Thank u 4 your help
yours
h

Hello, all

could u pls tell me how to write different valus if i do choose a value that is not 12 or 25 or 50 or 100...i.e. if i choose 200 (not of the cases) then i want to write any numeric value in the combobox (no strict values).......how to make this in the code................

Private Sub UserForm_Initialize()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnEvaluation As Range
Dim vaList As Variant
Dim c As Range


Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("OrderForm")


With wsSheet
For Each c In Range("F19:F21")
If c.Value <> "" Then
'c.Offset(1, 0).Select
Set rnEvaluation = c '.Range("F28")


'Here we assume that we use a datavalidation in range A1.
Select Case rnEvaluation
Case 12: vaList = VBA.Array(1, 2)
Case 25: vaList = VBA.Array(3, 6)
Case 50: vaList = VBA.Array(8, 15)
Case 100: vaList = VBA.Array(20, 40)
End Select


With Me.ComboBox1
.Clear
.List = vaList
.ListIndex = -1
End With
Else
Exit Sub
End If
Next
End With


End Sub

yours
h

ok got it know

pls do accept my apology again

h

ok Supervisors

ok guys.................i do apologis..........

donot know about it.....and donot know how to use code tags..and would u pls tell me how to post cods using tags i cannot understand how to use it from the page u sent me David

yours
h

Hello,

could u pls tell me how to write different valus if i do choose a value that is not 12 or 25 or 50 or 100...i.e. if i choose 200 (not of the cases) then i want to write any numeric value in the combobox (no strict values).......how to make this in the code................

Private Sub UserForm_Initialize()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnEvaluation As Range
Dim vaList As Variant
Dim c As Range

Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("OrderForm")

With wsSheet
For Each c In Range("F19:F21")
If c.Value <> "" Then
'c.Offset(1, 0).Select
Set rnEvaluation = c '.Range("F28")

'Here we assume that we use a datavalidation in range A1.
Select Case rnEvaluation
Case 12: vaList = VBA.Array(1, 2)
Case 25: vaList = VBA.Array(3, 6)
Case 50: vaList = VBA.Array(8, 15)
Case 100: vaList = VBA.Array(20, 40)
End Select

With Me.ComboBox1
.Clear
.List = vaList
.ListIndex = -1
End With
Else
Exit Sub
End If
Next
End With

End Sub

yours
h

Hi all

any idea on how to disable function wizard in formula bar ?

yours
h

ohhhhhh, Dennis Thank u

it fits so far........I will put it in my event code and check

regarding the ExcelFix, so far so good

yours
h

ok Dennis

i deleted the datavalidation, but when so, i could not drop down my list using combobox........of course the code needs to be adjusted.

in your free time, when u adjust the code, pls send to me

yours
h

Thankx 4 your quick reply
(by the way Dennis, i bought ExcelFix just this mornning......)

i have no problem building userforms, but

could u pls just give me an idea on how to build a drop down list in a userform

your help is highly appreciated
yours
h