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...