Macro Needed

[ironsides]

Starts line 7 cols A thru Z

Data in col A is 6 numbers

Formula needed that will

1-Seek last line in col G

2- Print in cell C5 the
four left numbers
of Col A of that last line

 

[cstimart]

Sub test()
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
Range("C5") = VBA.Left(Range("A" & LR), 4)
End Sub

 

[ironsides]

Sub test()
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
Range("C5") = VBA.Left(Range("A" & LR), 4)
End Sub

I made some changes



Sub Cfive()
'
' Cfive Macro
' Macro recorded 9/20/2011 by DCS Valued Customer
'
Dim LR As Long
LR = Range("f" & Rows.Count).End(x1up).Row
Range("C5") = VBA.Left(Range("b" & LR), 4)
'
End Sub

and get this error message
cant execute code is break mode
yellow highlighted in my bold face line
what do i need to adjust

also is there a notation needed to start count cell F7 downward

 

[cstimart]

I made some changes



Sub Cfive()
'
' Cfive Macro
' Macro recorded 9/20/2011 by DCS Valued Customer
'
Dim LR As Long
LR = Range("f" & Rows.Count).End(x1up).Row
Range("C5") = VBA.Left(Range("b" & LR), 4)
'
End Sub

and get this error message
cant execute code is break mode
yellow highlighted in my bold face line
what do i need to adjust

also is there a notation needed to start count cell F7 downward

Change "x1up" to "XLUP"

 

[ironsides]

Change "x1up" to "XLUP"

when I put in XLUP
it changes itself to xlUp

and I get the same error message

 

[cstimart]

Why 'F'? There's no mention of that in the first post.

 

[ironsides]

Why 'F'? There's no mention of that in the first post.

I Made an error in specifying col G it should have been col F
and I also changed my original col A to col B
Mybad? If yes, please excuse me.
Is there a solution with these two changed cols?

 

[cstimart]

I used...

LR = Range("f" & Rows.Count).End(xlUp).Row

...with no error.

 

[ironsides]

I used...

LR = Range("f" & Rows.Count).End(xlUp).Row

...with no error.

I still get the same error message here's the complete notation

Sub Cfive()
'
' Cfive Macro
' Macro recorded 9/20/2011 by DCS Valued Customer
'
Dim LR As Long

LR = Range("f" & Rows.Count).End(xlUp).Row
Range("C5") = VBA.Left(Range("b" & LR), 4)
'
End Sub

what in the above would cause the break mode error message

 

[cstimart]

I had to use a capital F, initially...then I could change it to match your version.