rng

I need to count the number of rows in a non-contiguous range, such as: “C13, D17:E18, F22, G25, C29:F33” If I select those cells on my worksheet using Ctrl and the left mouse button, and then run the following code: Dim Rng As Range Set Rng = Selection Debug.Print Rng.Rows.Count...

Hi all, I am writing a script that will run once a day through windows task manager, then send out an automatic e-mail alert with the returned data. I have set variables with the message body, but the vbNewLine, vbCrLf is not working. The message is received with all the text on a single line...

I want to set the filter to second column instead of the first column. If I change .AutoFilter Field:=2 (line 47), I get "autofilter method of range class failed" error. Need help to resolve this issue Dim wsInput As Worksheet Sub SplitData_Click() Dim wsOutputA As Worksheet Dim...

I have a vba code I use to align and match column rows of data and up to about200 rows of data it's been working without any problems. However, I haveencountered a problem when using it on several hundred or thousands of rows of data. Below is the code I am using to match and align the column...

I have a vba code I use to align and match column rows ofdata and up to about 200 rows of data it's been workingwithout any problems. However, I have encountered a problem when using it on severalhundred or thousands of rows of data. Below is the code I am using to match and align the column...

I'm trying to take a snapshot of600+ different options quotes using my brokerage's RTD API, but they limit meto 100 requests at any one time.<o:p></o:p> I have a Range of cells that theRTD formulas are pasted into then once values have been generated (each cell inrange is > 0) to delete the...

Hi, I was hoping that somebody could help me. I am working on a spreadsheet ("Email") including a first block (Range B2:G10)(used as introduction, with logo, pictures,..) . Below the block of introduction is located a Pivottable ("PivotAddress1"). The Pivot table starts on line B13:G13. I...

Hi - I get VBA macro to copy data in worksheet to email body from rondebruin. But the code only copy the data and table without charts. Is there any way to copy all the data including charts? Sub Mail_Sheet_Outlook_Body()'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm...

Hello guys, i am going through a 100 rows and adding the numbers up together, it sums to a 100. Once it reaches 70, 85, 100, different actions are taken. This is pretty much a manual conditional format. My code: For i = 2 To lastRow endChecker = range("D" & i).Value + endChecker...

I'm trying to copy the results of an autofilter, with the code below but keep getting a run-time error '1004': Unable to get the SpecialCells property of the Range class. How do i fix that? thanks! Dim LR As Long Dim rng As Range With Sheet1 AutoFilterMode = False LR =...

Hi Experts, I am trying to highlight the duplicate values which is present in the column F which has the string values. I am new to VBA scripting, I am trying to use below code but it is not working. Can i also know how to select all the values in column F even though if there are some NULL...

Hi Team, Thanks for your support !! Need a help in macro. My requirement is “ I need to open a webpage à Click on submit button à Enter the Request ID à Press Enter à Need to copy the data from the text box (it may be Read only or editable option) I am able to do the function till entering the...

Hi I am trying to understand the code below but I am having difficult time to understand these lines and what they do rng.FormatConditions.Delete Set uv = rng.FormatConditions.AddUniqueValues uv.DupeUnique = xlUnique Thank you very much. Sub find_unique() Dim rng As Range Set rng =...

evening all having a bit of a problem i have some data that is exported as follows <tbody> 000 012 280 B WEBBING 000 012 499 HOSE 000 050 300 A F7M PAINT PENCIL 000 051 446 AP USB CABLE 000 051 446 Q WIR.HARN. 000 051 700 C BRACKET 000 054 635...

Hi, I have a header row with a mixture of constants and formulas; using cell formatting to mask formulae (Formula bar visible). This row is 228 columns wide, and has a fixed pattern of 3 columns with formula, 16 columns constant values x 12 The whole header range is named: Main_Formula I use...

I have a macro I need some assistance with. I want the macro to value any formulas that start with '=DBRW' as it is linked to another source. I have the following macro that works but it values out every formula. Sub ConvertSourceFormulaToValues() Dim ws As Worksheet, rng As Range For...

I have some code that is meant to allow a row or a cell in that row to be selected and the row will be deleted upon a button click. If it is the first row in the table, I just need it cleared. I am sure the code used to work, but for some reason, it has stopped working. What it does now is it...

Hello, I need to change the name of the spreadsheets in the Workbook using a "Master" list created in the same Workbook. I tried to use the VBA below but got a 400 error code. I appreciate any assistance...I feel it is something simple I just cannot figure it out. I was going to attach the...

Hi All, I need some major help haha. I'm a total newbie to VBA, started out of necessity. I need to write a function that when data from sheet 1 is inserted to sheet 2 it looks at that new data and if the cell above it is empty it moves the cell up until no empty cells remain. So essentially...

I have some code that is meant to delete a row and shift the cells up but it doesn't shift the cells up. If it is the last row in the table, I just want it to clear the contents. Sub DelSelectCostingRow() ActiveSheet.Unprotect Password:="npssadmin" Dim rng As Range Dim tbl...