HI Shahin,
Try the array to get the last index.
Sub Data_scraper()
Dim IE As New InternetExplorer
Dim ieDoc As HTMLDocument
Dim wdArray() As String
With IE
.Visible = False
.navigate...
Hi,
You need to create a new instance of Excel for this. Once your Macro is running on Excel, go to start, run and type in "Excel" to open a second instance. Open your other workbooks on the 2nd instance.
Hi Asparagus,
I am not very clear what exactly you want here but you can try a trick of saving True or False on a cell somewhere on your Excel workbook. By default set the cell value to False and check this before sending an email . when it is open for the first time, since its False send the...
Hey,
Replace Txtuserfree with your own text box name what you have on the form. Also, ignore that "concatenate the text" term here as I was asking you to add all your checkboxes in the way I have done these lines
If CheckBox1.Value Then strclipboard = strclipboard & CheckBox1.Caption &...
Hi Grumpy88,
Try the below code. This will let you grab the string data and puts it on the clipboard.
Remember, you will have to add a reference to your VBA project, go to the Tools menu in the VBA editor and choose the References item. In the dialog that appears, scroll down the list and...
objFolder.self.modifydate should fetch you the modified datetime of the folder. Check if objfolder is nothing after you set the folder. If its nothing then exit the sub
Found this code on web, but have changed a bit for your need.
Copy this UDF code to your workbook module and use as a function on your Excel cell. By default the image fits to your cell otherwise you can specify a range as well where you want to expand your image.
Public Function...
Hi Goslings,
There is a very good explaination of creating the charts with dynamic range of values. Check this out.
I hope this is what you are looking for
http://chandoo.org/wp/2009/10/15/dynamic-chart-data-series/
Hi Wilco,
Use Mike H's idea to select all the datavalidation cells in the Excel worksheet and add the Conditional Formatting for all the cells.
Choose all DataValidation Cells
Conditional Formatting -> Format only Cells that contain -> Format only cells with "No Blanks"
This should show...
Hi Goslings,
What are you trying to achieve here? Do you want these 3 charts to get automatically change when a new row of data is added? or do you want a new chart to be added with a new row?
Hi Deb,
Innovative!!! keep bringing more and more.
How about adding the weights(datalabels- 3D polygon shapes) on the weighing scale plates. That should make it look more realistic.
Hi Arul Govind ,
Add the below line of code after the FOR statement. Activate the sheet before you paste the values. This should work fine.
wks.Activate
Your code should be
Public Sub PASTEDATASELSHEET()
'PASTE DATA IN SELECTED SHEETS
Application.DisplayAlerts = False
Dim wks As Worksheet...
Hi Nagovind,
I am unable to figure out the issue you have. I tried the macro in each sheet and it works.
1) Do you mean grouping the sheets and then run the macro?
2) Do you want to run this macro on all the sheets in the work book? If so, you will have to change the line of code (for loop to...
Hi Jack,
As you say the file works fine on a different laptop, its something on the PC causing this.
As you check for the XML under Manage addins, also select Disabled Items and click go. Check if any addins/files are disabled over there. If so, select all and enable those.
1) I have noticed...
Brilliant!!! Glad to hear that the Idea worked.
Also remember to have the menu visible=False on the Worksheet_SelectionChange event, just incase if the mouse move is too fast and the Image1_MouseMove doesn't trigger. This ensures the menu go off when you are out of the shape and before doing...
Hi Chirayu,
I have a restriction to upload the file and hence cannot do that. I will try my best to explain what i thought.
Shapes for sure will not hold any events. We need Activex controls (button or an image) to capture the mouse move (hover) events. So, for your need we require 2 activex...
Hi Chirayu,
Make me understand better!!!
Is this image you are placing on the Worksheet and mouse over it should show/hide the menu? Image Activex Control does have the mouse move event to make it work as hover. You can track the event arguments (X & Y) to determine the cursor position and...
Hi Andrei,
There seems no built in way to prompt the replace option window using the ExportAsFixedFormat command. However, you can validate it by checking the existence of the file before you export it. There is a way described in the below link. Please go through and let me know, if you need...
Hi Rahul,
Check your Excel macro security settings. It could be set to high security, which generally disables the macros to run.
Before that, please follow the new joiner's link on bobhc's post. Thanks.
Hi Andrei,
I have revised your code to resolve both the issues. Please check and let me know, if you need any other changes with this.
Sub savetopdf()
Dim strFilePath As String
s = Range("S3").Value
v = Range("D10").Value
On Error GoTo errCheck
strFilePath = GetFolder()
If Not...