Short code- Expression wrong

butch3

New Member
Joined
Feb 4, 2019
Messages
46
Hi all. What is wrong with this code? It might be an expression issue. My code isn't running.

Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value
ActiveSheet.Range("F" & x, "I" & x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Leith Ross

Well-known Member
Joined
Mar 17, 2008
Messages
1,874
Office Version
  1. 2010
  2. 2007
Platform
  1. Windows
You are missing the THEN statement in your IF clause.

Rich (BB code):
Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value Then
ActiveSheet.Range("F" & x, "I" & x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
 

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
There's no need to Select.

Code:
Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value Then
ActiveSheet.Range("F" & x, "I" & x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,130,447
Messages
5,642,209
Members
417,262
Latest member
andrewd1

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top