searchdirection=xlnext

Hello, I want to find the string "Size" in a specific column and then delete that row. I'm having problems with the find function. When the sub is stepped thru I get a Type Mismatch error. Here is the Find code. ActiveSheet.Columns("C:C").Find( _ What:="Size", _...

Hello Task: Calculate a value, only if the background of the cell is a certain color, then go to next row. I have been reading up on the Do/Loop, If/Then and For/Next statements, but having difficulty making any of them work. Here is the code: Cells.Find(What:=Util1, after:=ActiveCell...

Hi All I am attempting to loop through each sheet in a workbook, find the first blank after "A2" and therefrom create a range. The problem seems to be that whatever sheet the macro is assessing it always finds the value for the first blank on Sheet1 For Each rs In Wb.Sheets...

:) Hi all, I have the following code which will filter the columns as per my requirement but after filtering the columns i need to name the active cells as "Ship" in the column "Remarks" based on the used range column A. Please assist. <code style="margin: 0px; padding: 0px; font-style...

Hi All Good day for you........ I Run below code i get run-time error. Please need you help Sub GetFileCopyData() Dim Fname As String Dim SrcWbk As Workbook Dim DestWbk As Workbook Set DestWbk = ThisWorkbook Fname = Application.GetOpenFilename(FileFilter:="Excel Files...

Hi, I'm trying to find a row based on a combobox1. It's working on one sheet, but not on another - on the other sheet it seems to delete the column below the one i'm expecting. Can anyone shed some light on why this might happen? Private Sub CommandButton2_Click() Sheets("Study...

I'm trying to delete a range of columns that have dates (starting at 9/1/2017) as headers. I need it to delete from 9-2017 -> 8-2018, but when I run the code it keeps: Sep-17, Oct-17, and deletes Sep-18 and Oct-18. I'm not quite sure what is happening. Here is the code: Dim dateStart, dateEnd...

Hi! Thank you for reading my quick question! What I need: I select a cell, then a variable stores its value, and looks for it on worksheet "1" in column ("B:B"). Sub findstring() Dim CurrValue As String CurrValue = ActiveCell.Value...

Hi, In the below I need it to find "Text 1" leave 1 blank row before it pastes the contents in the selected cells. I have tried to offset but can't get it to work. Cells.Find(What:="Text 1", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows...

I have the following set of commands/code in a macro that can be run on different spreadsheets. How can if make the macro skip the set of commands to the next group if the value is not found, i.e. if the "0243" is not in the spreadsheet I want the macro to next group command and try to find the...

Good morning. In my work the column D is populated by a word, for example "Europe", a lot of times. I need a vba code in order to find - and select - the last cell of that column populated by "Europe". My attempt is just a manual operation recorded by the macro recorder, now I need a help for...

Hi, appreciate any help with this frustrating problem. I am trying to retrieve statistical data from various monthly sheets ( Jan, Feb, March etc.,) to a single master sheet. I have set the code up to retrieve the data and all goes well until we get to August. As the data is not yet available...

Hi everyone, My company is purchasing thousands of item via Paypal and I am building a macro to get data from checkout page. Normally I want to get the Funding type and Funding sources. So here is what I do: 1) Copy whole content of the checkout page (Ctrl C) 2) Paste all content into my...