Application Defined or Object defined error

NoSparks · #1 03-23-2017, 09:51 AM

I don't understand what you're trying to do and I have a real problem with activecells and selects,
maybe something like this ?

Code:

Dim lr As Long, x As Long

With Sheets("WinShuttleUpload (2)")
    lr = .Cells(Rows.Count, "I").End(xlUp).Row
    For x = lr To 3 Step -1
        If .Cells(x, "I") <> "" Then
            .Cells(x + .Range("N" & x).Value, "I").Value = .Cells(x, "I").Value
            .Cells(x, "I").ClearContents
        End If
    Next x
End With

bennyamy · #2 03-23-2017, 11:42 AM

Quote:

Originally Posted by NoSparks

I don't understand what you're trying to do and I have a real problem with activecells and selects,
maybe something like this ?

Code:

Dim lr As Long, x As Long

With Sheets("WinShuttleUpload (2)")
    lr = .Cells(Rows.Count, "I").End(xlUp).Row
    For x = lr To 3 Step -1
        If .Cells(x, "I") <> "" Then
            .Cells(x + .Range("N" & x).Value, "I").Value = .Cells(x, "I").Value
            .Cells(x, "I").ClearContents
        End If
    Next x
End With

That worked perfectly. Thanks!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
FileSystemObject Compile Error: User-Defined Type Not Defined	gsrikanth	Excel Programming	2	03-28-2022 06:32 AM
User-defined Type not Defined VBA Issue	OTPM	Project	3	01-02-2014 01:47 PM
Range.Information(wdStartOfRangeRowNumber): Application-defined or Object-defined err	tinfanide	Excel Programming	2	06-09-2012 10:19 AM
Application-defined or Object-defined error	Manit	Excel Programming	4	12-08-2011 07:35 PM
Compile error: sub or function not defined..	xena2305	Excel Programming	0	08-02-2011 10:17 AM