addr

I had some help with this recently and its been working great until now! I have just tried it again and have hit a snag - using the code below it is successfully deleting all but 'Anglia' which is being replaced with #N/A but the rows remain. Dim Addr As String Application.ScreenUpdating =...

Hi I'm using the below bit of code: bk.Sheets(1).Range(addr).Value = Evaluate(Replace("IF(@<>""APPLE"",FALSE,@)", "@", addr)) addr is the range I'm searching through using xlUp. I'm trying to get to the above to work whereby it will find "Apple" anywhere in the string in the cells as its...

Hello. May somebody help me with how to do this in Power Query. I'm using Excel 2016. I have the following 2 input tables. <tbody> TABLE 1 TABLE 2 DESCRIPTION VALUE PREFIX CODE ID 0 7235 ABX1 NAME JFMSC 3553 POWQ TYPE UHELQ 7459 UWEER DFRUL F4 10012 ABX1...

Hello to all, I'm new with Pivot Tables, DAX formulas and I want to know if it is possible to get the output desired with PT, Power Pivot, DAX etc. I'm using Excel 2016. This is my input Table: <tbody> DESCRIPTION VALUE STAGE 1 ID 0 NAME JFMSC TYPE MLRR DFRUL P1 ADDR 1001 RRUL...

Hi, I hope someone can help me with this code. I’m trying to make it paste the information to summary sheet and then copy the same information from other worksheet. There are 15 worksheets in one workbook. Here is my code. Thank you in advance for your help. Sub SearchForString() Dim wsSource...

I have group number and need to validate the letter "A" at the end and if doesn't exist need to put in. I currently us this code to rename and want to add a validate if the letter A is at the end then rename to B. Dim Addr As String Addr = "A2:A" & Cells(rows.Count, "A").End(xlUp).Row...

Hi Experts I have found numerous examples of how to convert ranges/selections of cells to UpperCase, LowerCase & InitalCaps) by using a loop. Although it is much fast to have it done using the formula here: [$G$10:$G$20] = [INDEX(UPPER($G$10:$G$20),)] question: How can I use the same formula...

<colgroup><col></colgroup><tbody> Dim Addr As String Addr = Range("C2", Cells(Rows.Count, "C").End(xlUp)).Address Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""BLR"",@)),""#N/A"",@)", "@", Addr)) Range(Addr).SpecialCells(xlConstants, xlErrors).EntireRow.Delete </tbody>...