VBA - Copy/Paste Values if Cell equals Value

trock12

New Member
Joined
Dec 17, 2014
Messages
29
I can't quite nail this one down with VBA.

What I'm trying to accomplish is:

For a collection of rows (2:205), if the cell value in column H equals "Y" - copy and paste the values of that entire row. If the value of column H equals "N" or is blank - then do nothing to the row.

Any push in the right direction is appreciated!
 
Last edited:

Some videos you may like

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
44,781
Office Version
365
Platform
Windows
As long as you have a header row in row1 you could use either Autofilter or Advanced filter
 

trock12

New Member
Joined
Dec 17, 2014
Messages
29
I tried using Autofilter, but in the VBA it kept referring to that as a "Selection" and would error out when running the macro.

Code:
ActiveSheet.Range("$A$1:$G$205").AutoFilter Field:=7, Criteria1:="Y"
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xltoRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
44,781
Office Version
365
Platform
Windows
I didn't realise that you were looking to convert to values, rather than copy/paste to a new sheet.
In that case try
Code:
Sub trock12()
   Dim Rng As Range
   With ActiveSheet
      .Range("A1:G205").AutoFilter 7, "Y"
      For Each Rng In .AutoFilter.Range.SpecialCells(xlVisible).Areas
         Rng.Value = Rng.Value
      Next Rng
      .AutoFilterMode = False
   End With
End Sub
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,431
Messages
5,511,300
Members
408,839
Latest member
ayyazahmad89

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top