For Loop Fail

[livvi_77]

So this for loop was previously working but with new data set has decided not to work. Please help!

For x = 1 To x = n
Qx = Worksheets("Working").Range("Qx")
If I * x = I * (x + 1) Then
Qx = " "
End If
Next x

I want it to look in column Q and if the data is the same as the data in the cell below for it to make the cell on that row in column I to be blank. The data in column Q is alpha numeric. Any help would be much appreciated.

 

[bensonsearch]

Qx = Worksheets("Working").Range("Qx")

well for starters Qx cannot = itself before its set... maybe under range put
Range("Q" & x) to get the next row in the line

and is I defined higher up in this code? needs to know what I is

 

[livvi_77]

I tried adding that but hasn't done anything.

Sub MacroTaxi()
Sheets("Working").Visible = True
Sheets("Working 2").Visible = True

Sheets("Working").Select
Rows("1:62160").Select
Range("A62160").Activate
Rows("1:62160").EntireRow.AutoFit
Columns("A:R").Select
Application.CutCopyMode = True

Sheets("TAXI DATA").Select
Columns("D:U").Select
Application.CutCopyMode = True
Selection.Copy
Sheets("Working").Select
Range("A1").Select
ActiveSheet.Paste

'Define variables

Dim n As Integer
Dim x As Integer

'Count number of entries in spreadsheet
n = Worksheets("Working").Range("I:I").Cells.SpecialCells(xlCellTypeConstants).Count

'Start For Loop
For x = 1 To x = n
Qx = Worksheets("Working").Range("Q" & x)
If I * x = I * (x + 1) Then
Qx = "Blank"
End If
Next x

'Sheets("Working").Select
'Columns("A:R").Select
'Application.CutCopyMode = True
'Selection.Copy
'Sheets("Working 2").Select
'Range("A1").Select
'ActiveSheet.Paste

'Range("A1:R2060").Select
'Selection.Sort Key1:=Range("Q1"), Order1:=xlDescending, Header:= _
'xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal

'Sheets("Working 2").Select
'Columns("F:F").Select
'Application.CutCopyMode = True
'Selection.Copy
'Sheets("Top 20 Taxis by Volume").Select
'Range("B1").Select
'ActiveSheet.Paste
'Sheets("Working 2").Select
'Columns("H:I").Select
'Application.CutCopyMode = True
'Selection.Copy
'Sheets("Top 20 Taxis by Volume").Select
'Range("C1").Select
'ActiveSheet.Paste
'Sheets("Working 2").Select
'Columns("M:R").Select
'Application.CutCopyMode = True
'Selection.Copy
'Sheets("Top 20 Taxis by Volume").Select
'Range("E1").Select
'ActiveSheet.Paste


'Sheets("Working").Select
'ActiveWindow.SelectedSheets.Visible = False
'Sheets("Working 2").Select
'ActiveWindow.SelectedSheets.Visible = False

End Sub

Heres my coide in full have made the bottom half into comments to try and find out where its going wrong. Im trying to get unique data because I have a count column which counts the number of journeys each person has taken but then if someone has made four journeys ther will be four fours so am trying to make it so theres just one.

 

[bensonsearch]

have you tried hitting F8 and going through each line and value one by one? i find it helps alot. any chance for a sample worksheet?

 

[livvi_77]

Yep I've tried going through it but it just highlights every line. Im afraid I can't give you a sample worksheet because of issues of confidentitality but in column I is an alphanumeric code thats unique for each person and column Q is simply a count column that just counts the number of entries per person.