arr

Sub Steps() Dim col(1 To 2) As Variant Dim arr() As Variant Dim x As Long Dim LR As Long col(1) = 2 col(2) = 16 Application.ScreenUpdating = False For i = 1 To 2 For x = 1 To 2 With...

Hello all, I am stuck on an autofilter issue. I am trying to add criteria to an existing filtered column named "Interval". I have an Excel table with a column containing string or numeric data (see table below). I need to filter and return all records that are contained in the array (note I...

HI, I am trying to loop through an array of words, It loops through but doesn't do anything, I know I am probably forgetting something, See code Dim Rng As range, c As Long, Arr As Variant, I As Integer ' Arr = Array("IPN", "VPN", "PartNumber", "Part") For i = LBound(Arr, 1) To...

Hi, Is it possible to shorten this code as I have a hell of lot more I need to remove. My data will consist of 0.001 to 0.999, 1.01 to 9.99 and 1 to 50 with a specific word after which may or may not have a space, Any help would be greatly appreciated Dim RngSelection, RngUsedRange...

I have a snippet of code below which will assign a range to an array, all works well: Dim rngAB As Range Dim arr() As Variant Set rngAB = wsWeights.Range("AB4:AB" & wsWeights.Cells(Rows.count, "AB").End(xlUp).Row) arr = rngAB However, when they result of the .End(xlUP).row is 4 which makes...

I wrote the following function to concatenate a range of cells. It works fine, but I don't understand -- if a range is 1 row & multiple columns it will go to the final "Else" and will be transposed two times. I arrived at this via trial and error and was pleasantly surprised it worked, but still...

Good evening! I have some code: Sub sqbrackSub() Dim arr() As Variant Dim x As Long x = Cells(Rows.Count, 1).End(xlUp).Row arr = Cells(1, 1).Resize(x, 2).Value For x = LBound(arr, 1) To UBound(arr, 1) arr(x, 2) = sqbrack(CStr(arr(x, 1))) Next...

Hello! I have some macro: Sub bracketsSub() Dim arr() As Variant Dim x As Long x = Cells(Rows.Count, 1).End(xlUp).Row arr = Cells(1, 1).Resize(x, 2).Value For x = LBound(arr, 1) To UBound(arr, 1) arr(x, 2) = brackets(CStr(arr(x, 1))) Next x...

Hello all MrExcel experts, I try to fasten my vba code posted below, already use screenupdating false function, empty cache. Currently I need 3 steps to use LinEst function for an Arr: Step1, write Arr to Range Step2, get Range Step3, use Range in LinEst I want to know, can Excel VBA LinEst...