cellsi

Hello and thanks in advance for your help and if it works, I will provide feedback. I'm trying to delete the rows if the value in the cell in Column B is equal to delete, but I'm getting an error on " If Cells(i, 2).Value = "Delete" Then Cells(i, 2).EntireRow.Delete" Here is the code. Sub...

Hey hey everyone, I wonder if anyone can help. I have a range (about 11 columns and potentially thousands of rows) which I've copied a formula which could give a result of "" into then copied and pasted as values. Simple enough. But what I need to do now is delete the "blank" cells and replace...

In My Range G20:G32 I Have: <tbody> Excel 2010 <colgroup><col style="width: 25pxpx"><col></colgroup><thead>#DAE7F5[/URL] "] G </thead><tbody> 20 Able 21 Bob 22 23 Cathy 24 25 Daryl 26 Edward 27 Fred 28 29 Marvin 30 31 32 Pete </tbody> Sheet1...

Hello, I am trying to use a macro that was designed by a former colleague. It is a rather standard macro to automate data input into an IBM Emulator. Below is the script (the creator was French): The error is occurring at the MySession.SetConnectionByName (SessionName) line. The macro...

Hello, in my code, I am trying to copy a certain number of columns which is constant. With this, i am trying to copy a cartain number of rows that is variant. My code doesn't seems to work because I have an error 1004: method of Range as failed. I hope that someon e could help me, thank you. k...

Good Afternoon, i am using this code to search anything listed in Column A which seems to work fine however if i write a number and not text it breaks can anyone hel. Sub XMLHTTP1() Dim url As String, i As Long, lastRow As Long Dim XMLHTTP As Object, html As New...

I have been trying to get a VBA code to work for copying all rows that have "New" in the B column then copy that row A-X and open a different workbook than paste the data to the next empty row. I have been able to get this to work but it stops after the first instance it identifies...

Dear All, I am trying to copy cell value, which has linked to website,from Excel sheet and paste it into email body. While all other paste functionis working however hyperlink is not pasted so I am not able to select the cell. Please see the below code: .HTMLBody = "Dear " + Cells(i, 8) +...

hello, I am using the following code to split It works for me if the string contains one dash. For example, J2-33 results: J2 and 33. However, If the string is BMS-J3-24 then it doesn't work. I am expecting the result BMS-J3 in column N and 24 in column O Any help is appreciated.

Hi I am trying to under variant data type and here it says: "The Variant data type is capable of holding any type of data except fixed-length strings and user defined types." what does "fixed-length" mean here? I tried this code and it works fine Sub testing() For i = 1 To 10 j = "hello"...

I am creating a Gantt Chart with certain events (represented by icons). Each row in my table represents one event, and the type is represented by the naming convention (Icon1,Icon2,Icon3...). These names found within the row will match the Name Manager names of the icons already created in the...

Hello All Trying to sum range above when cell is Blank. Using the below code. Sub SumBlank()Dim lr& Dim i& lr = Cells(Rows.Count, 1).End(xlUp).Row total = 0 With ActiveSheet For i = 1 To lr + 1 If Cells(i, 1) <> "" Then total = total + Cells(i, 1) End If Next End With End Sub

I'm trying to Move a Row of Data to ANOTHER WORKSHEET (Same WB) if Column 8 of each row included the text "closed". Once the First such row is Cut and Deleted the code is taking me to Sheet2 but bombing after running the code line IN RED (below). Current getting the 1004 error. What's...

Hi, I am getting a Type mismatch error of the below italic line. I cannot see where the problem is. Can anyone help (the macro goes down column Y and deletes entire row if cell in column Y is B or is C); Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 If...

Hi, I have the below code. Is there a way to edit this so that going down each row of a table, if cells in column I and column S of that particular row are both negative, then clear contents of those particular cells only? Application.ScreenUpdating = False For i = 1 To lastRow...

Hi I want to copy a range to another file. I wrote the code below. I can copy a range to same sheet, different sheets but not to different file. The code below did not give me an error message but it wont copy anything. I wrote similar code to copy one cell only and it did work. What is wrong...

A few times I've had this error when it always seems the case that I have a For statement. To make sure I'm not missing something I've stripped the code down to the bare bones but still getting it with the following code: Sub mysearch() Dim v As String, i As Integer For i = 1 To 10 v =...

Hello there, I ran the code before on a spreadsheet with a number of lines. I basically want to remove any lines with the value in column C starting with 'M'. As there wouldn't be two blank rows in a row anywhere on the sheet apart from at the end of the filled range, I used the loop conditions...

Hello, I currently have the following code to calculate howmany entries there are for each employee with in the date range (daterng2 &daterng3). I have now been asked to add an additional column which willbe cells(I,7) detailing how many unique months those entries fall under. Ie 01/01/2018...

Hi I have tried to create the VBA code below to populate values in column B but cannot get it to work. Essentially my spreadsheet looks like this with numbers and text in column A. Whereever there is a numeric value in column A, I would like to copy it and place it one cell above in column B...