lastrow

hello, my code works but i need adjusted code when i press my macro ignore the empty rows from a19:e31 when delete these rows i suggest to be condition if a19 to a31 =0 then delete theses rows Sub TransferData() Dim Target As Range Dim LastRow As Long Dim R As Long...

Evening, I am using the code below but need to apply a slight change to it if you could advise please. Currently the code does not function on column 4 which is fine BUT i also wish it now not to work on column 4 and 7 Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

Hello guys, I need help again. I have a snippit that works when the sheet is defined (sheet3) but doesn't work when I try to make a variable for the active sheet (ws). I get an error that says "object doesn't support this property or method" and when I press debug it highlights my variable ws...

Hello all, I have some table build up from different formulas and so on. Final result is some huge sheet filled with columns and lots of rows showing just True or False. I'd like to know how i could hide all columns that are all their values True, so i can just end up with just the False...

Hi, I have the below code however I need to change it to reference cells C4-C4 and delete the row, if Column H contains the data typed in cells C4-C7. Thank you for any help . Sub Loop_Example() Dim Firstrow As Long Dim Lastrow As Long Dim Lrow As Long Dim CalcMode As Long...

Hi all I want to set lastrow always "> 4" and lastcolumn always ">6". I have code belovew and work well but I thinks have a better way to do. Could you have any suggession to do? My code is: Sub clear()Dim lrow As Long, lcol As Long Application.ScreenUpdating = False With Sheets("result")...

Hi, I am writing some code to copy and paste a range from one sheet to another but the code is bringing the formula through to the new destination whereas I only need the values. Current code: Dim Arange As Range, Drange As Range, Crange As Range, Trange As Range Set Arange = ws.Range("A3:A"...

Hello: I have part of a macro that needs to clean up cells and replace the bad data with the good data. I'm using a loop nested if else, but is there a more efficient way? This looks cumbersome. Any help would be appreciated . Thank you! Sub cleandata() Dim i As Long Dim DataValue...

Can anyone help please? It looks right to me but when the macro finishes, it pastes my formula in AC1:AC3. There are breaks in the data however, by pressing Ctrl and End it takes me to cell AC520. Sub ConsolidateTimeSheets() Dim Wbk As Workbook Dim ws As Worksheet, wsData As Worksheet...

Hi all... me again *sigh* I am trying to create a macro that will create a 3d-reference to another sheet - all references need to be added to the sheet 'Reminders' and will be based on the values in the active row on the active sheet. I kinda had two macros that did bits of what I wanted and...

Hi all I have done a macro to copy data from sheet2 to sheet 3 then remove duplicates, however it doesn't work, please could anyone help? Sub Reconcile() Dim LastRow AsLong LastRow =Range("A" & Rows.Count).End(xlUp).Row Sheet2.Select Range("F2:F" & LastRow).Select...

Hi all, I want to make the spread sheet automatically run this macro code when a number is inputted into column B what code do i need to add to it Sub Ratio_BC() Dim Lastrow As Long Application.ScreenUpdating = False Lastrow = Range("B" & Rows.Count).End(xlUp).Row Range("D2:D" &...

Hi all, I am in need of a VBA code to be able to autofill this formula "=IF(ISNUMBER(--MID($B:$B,SEARCH("241",$B:$B),3)),MID($B:$B,18,10),0)" into column D anytime datat is inputted, this is an attempt to limit the amount of formula's are in the sheet as i dont want to have to copy the formula...

Hi all, could someone help me mod this to delete each blank row after it has moved the data to another sheet. Currently, it works when there is only one "Y" marked row but, if there are multiple rows, it does not delete any of the blank rows. Sub Move_Closed()Dim Check As Range, rng As Range...

Hi all, can someone help me to mod this so that when the rows identified are moved to another sheet the subsequent blank row is deleted from the source table, please? Sub Move_Closed()Dim Check As Range, r As Long, lastrow2 As Long, lastrow As Long Application.ScreenUpdating = False lastrow =...

Hi, I am getting "Application-defined or object-defined error" error msg for below codes.. Not able to figure out where i am going wrong. Please help Sub conditionE() Dim lastrow As Long lastrow = WorksheetFunction.CountA(Worksheets("2018_T933").Range("A:A")) With...

hello all, i have a worksheet with column A-I, row 1-250. however i'm not necessary to use every row every time. the question is how can i simply set the print area automatically to last row thus i can use less paper?:rofl: it seems my code below will goto row 250 every time and i will print...

I'm using this code to try and conditional format the rows with the values shown below. My problem is "Red" is the only color that's working, and i don't know why. Dim i As LongDim Lastrow, Lastcolumn As Long Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To Lastrow...

Hi all, I'm sure I'm missing something small, but does anyone know why I have to use "LastRow-2" in the code below to keep from ending up with 2 empty rows of data at the bottom of my ComboBox list? I guess I would get it if I had to use LastRow-1 since the array might be putting in an extra...

Hi, I've put together a macro with a range of data where the lastrow has been defined. All is well for the "table" - officially not a table but when I rerun the macro and set the range for the chart it goes to a completely different row The last row should be row7 - above "TOTAL" and it works...