instr

Using the following code Sub LoopCells() Sheets("RawData").Select Sheets("RawData").Activate LRApproved = Cells(Rows.Count, "H").End(xlUp).Row LRsource = Cells(Rows.Count, "G").End(xlUp).Row For Each approvedcell In Worksheets("RawData").Range("H2:H" & LRApproved).Cells 'Approved stores entered...

Hi There I am using InstrRev to extract items from around 200,000 cells in Col A. The problem is that the macro takes around 3 hours to run. I am relatively inexperienced in VBA so I was wondering if there is a way to make the code run faster. Example cells in Col A are: ADMIRATION SYBN...

Hey all, This function: Mid( text, start_position, number_of_characters ) won't help if I want to extract between two delimiters like an & and &W: abc def & abc xyz &W abc For example: pos = InStr(Range("A" & i), " &W ") pos2 = InStr(Range("A" & i), " & ") main_name = Mid(Range("A" &...

Hello! I am trying to write a function that will keep the text matching a search with wild cards. The text in a given cell is structured as follows: Cell A1: 0001: greenlight go, 0002: red car, 0003: monsterblue Cell A2: 0006: pink thing, 0076: applered I now want to search for the word red...

Hi, I have a table called SQLTbl, keeps all SQL of my reports Field Name Value QueryCode: D-X1 QueryName: EmployList query SQLQuery: SELECT empno,ename,job.......... I would like to pulls only string/tables values between "FROM" clause and "WHERE" caluse Eg:- Quote: <TABLE cellSpacing=0...

Hi, I have a table called SQLTbl, keeps all SQL of my reports Field Name Value QueryCode: D-X1 QueryName: EmployList query SQLQuery: SELECT empno,ename,job.......... I would like to pulls only string/tables values between "FROM" clause and "WHERE" caluse Eg:- So, from the above query...

Hello folks, I have this code that compiles and runs with no errors but nothing happens. I manually do it and it works! Sub fb34hunt() Dim I As Integer Dim J As Integer Dim K As Integer Dim L As Integer Dim C As Integer Dim S As Integer Dim result As Long Dim A As String A =...

I am writing a macro that colors the entire row based on one cell's contents in that row. It works when I match the entire cell contents using indirect Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=INDIRECT(""C""&ROW())=""[Ready to run] """...

Hi All, In an Access table, I have a field called "CaseNote" the type of field is text. This field meant to keep only Numeric values but some how I have found some values keep String values like "A", "M" or others , normally in starting used as prefix Example M234343 But some time in middle...

Hi All, In VBA I need to have a code which shows a number with the following format: ##.##.#### This must replace the Find.Spec formula, which is not available in VBA and I can not get the InStr function working with wildcards. See example of the current status below. I now have the...

Hi, I'm having a nightmare with a VBA problem and wondered if any geniusses out there would be able to help me! Basically I want to compare 2 lists of names from different sources but both are in different formats. One list has the format: First name, Last Name (e.g. Peter Stevens) the other...

Hi All, I have a query in which there are 10 fields that contain text which I want to convert into integers. I want to take all of the numbers to the left of the "." (each one has a format of "xx.0bp", however it could also be "xxx.0bp"). I used the formula...