xlpart

This used to be quite fast, nothing has changed except software updates and office updates. now using business office 365 standard stuff set including Application.Calculation = xlManual Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False...

Hi Folks, I have a script that copies ranges (columns) of data from one workbook to another. It copies a column of Dates in format MM/DD/YYYY and I'd like to convert that entire column to long integer. So here is my code that copies the columns over: Dim nmary As Variant, sh1 As Worksheet...

Hi There, I have a code that allows the user to first select a column by choosing header name listed in ComboBox44 and then enter text to search in TextBox1 and displays search results as a row in Listbox1 with headers defined in first part of code , the code runs when I click CommandButton1 All...

Hi all: I have this code belove to find and copy data then caculate value, this code work fine but I thinks it's very slow. Please help me make code run faster a have another way to do (find data, copy then cacutale) Thanks./. Sub t_All() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As...

Hi Folks, I am attempting to use VBA to modify address data because the first two address columns have character limits and my data tends to exceed the limits. I wish to modify text strings within cells i.e., to find and replace words within text strings with abbreviations. For the below code...

Hi! I have a code, with this part in the "Thisworkbook" module: Set rw = ws.Range("A:A").Find(Cells(Target.Row, 1).Value, , xlValues, LookAt:=xlWhole) And after it runs, the "Find" tab saves it as setting and search for xlWhole, so I have to set it back every time manually to xlPart. (If I add...

I have 3 'for loops' where i loop through each tab and do some basic clean up by referencing columns by their header. I think it would be more elegant combine these three loops in one loop, but cannot quite figure out what i am doing wrong to do so. 'find "ClaimName" and replace values to...

Can any one help me in this, how do I make this statement in correct manner.. The entire code is,

Hello Everyone, The issue I am working on today is being able to use the .find function to find a column header and copy all the data to be pasted into another worksheet. 'Find Customer Sub Cells.find(what:="customerSub", after:=Range("A1"), lookin:=xlformulas, lookat:= xlpart _ ...

Greetings! I am trying to get the following results in column B: Book1ABCD1ValuesException?Exceptions2JOHN SMITHUNIVERS3UNIVERSITY OF OHIO1STATE4UNIVERSIDAD DE COLUMBIA15JAMES JOHNSON6HOPKINS UNIVERSITY17STACY JONES8OHIO STATE1Sheet6 Basically, if the cell in column A matches any of the list...