Search results

Good Evening Members I am Building a user form to store my contacts.By using the user form I can edit,search,view previous or next contact or add new contact There is a command button "Add" which on clicking updates sheet with any modification made on user form.This Button works beautifully when...

Its working Great Thanks for solution

Thanks for prompt reply Nebu code is successfully copying from one visible to another visible range but destination sheet1 is showing data in reverse order ie if ID in Sheet 2 column A is 1,2,3,4 ..... then copied range is .....4,3,2,1 can you correct this Also I want to restrict copy Paste...

In Future I plan to add some data in column G onwards wherein blank rows will be hidden in both sheets hence this issue

I have a database in sheet 2 which has certain rows hidden.I want to copy this data to sheet 1 which also has certain rows hidden but hidden rows are different on both sheets. I have this macro which copies visible data from sheet2 to sheet 1 then sheet1 printout is taken but since hidden rows...

I think there is no straight ans to this issue.I have found a way by loading a column in another sheet with listbox items and then copying that range to visible cells of Sheets("Detail").Range K18:K54 This thread is closed

I have this workbook where Sheet ("OPD") has the Database Sheets("Detail") displays Data based on VLookup formula using K9 value It has userform Bloodfrm having Listbox1 which should update Sheets("Detail").Range K18:K54 with selected values.Sheets Detail has some blank rows which are hidden...

Thanks a lot for the help........:)

its Fantastic .Working Flawlessly :):):):):) I just want slight modification in following lines 'error checking If visRng Is Nothing Then MsgBox "No cells visible." Exit Sub Instead of checking if visRange is blank It should check if it is nonempty if nonempty then...

Luke Its Working Great:):) Thanks Now second part of the Question which I had Posted while starting this thread How to recall or update Sheets("Detail").Range K18:K54 visible cells from Sheet OPD Row where corresponding data matching K9 is stored ie Exactly Reverse of above code Example...

Sorry for incomplete information Sheet ("OPD") has the Database Sheets("Detail") displays Data based on VLookup formula Userform has list box which updates Sheets("Copy") Column C Sheets("Detail").Range K18:K54 Visible cells are updated from Sheets("Copy") Column C Pl Ignore Sheet 3 Its used...

I have a Prescription Sheet containing Reports List in Range K18:K54.With Every new prescription all blank rows in used range are hidden using VBA. Report List is added to visible cell in Range K18:K54 using a List Box Now I want to macro code to update Active Row in Sheet OPD with visible cell...

Thanks for prompt response from team chandoo forum

thanks lot its working fine

well you are right.Problem is with date format in visitdate and updated cell in first column. Both are fomatted to "dd/mm/yyyy hh:mm AM/PM" but cell value displays as mm/dd/yy format hence the mismatch when date is in double digit ie 10 to 31 it is displayed as "dd/mm/yyyy hh:mm AM/PM" But when...

Thank for prompt reply But Its Still not detecting duplicate value what I want is After saving a new record ,if save button is clicked again immediately with other fields unchanged it should show duplicate record so that if button is pressed by mistake it should not save the record Your code...

Private Sub CommandButton25_Click() Worksheets("OPD").AutoFilterMode = False Dim lastRow As Long Dim FoundCell As Range Dim Search As String Search = VisitDate.Value Set FoundCell = Sheets("OPD").Columns(1).Find(Search, _...

Sorry for late reply This code is still not working I have found a method by copy paste visible cells to another sheet and name that range Then set rowsource property to named range

With Sheets("OPD") Set rVisibles = .Range("A2", .Cells(Rows.Count, "A").End(xlUp)).SpecialCells(12) End With For Each rCell In rVisibles rCell.Value = Format(rCell.Value, "dd/mm/yyyy hh:mm AM/PM") Me.DateAdded.AddItem rCell.Value Next rCell I have this Database which contains...

Its working Fine.Thanks so much.....

I have a database showing visitor names in Column B and their visit date/time in Column A Private Sub ComboBox1_Change() For Each Cell In Range("A1:A10") If Cell.Value = Me.ComboBox1.Value Then Cell.Offset(0, 1)..Select End If Next End Sub .I am trying to...

Sorry Luke M. I had been out of town.There are no ongoing issues with the code provided by you. This thread can be considered as closed. THANKS ONCE AGAIN.....

THANKS LUKE M for your effort.You have made it look so simple........ your modified code is my answer and it is working fantastically. Lastly since I have posted first time on this forum , can u tell me how do I mark this post as SOLVED/CLOSED

Thanks Luke M for the response.IT IS WORKING BEUTIFULLY provided a identical text or no is present in a column. What I am looking for is exel SUBTOTAL formula as a search criteria present in a column Can you modify the code so that the string searches SUBTOTal formula in Column L.Your effort in...

I have a Excel spreadsheet which prepares the payment of visiting doctors. Entire data of a month or within two date range is selected and then Total of each Doctor is prepared using Subtotal function with page breaks at each subtotal.Centre Footer of each page is formatted to give current page...