I have the following code, but it is not working correctly. The code is only selecting a cell in column A, not column A through AD. If I take out .cells(index+1,1) and just use Range("a:ad").select, it works properly, but then I can't index through the data. Any ideas?
Please Login or Register to view this content.
What's your code going to perform when working properly?
I have say 20,000 rows of data, and 50 columns. I want to run through each row, and if range("f2").cells(index,1)="IMM", then delete columns a:ad, for the corresponding row, NOT all columns for the corresponding row.
Anyone??? I can't figure this out.
I don't understand what you are trying to do, if you were using ActiveCell maybe, but your not, to me your code deletes columns A to AD on the first loop
so there is no way for it to work a second time
Maybe this could start you out
Sub Keep_IMM_Rows()
Dim lastrow As Long, rw As Long
lastrow = ActiveSheet.UsedRange.Rows.Count + 1
For rw = lastrow To 2 Step -1
If (Cells(rw, 6).Value) <> "IMM" Then Rows(rw).Delete
Next rw
End Sub
this seems to be what you are asking for but it would take a long time for the macro to perform
Sub Button1_Click()
Application.ScreenUpdating = False
Range("F2").Activate
Do Until ActiveCell = ""
If ActiveCell <> "IMM" Then
ActiveCell.Range("A1:AD1").Delete
ActiveCell.Offset(-1, 0).Range("A1").Activate
End If
ActiveCell.Offset(1, 0).Range("A1").Activate
Loop
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks