.range.cells2

Hi, i had a code. How to copy paste value? Application.ScreenUpdating = False With Sheets("path") 'Source worksheet name Set DestSh = Sheets("FileCopy") 'Destination worksheet name lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row...

Hi - I'm using this code as a vlookup. Is there a way to alter the code so that i'm only looking up the first 3 digits of the value in Column 6 on Sheet6? Dim LastRow, LR1, LR2, LR3, i As LongDim Searchfor, j, inarr As Variant Set wsRS = Sheet6 Set wsDT = Sheet2 With wsDT LastRow =...

Hi just wondering is there any way of tidying up the code below as it is repeated quite a lot just wondering if there was a easier/better way in putting it all together. hope you can help. Private Sub CommandButton3_Click() With Sheets("Sheet1") .Columns("C:C").Sort...

Hi I have the code below where I am copying data over from sheet1 to New, but first I want in sheet1 column b sorting A-z, I have the code below where everything else works apart from the first part sorting column C in Sheet1 A-Z, please can you help? Private Sub CommandButton3_Click() With...

Is there any way to make this vba code paste special ? Sub MoveCols() Dim lr As Long Application.ScreenUpdating = False With Sheets("Insert Data here") lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row .Range(.Cells(2, "A"), .Cells(lr, "A")).Copy...

I am trying to get code to select all the filtered rows from Y to AO minus the headers. Currently here is my code: With ActiveSheet lr = .Columns("Y:AO").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row If lr > 1 Then .Range(.Cells(2, "Y"), .Cells(lr...

I have this particular piece of code that transfer data from a source workbook to a repository workbook. The problem that I am having is that it will not post the data to the bottom of the list. It overwrites the top rows of data. I have tried setting up tables on the destination workbook...