Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
REMOVING DATA BASED ON OTHER CELL INFORMATION
I've created the following macro that removes data based on ofther
cell information. This is similar to duplicate row code, but I'm looking to define which columns I evaluate. Currently, this macro looks at just column A or 1. I need it to look at column A, C, F & G. My question is more syntax based I believe as I'm at a beginner level in creating VB/Macro code; otherwise this is working as needed - can anyone assist on the range on this one? 'Removing Dupicates Dim rng As Range Dim i As Integer Set rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown)) For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1) Then Cells(i, 6).ClearContents Cells(i, 7).ClearContents Cells(i, 8).ClearContents Cells(i, 9).ClearContents End If Next SAMPLE INPUT: Column A Column B Column C Column D Column E Column F Column G Column H Column I 04531 861134 0 0 0 0.00 04531 861146 0 0 0 0.00 04578 861022 Ganesh 132884 32 67.55555556 2592 5,472.00 045102 861134 Robin Uffer 137308 19,195.00 2 4.222222222 162 342.00 045102 861146 19,195.00 0 0 0 0.00 045102 861086 Peter Donald 134932 10,611.00 1 2.111111111 81 171.00 045102 861086 Peter Donald 134932 21,278.00 1 2.111111111 81 171.00 SAMPLE OUTPUT AFTER MACRO HAS RUN: Column A Column B Column C Column D Column E Column F Column G Column H Column I 04531 861134 0 0 0 0.00 04531 861146 CLEARED CLEARED CLEARED CLEARED 04578 861022 Ganesh 132884 32 67.55555556 2592 5,472.00 045102 861134 Robin Uffer 137308 19,195.00 2 4.222222222 162 342.00 045102 861146 19,195.00 0 0 0 0.00 045102 861086 Peter Donald 134932 10,611.00 1 2.111111111 81 171.00 045102 861086 Peter Donald 134932 21,278.00 CLEARED CLEARED CLEARED CLEARED |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
removing data based on other cell information | Excel Programming | |||
looking up cell value based off of row and column information | Excel Discussion (Misc queries) | |||
Transfer single cell information to specific cell based on user criteria | Excel Programming | |||
Removing a Row based on a cell value | Excel Discussion (Misc queries) | |||
Auto-fill cell based on adjacent cell information.. | Excel Worksheet Functions |