VBA Help - Have code apply to specific cell range

[surkdidat]

Good afternoon

I have the following code which presently populates any value put in column B down a certain amount of lines, however, I need this only to apply to a certain range (from B75 to B1500)

Can I ask what I need to amend to apply to only a certain cell range please?

Also, I have a Macro (currently called Button9_Click ) that is currently affected by this, and comes up with a RunTime Error 13 - Type Mismatch) - this code worked perfectly fine before the below code was added to the worksheet - again can anyone advise the best way around this please?


(Code for the above:-

If Target.Count = 1 And Target.Column = 2 And Target <> "" Then
Application.EnableEvents = False
Range(Target.Offset(1, 0), Target.Offset(13, 0)) = Target
Application.EnableEvents = True

End If

 

[surkdidat]

Thank you for that!!

When posting code please use code tags rather than quotes. It's the # icon in the reply window.
For your event code (assuming it's a worksheet_change event) try

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B75:B1500")) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
    If Target <> "" Then
        Application.EnableEvents = False
        Range(Target.Offset(1, 0), Target.Offset(13, 0)) = Target
        Application.EnableEvents = True
    End If
End Sub

And for your button code add these 2 lines one at the very top & the other at the bottom.

        Application.EnableEvents = False
        Application.EnableEvents = True

 

[Fluff]

You're welcome