Search results

Sheet name " Ledger " contian Col A : Party Names Col B : Dates Col C : Bill no Col D : Bill Amount userform name "Account_Ledger" Comobbox1 = Party name Textbox2 = Date Textbox3 = Bill no Textbox4 = Bill Amount i would like when end date and party name is same then nothing , otherwise above...

my userform contain TB1 = START DATE TB1 = END DATE TB3 = COMBOBOX CONTAIN PARTY NAME when search button click then data show in listbox between two date of party macro is >>> use code - tags <<< Sub Search_Data() On Error Resume Next Dim lastrow As Long Dim i As Long With...

thanks a lot

TextBox1 Show Last Date of Month TextBox2 Show First Date of Month TextBox 3 Show Current Date formula is TextBox3 = Format(Date, "dd/mm/yyyy") e.g (11/08/2021) show last date of month forumula .TextBox2 = Format(CDate(Application.WorksheetFunction.EoMonth(.TextBox3.Value, 0))...

my userform contain Textbox1 ,Textbox2 ,Textbox3 ,Textbox4 ,Textbox5 ,Textbox6 Listbox1 command button I make keydwon event in last TextBox6(Rate) when enter key is press in Textbox6 then data should be add in Listbox1 Sub TextBox_Data_To_List_Box() ' Textbox data transfer to listbox >>> use...

userform1 contain 2 combobox both combobox Style is = fmStyleDropDownList i like to show party name in combbox2 when their path code is select or when party name is select then show party code in comobbox1 now i select party code from combobox 1 then party name is show in combobox 2 but when...

sir i upload sample file

Range I2: I20 is sum range Range B2:B20 is Date Range (Contain Different date of months) TextBox3 is show result of sum for the month combobox1 contains name of the month it is use for sum of month select in combobox with the sumproduct function use in userform >>> use code - tags <<< Private...

i try to TextBox6 KeyDown Or KeyUp is Trigger then commandbutton1 click (execute macro in commandbutton1) >>> as many times <<< >>> use code - tags <<< Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyAscii Case 13 'enter key...

nice answer thanks a lot

when i double click on any item of listbox to update then only last item show in TextBoxes my code is below >>> use code - tags <<< Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim x As Long With UserForm1 For x = 1 To .ListBox1.ListCount - 1...

morethan 1 data will be add from textbox to listbox then last data of the listbox will be add to worksheet. my code is >>> use code - tags <<< Dim lastrow As Long Dim x As Long lastrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1 With UserForm1 For x = o To...

i try this code Format(CDate(Me.TextBox5.Value), "dd/mm/yyyy"),(Me.TextBox5.Text) = Sheets("Sheet1").Cells(y, 2) but it show error plse help with correct code and also when textbox5 value (contain date) transfer to worksheet then i shown in left side instead of right side...

in my userform textbox5 contain date and date format is "dd/mm/yyyy" when sheet data (Colmun B) transfer to textbox then date format change automaticly " mm/dd/yyyy" . how to correct change date format " (mm/dd/yyyy) to (dd/mm/yyyy)

when i search the first record of sheet1 in userform then it work fine but again search second record then shown message data not found. also query is if record is not found then message box show "data not found" what is incorrect in code. i attache the sample file

sir , exactly i like this answer thank very much to solve problem

my userform contain 5 textbox 5 label. l will check Two condition. 1 All Textbox are not empty and if those textbox are empty then message box show fill those textbox else macro ADD_DATA run 2 check the dulpicate entry of docuement number (i.e. TextBox1) if duplicate document number is exits...

in userform1 in textbox1 contain code for user enter only 10 digit number. but problem is when userform close then message box show textbox1 enter only 10 digit no what is incorrect in this code i attache the sample file

sir where is put this code in userfrom i put this code in userform keypress event >>> as many times You ( delta ) has noted <<< >>> use code - tags <<< Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{TAB}"...

Yes i like this thank u very much

how to move cursor in other textbox when i hit Enter Key in combbox instead of Tab Key

thanks very much

textbox 1 in userform contain only 10 digit number not less than 10 digit or not more than 10 digit do this vba macro how it work

i like when i select any value in ComboBox 1 and ComboBox 4 than rate is shown in only TextBox 1 if when select any value in ComboBox 2 and ComboBox 5 than rate is shown in only TextBox 2 if when select any value in ComboBox 3 and ComboBox 6 than rate is shown in only TextBox 3 but in my...

what is wrong in code >>> use code - tags <<< Private Sub CommandButton1_Click() Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheet2.Range("A2:A8"), Application.WorksheetFunction.Match(Me.ComboBox2.Value, Sheet2.Range("B1:E1"), 0), 0) End Sub I attach the...