troubleshooting Question

Problem with a VB Macro

Avatar of garethmanuel
garethmanuelFlag for United Kingdom of Great Britain and Northern Ireland asked on
Visual Basic ClassicMicrosoft ApplicationsVB Script
9 Comments1 Solution329 ViewsLast Modified:
Hi there,
I have written this code (i have very basic knowledge of VB) to remove any items less than '100'
and it does not seem to remove anything.
have I written this completley wrong?
Please help
Sub go()
'
' go Macro
'
'
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Application.Run "BLPLinkReset"
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    
      Dim i As Integer
 
  Range("C3").Select
 
    For i = 1 To 200
 
     If ActiveCell.Value > "100" Then
    
      Selection.Offset(1, 0).Select
  
    Else
    
    Selection.EntireRow.Delete
    
    End If
    
    Next i
 
    
    
End Sub
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 9 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 9 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros