rng

Hey I Need some Help with This Code the code works fine for colum "L" but i need it work on severel Colom's the Colom's i need is "L" and "U" and "AD" and "AM" and "AW" Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("L"), Target.Parent.UsedRange) Is...

I am new to VBA, please dont mind if my mistakes are blunder I am trying to send the data from userform to a sheet, where there is a id in colom "A", and this data should go to the cells in that row. i was using match and offset function, below mentioned is the code i was trying. please help...

Hi I'm trying to apply the following formatting to a user selected (via Application.InputBox) range of cells. It keeps bugging out on the "Cell.Value = Replace(Expression:=Cell.Value, Find:=".", Replace:="/")" line I'd be grateful if someone could help please. Thanks Rob Sub FormatCells()...

Hi This is the code I have: Private Sub HideFont() Dim cell As Variant Dim rng As Range Set rng = Range("Table1[Country]") For Each cell In rng If cell.Font.Color <> 1 Then cell.Font.Color = cell.Interior.Color End If Next cell End Sub What I need it...

Hi, Any ideas how can i get cell address values of EACH dates which are displayed in a range which are in Sheet1 Structure of sheet1 <tbody> A B C D E F G 1 abcd 01-01-2019 300 02-01-2019 400 03-01-2019 500 2 xyz 03-01-2019 200 03-01-2019 100...

So I have a formula in the column Max Boxes in my table, I am trying to get it to put the text in my column "Dest Loc ID" which is -6 columns from the range we are looking in. The formula in the Max Boxes column will place an EDC or WDC in the column depending on criteria in other column but I...

Hi All, I am using the below code to create partition / applying borders in range A4:L4 down till the last non empty cell whenever a value changes in Column B. Sub Test() Dim LastRow As Long LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...

Sub BO_ID_Prep() Dim rng As Range Dim i As String For Each rng In Selection i = i & rng & ";" Next rng ActiveCell.Offset(1, 1).Value = Trim(i) ActiveCell.Offset(2, 1).Select ActiveCell.FormulaR1C1 = "=LEFT(R[-1]C,LEN(R[-1]C)-1)" Selection.Copy ActiveCell.Offset(1, 0).Select...

Hello Friends, I am using the below code ( i found it on the web) to insert a border from Column A to L whenever a value changes in column B. Sub Test() Dim LastRow As Long LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Dim rng As Range...

Hello all, I'm trying to create a filter so that i can delete anything that contains "Atv", "Utv", "Duallie", and "Dually" Issues arise when those phrases are sometimes capitalized, sometimes capslocked, and sometimes lowercase. This is my first attempt with filters in VBA which does the job...

Hi, I came up with this code online, it's not doing exactly what I wanted. I need someone fix it for me. This is what I want: I want to load non blank cells from the column B into the listbox <code style="box-sizing: inherit; margin: 0px; padding: 0px; border: 0px; font-style: inherit...

Hi. I need find a text in column E and F then replace this value using Rng.Offset(, 1).Value But in column E, I need find any text like "*Cancel*" Sub FindAndReplace() 'I try adapt this code made by Fluff...

Hello, I am using a loop function to select a range of rows with x marked in two columns, i.e. with two conditions. I have tried many different things putting an And function but noting works. I highly appreciate if anyone can advise If ActiveSheet.ToggleButton1 = True Then...

Hi, I am trying this code in my excel but i am getting error. What i want to do i have 4 option button AFBB , HOMES , WOVEN ,HARDGOODS and i would like to select starting 4 Character of buttons and generate Unique ID with date but i am unable to this can you please help me? Private Sub...

Hi, I am wanting to simulate double clicking in a selected range as I have an 'almost complete macro' that only seems to work when I have double clicked in the specific cells. I have come up with this code but it does not seem to work compared to when i physically double click each cell. Can...

Hello all, I've been working on the vba code for a work project. I've done this multiple times before for similar projects but this one is slightly different. Previously there was one group of entries, with 4 specific variables that had to be entered in order for the program to be ran. This...

Hello, I need help. I found on this forum an amazing macro. https://www.mrexcel.com/forum/excel-questions/873686-find-keyword-density-rows-columns.html Sub MG11Aug55Dim Rng As Range, Dn As Range, n As Long, sp As Variant, omax As Long, R As Variant Dim K As Variant, Str As String, Lg, NoStr As...

Hello, I have a Range "Rng" that I use in a loop: Set Rng = .Range("A1") In some cases, though, I need it to be A2. What I did was Set Rng = Rng.Offset(0,1) But it doesn't seem to work. Any idea?

Hi, I have the following code that copies filtered data from one sheet to another. I use the copied data to populate a listbox on a userform: With ws .AutoFilterMode = False Set rng = ws.Range("B8:R8" & .Cells(Rows.Count, "B").End(xlUp).row) rng.Copy...

Hi please can you advise where i have gone wrong on the code below i am getting a run time error 381 invalid property array index Private Sub Workbook_Open() Dim Rng As Range With Sheets("Sheet2") Set Rng = .Range(.Range("F2"), .Range("F" & Rows.Count).End(xlUp)) End With With Sheets("Sheet1")...