noup1000
06-26-2013, 12:32 AM
Sub C_how_many_to_insert()
Sheets("Copied sorted values").Select
Range("B2").Select
Do Until ActiveCell.Offset(1, 0).Value = "x"
ms1 = ActiveCell.Offset(0, 1)
ms2 = ActiveCell.Offset(1, 1)
If ms2 - ms1 > 1 Then
ActiveCell.Value = (ms2 - ms1) - 1
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
Loop
Range("B2").Select
Do Until ActiveCell.Value = "x"
p1 = ActiveCell.Offset(0, 2)
p2 = ActiveCell.Offset(1, 2)
If p1 <> p2 Then
ActiveCell = 13 - ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("D2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(-1, -3).Select
Do
p1 = ActiveCell.Offset(0, 3)
p2 = ActiveCell.Offset(-1, 3)
m1 = ActiveCell.Offset(0, 2)
If p1 <> p2 And m1 <> 1 Then
ActiveCell = (m1 - 1)
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Loop Until (ActiveCell.Address = "$A$1")
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2").Select
End Sub
Error on ActiveCell = (m1-1), would you please help..what is seems to be the problem? I appreciate you guys help on this
Sheets("Copied sorted values").Select
Range("B2").Select
Do Until ActiveCell.Offset(1, 0).Value = "x"
ms1 = ActiveCell.Offset(0, 1)
ms2 = ActiveCell.Offset(1, 1)
If ms2 - ms1 > 1 Then
ActiveCell.Value = (ms2 - ms1) - 1
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
Loop
Range("B2").Select
Do Until ActiveCell.Value = "x"
p1 = ActiveCell.Offset(0, 2)
p2 = ActiveCell.Offset(1, 2)
If p1 <> p2 Then
ActiveCell = 13 - ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("D2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(-1, -3).Select
Do
p1 = ActiveCell.Offset(0, 3)
p2 = ActiveCell.Offset(-1, 3)
m1 = ActiveCell.Offset(0, 2)
If p1 <> p2 And m1 <> 1 Then
ActiveCell = (m1 - 1)
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Loop Until (ActiveCell.Address = "$A$1")
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2").Select
End Sub
Error on ActiveCell = (m1-1), would you please help..what is seems to be the problem? I appreciate you guys help on this