Write the below code user the button click event.
ActiveWorkbook.SaveAs Filename:="FilePath/Filename", FileFormat:=xlXMLSpreadsheet, ReadOnlyRecommended:=False
Hi Lesley,
Once you do the saveasworkbook just delete all the textbox and buttons and save the workbook. below is the code to delete the activex objects.
Sub delobj()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
obj.Delete
Next
End Sub
Regards
Matheen
Hello Narayana,
I need one help from you, i have some TIFF documents i need to capture text from that TIFF files, i tried using OneNote but unable to get the correct result. I am using excel 2010. Could you help me out on the same, it is nothing but i am looking for OCR.
Regards
Abdul Matheen
Hi,
Instead of drive letter you give the server address, when you map the share drive to your system you give the server address like \\server\sharefolder give directly that address in the code it will work fine irrespective of drive letter.
Regards
Abdul Matheen
Hi,
Click on record macro and goto any cell insert row and copy down the above row. Then see the code is generated in the VBA editor, just change range("") to activecell.
Regards
Abdul Matheen
Thanks for your response.
Actually i am looking a excel dashboard to be deploy on web site. Where my excel will work as source data and all the functionalties like button and dropdown should work in web site, i am aware of sharepoint but i want to deploy on web intranet or internet.
Regards...
Hello,
I need your help on vba, i have created a dashboard with some ActiveX controls like dropdown and command buttons which make the dashboard interactive. When i do a save as web page the ActiveX controls are not working on web. I need to publish dashboard on web with all the objects...
Hi,
You need to create variable to store all the workbook names and put the variable in loop and for the source workbook you can "Thisworkbook" function.
Regards
Abdul Matheen
Hi Tobias Ebuku,
The formula is in the conditional formatting, go to home tab there you will find conditional formatting, there go to manage rules. There you find the formula.
Find the attached picture.
Regards
Abdul Matheen
Hi,
You can give the conditional formatting for that cell, through conditional formatting you can set the reminder like in the attached work book i have given when in the sheet1 F5 date matches with the current date it will turn to RED color. Check entering date in sheet1 F5 cell.
Regards...
Hi James,
You can use =LARGE() function instead Max, you will get 1 or 2nd etc number in the range.
Example
1
2
3
4
=LARGE(A1:A4,2) = Result = 3
in above example the 2nd largest is 3.
Regards
Abdul Matheen
Hi,
SQL not recognise the "&" hence it is giving an error try using "+" instead "&".
Eg:
strquery = "Select number + name as numname from table_name"
Regards
Abdul Matheen
Hi Ben,
Do you need to auto generate the job number? If so then put the below code in the submit button.
Code:
<Sheet name>.<Range name>= <Required Number>
If you need more help then send me the sample work book I will do it for you.
Regards
Abdul Matheen
Hi Shakeel,
I tried with same code from my end and i didn't received any error. If possible could you send me the error message what you are receiving.
Regards
Abdul Matheen
Hi,
The macro will create new sheet with sequential number, hence you should not specify as sheet1 instead you have mention as activasheet. The macro creates a new sheet and activated.
Remove these 2 line
Sheets("sheet1").select
sheets("sheet1").name="Pivot1"
put the below code...
Hi Deepu,
Find attached macro as per the requirement, download the attached workbook and save in the same folder where you save the individual workbooks and click on "Run Macro!!!" button.
Regards
Abdul Matheen