lrow

Good morning, i have been trying various code, and copied some i have found on the internet, but am unable to get any to work. I am trying to remove the character "/" from column i , which contains numbers in this format 111111/22/11111111///11 this was the latest attempt, is there a reason...

To All: I am trying to create a bottom border only. I am using this VBA script (found on this site). But, am getting borders on all edges. I am only wanting border on the bottom. Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row Range("A2:Z" & LR).Borders.Weight = xlMedium In my...

Hiya Im trying to delete a column if the is a blank in the column however i get no results - Im using a table but its saying no blank cells found when there clearly is Here is my code Sub DeleteBlankRows(SheetName As String, TableName As String) Dim Sh As Worksheet Dim tbTable As ListObject...

Hi All, I have a workbook consisting of 6 worksheets (all with data referring to that location). I have a macro in place to loop through all the worksheets and look for the projects that are "closed" , it then cuts the rows based on the condition and transfers it to a worksheet called closed...

Hi All. I would like to sort my set of data (contains both negative and positive numbers) based in ascending order (if the values are negative) and in descending order (if the values are positive). How can I do that? Below, I was able to sort the data on column E in ascending order. I need...

Programmers, I REALLY need your your Help speeding up some code. In one worksheet a table has 70,000 rows. In column "Q" (17), 40,000 cells have numbers; 30,000 are empty rows. I need to convert these numbers into text by adding a single quote (') before each number. My code sorts the table...

Hey guys, just need a little help rewriting this formula below, Sub Duplicate_Val() Dim lrow As Long, ws1 As Worksheet Set ws1 = Sheets("Datasource") lrow = ws1.Cells(Rows.Count, "A").End(xlUp).Row 'Adjustments Lastrow Application.Goto ws1.Range("L10") With ws1...

Ive got a long list of data I had help with a tech running some VBA code for me and our data has changed a little and the code has broken. Basically my data changed from 515 to 515E or 515J and I am not sure where to repair this part of the code for it to function properly. This code sorts the...

Hi, I have a code that lists some hyperlinks in column O to other xls documents with data that I need to pull. The data is found on a page called 'Quote' in cells B7, B8, B11 and B13. I need these cells copied and pasted into rows from A2 to D2 and following down for each hyperlink. What I'm...

Dim Lrow As Long Lrow = Cells(Rows.Count, "A").End(xlUp).Row Range("A" & Lrow + 2).Select ActiveCell.FormulaR1C1 = "54_TPL_01_02_Summary" Shouldn't this be finding the last row and then selecting two rows lower? Its not. Its finding the last row and selecting one below it to put...

Dear all, This is the code I found on internet. How can I modify it so that it compares with multiple values? I.e. insert a row if there value change not only in "A" column, but also it there is a change of value in "B" column as well? Sub InsertRowAtChangeInValue() Dim lRow As Long For...

I continue to have problems getting the hang of VBA's structure (my fault, I've not taken the time to run though some lessons properly, been running and grabbing just to get certain parts working). The following gives me a byRef argument type mismatch. The last section is my call, and it is...

Hi, I have made a code in VBA and it works :cool::cool::cool: but now I really do not know what I've done. Is there any one that can help me explain the VBA CODE below :D Public Sub GenerateDelayedCharts() 'Assignment 6 Dim lrow As Long Dim i As Long Dim crt As Shape Dim ssh As Worksheet...

Hi can anyone help with replacing the lines in RED with the lines in Blue to multiple subs? Sub dups1() Sheets("Sheet11").Select Dim Sheet11 As Worksheet: Set Sheet11 = Sheet11 Dim lRow As Long lRow = Sheet11.Cells(Rows.Count, "A").End(xlUp).Row Range("A1:BD" &...

I have a function as follows: Public Function abc (a, b, c) abc= a + b + c End Function I can use it in Excel by typing: =abc(1, 2, 3) which returns the value of 6, as expected. I have another function which finds the last row on a worksheet: Public Function LRow(ByRef wks...

I have an excel spreadsheet that I am trying to remove a substring from the cell and insert into an adjacent cell - mimicking the "Insert Copied Cells" feature in Excel. Problem is that when I try to utilize Replace it gives me "Expected =" as an error. I realize with the current code I would...

Hello Code below work perfectly for the exact match, would like some assistance to change it so that it finds any document that contains a string ub Run() Dim LRow AsInteger Dim LPath AsString Dim LExtension AsString Dim LContinue AsBoolean 'Initialize variables LContinue = True LRow = 2...

Hi Can anyone help with adding Range Value to List Box UserForm? I have a User Form which already has a Combo box that adds a list of names From Sheet(A) Using Private Sub UserForm_Initialize() I have added a List Box and need to add a Range Value From Sheet(B) "W1:AA10" to show in the List...

Hello Excel Expert, Can anyone pls correct my code below, please. It supposed to read the rows count for each sheet then do something based on rows count value for that sheet but when I run the code below, it only read once only at the first sheet then use that same value towards all sheets in...

I just wrote up a small bit of code to delete rows based on results of a CountIf and CountA. I tried looking up alternatives to using these with WorksheetFunction once I realized the code was taking a long time to run, but I came up empty. So, if I find the need to employ this code again in...