I cant the below code to work as it fails if I do not include the activate/select instruction in the code. Portion highlighted in red are the statements where it fails -
Sub data_1min()
rNum_1min = Sheets("data_1min").Cells(1, 1).Value + 1
Sheets("data_1min").Cells(rNum_1min, 2).NumberFormat =...
Hi
Anyone
Can you get the Row Number on basis of Index of Combolist ?
The reason is that when in Combo1.Change() event
when i type the data in combo change i get respective values of its data in text boxes but what happens is
the same value gets overwritten in the Defined First row of the...
Hello All,
I am trying to change my VBA codes to make more user friendly by giving the users ability to determine the start and finish of the ranges. The code that is already working is like this:
Sub Test()
Worksheets("Express").Activate...
Private Sub CommandButton3_Click()
Dim r As Long
If ComboBox1.Value <> -1 And ComboBox2.Value <> -1 Then
ListBox1.Clear
With Worksheets("list").Range("A1:A30000")
For r = 1 To .Rows.Count
If ComboBox1.Value = .Cells(r, 1).Value And ComboBox2.Value...
Hi,
I am new to this forum & hoping somebody can save my day :) (I also have close to zero experience with macros).
I have a macro which goes like this:
Case "TA"
Sheets("Conversion").Cells(a, 2).Value = "20100802;xxxx
Sheets("Conversion").Cells(a, 2).Value = "20100803;xxx...
Hello, I have this code (attached bellow), so I enter data in userform text, that is transfer to a excel sheet database, then when I enter in combobox data its populate according to data on database ( Sheet16 ) all names, phone numbers, insurance info, Sometimes I need to update information on...
Hello
I would like to convert a string with a decimal value >100.00000, which are in units of µM to a string with an exponential value, > 1.00E-04.
For example:
<colgroup><col></colgroup><tbody>
>100.000000
>100.000000
>100.000000
>100.000000
>100.000000
>100.000000
>100.000000...
Hi,
My worksheet does varying things which I have managed to get to work well.
My only issue is getting the correct data into the correct amount of rows, I have managed to get the first 2 columns correct but then populating another column with data from a userform and adding the date is what I...
I have the following code which starts off by pasting into cells A1 through B6 the following data. All of the data pasted into column "A" is numeric. I ran the macro recorder and then copied and pasted that into the bottom of my code. When it gets to the line...
HiFolks,
I'm trying to create a userform that will checkto see if information related to the current row had already been recorded to a different worksheet (Worksheet1 is the active one, worksheet3 holds the information),and pre-populate the checkmarks on a multi-select option listbox with...
Hi Friends,
I'm new to VBA and trying to create a macro for sending mails from Outlook using the details in a excel sheet. It works fine. However, I need the code to select the 'From Address' from the excel sheet, but it's not working. PLease help.
Set OutMail = OutApp.CreateItem(0)...
Hello
I have this working code that calculates from row 2 to 1000 on column L and skips 4 columns to P then T and so on... skipping 4 columns at a time up to column 176 (PT) but I see it is taking too long to calculate
Here is the code that works vertically now
Sub CALC2_()
Dim rng As...
Hello all. Here I am again in the need of your help.
I have a VBA that I use to set values in my excel model. Each of those values are linked to a cash-flow schedule that I use to calculate IRR (using XIRR). The same VBA that set the values of the cash-flows also writes the resulting IRR in one...
I am in the middle of a rather Large Build.
I was tasked with adding another pull to the tool. For each Data pull, I have 147 networks that are being pulled. The macro I have right now, will pull the data once, place it in a sheet, use a combination of 26 formulas to grab the Data needed from...
Hi so I run this macro in my workbook now, but I need to change this now to look into a different workbook called "Time" sheet name --->Sheets("Name Correction"). I need to add to all of these below to look at this sheet name but in a different book called Time--> Sheets("Name Correction"). Any...
Can someone help me , I am getting error with this 2nd line of code
If Sheets(1).Cells(x, 2).Value = Sheets(2).Name Then
Sheets(1).Cells(x, 4).Value = Application.WorksheetFunction.VLookup(Sheets(1).Cells(x, 4), Sheets(2).Range("E6:F30"), 2, False)
Else
Sheets(1).Cells(x, 4).Value...
Hello all, I'm new here and need a bit of help please (new to VBA Excel)
I'm trying to get the following code to work but cant work out how to go from one stage to the next
Private Sub Worksheet_Change(ByVal Target As Range)
'First name entry (cell D), time & date auto entered (cell A & B)...
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.