Posts by BigTJ

I am trying to figure out how to create a VBA that will either completely disable the deletion of N5:R125 when a row is selected and the user hits the delete or backspace keys. Or when the user selects the row it will resize it to a*:o* and they can delete that range. This is a shared macro enabled book and I do not want to password protect it, which is usually the correct answer.

Re: Need Help with Copy row to other worksheet based on criteria

will do thanks

Re: Need Help with Copy row to other worksheet based on criteria

Is there any way to add an advanced filter look up like this so I can type a truck number and it will filter [ATTACH=CONFIG]68960[/ATTACH]like this

Re: Need Help with Copy row to other worksheet based on criteria

Wow so, so nice works perfect, thank you so much. I should have swallowed my pride a lot earlier.

Re: Need Help with Copy row to other worksheet based on criteria

Well it finally copies the values, unfortunately it copies the whole table to the next page instead of only the rows marked "X".

As the title states I need help with a copy and past VBA for a button I am using column a on sheet 2 "Data" and what I need is when I input an "X" into the column which there are multiple rows that will be used, I need when I push the button it copies the whole row to the bottom row of the "TruckHistory" sheet. But I want only the values copied over. I have tried so many too many to count variations of copy and paste code that I am at my wits end. The attached sheet is just a working model. There are a lot of blank cells in the data sheet and truck history, as I am continuing to update it everyday. Here is the code I have gathered so far.

Private Sub History_Click()
Dim i As Long, lrow As Long




Application.ScreenUpdating = False




With Worksheets("Data")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        If .Range("A" & i).Value = "X" Then .Rows(i).copy
        Worksheets("TruckHistory").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial = xlPasteValues
    Next i
End With




MsgBox "Done"




Application.ScreenUpdating = True




End Sub[CODE]

[/CODE]