a.endxlup.row

Hi all I have code below Code work well If I filter, copy data from 06 sheets to sheet("ky1") with condition in sheet(main).range(G1) and to sheet(ky2) with condition in sheet(main).range(G2). Now I want extend code that: 1. Condition value to filter in range: sheets(main).range(G1:G& lastrow)...

I have several lines of the same code which copies from several different worksheets - is there a way to clean this up a little? Set wsCopy = Workbooks("Staffing_Routing_Point_Open_Report_" & txtDate & ".xlsx").Worksheets("Auto Provider") lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count...

Help, please I have code that I am trying to workout that will pull a match from two worksheets, then confirm in one of these that a value is found and then add data to a third sheet in the same workbook. It is not working and the latest attempt is below. Any ideas? DThib Sub DataRun()...

after performing the below, i want to be able to delete the row on the sheet "database" and shift the data up one row so it isn't empty row there, and for the life of me no matter which way i try it i end up clearing the entire sheet Any guidance would be appreciated lastRow =...

Hello, As the title suggests, I have a For Next loop that stops after the first loop. i am trying to copy the row of any cell that has that color in the cell. I have a work around with a do until but it takes almost 6 minutes to run. Will the For Next run faster? Also why does it stop after...

Hi, good afternoon. I have got the code below where I copy data from one sheet to another but in row B the data in this is 13 numbers but it comes up as +23555 for example how can I change the value to this to show as the 13 digit number? also in Row Q is the date as 15/05/2019 but when copied...

Hello everyone, I've been trying for days to copy filtered data from one sheet to another. My code works fine but I am only getting the visible rows copied to the new sheet. The hidden columns contain information I need n the ew sheet. Can anyone help me? Here is my code: Sub...

hello im trying to make a macro so that if the "raw data" tab has more rows than the "calculations" tab, more rows will be added according to the difference. if the opposite is true, then delete the rows above....here's what I have so far, but the resize propert doesn't work with negative...

Good morning all, I've read sesveral similar posts, but nothing pertains to my exact case so I figured I'd make a new post and see what you think. I'm trying to sort through a database of products, each has one or more tags associated with it. I'm using InStr function to match a word with a tag...

Hi Guys! Again i need your help! :) I have filled a 2D array with data that i need to populate to a range. The issue is, one D is populated in a row and the other is to a column. Typically i need them to be populated to two adjacent column. The first D has sector names and the 2nd D has...

I have a folder with 40 text files. The files contain test data from running the same test repeatedly on 8 test units, 5 times in a row. I expect to repeat this testing many times in the future, and so I am trying to speed up the data extraction time versus cutting and pasting. Once the data is...

Hello world, I am stacked here and need some help: I used the below code to set my page break. I am looking for a way to add the criterion to its pages'header. So I want to use the first two rows as a common header that runs across all the pages. That I can do, but my challenge now is to get...

Hello, I found this awesome code that extracts unique values found in column A in every sheet, creates a new sheet, pastes them into column A and then alphabetizes them. Sub UniqueValues() Dim newWS As Worksheet, r As Long, N As Long, i As Integer Application.ScreenUpdating = False For Each...

Hi Guys I'm new here and I have been searching for hours, so please forgive me if there is a thread for this already. I have a data file, approx 20k line items that I need to report on. From this data certain line items needs to be copied to other worksheets in the same workbook based on...

Hi, I'm trying to get a macro to copy the last 30 rows of data to a different sheet. I have the code below but I am getting "Run-time error 1004: Application-defined or Object-defined error" I've tried a few different things but can't work out what's causing the error. Sub Last30() Dim...

Hello everybody. I need to copy and paste all the rows from sheet Two to sheet One (beginning from the first empty row). At the moment, the copy and paste works for only one row. Where is the mistake? Thank's. Sub transfer() Dim lr As Long, lr2 As Long, r As Long lr =...

Trying to adjust code so that it posts .values on line A3 rather than A2... Thank you I adjusted 'first empty row from +1 to +2 but gives me a blank row between two sheets.... Sub CDRCombine() Application.ScreenUpdating = False Dim wsCDR As Worksheet Dim LastRowWs As Long...

How do I adjust this VBA to paste values? Sub CDRCombine() Application.ScreenUpdating = False Dim wsCDR As Worksheet Dim LastRowWs As Long Dim LastRowCDR As Long Dim StartRowCDR As Long Set wsCDR = ThisWorkbook.Worksheets("CDR") LastRowCDR =...

Trying to only combine sheet ("XPO" and "DDD"). I tried this exclusion If ws.Name <> "Stuff" And ws.Name <> "Data" And ws.Name <> "Next Injection" And ws.Name <> "Pull Through" And ws.Name <> "CDR" And ws.Name <> "Acct-W-Syr" And ws.Name <> "Pres-W-Syr" Then but I'm getting error and it is...

Sub Better() Application.ScreenUpdating = False Dim wsCDR As Worksheet Dim LastRowWs As Long Dim LastRowCDR As Long Dim StartRowCDR As Long Set wsCDR = ThisWorkbook.Worksheets("CDR") LastRowCDR = wsCDR.Cells(wsCDR.Rows.Count, "A").End(xlUp).Row + 1 wsCDR.Range("A2:AK" &...