Excel VBA Course
Excel VBA Course - From Beginner to Expert

200+ Video Lessons
50+ Hours of Video
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Enter Text/Characters with a Double-Click of the Mouse

0

I found the following code on this website but i want to change the "x" to be whatever tect is in cell F5. can anyone help?

Private Sub Worksheet_BeforeDoubleClick( _
            ByVal Target As Range, Cancel As Boolean)
    Dim rInt As Range
    Dim rCell As Range

    Set rInt = Intersect(Target, Range("E5:EH103"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            rCell.Value = "x"
        Next
    End If

    Set rInt = Nothing
    Set rCell = Nothing
    Cancel = True

End Sub
excel
MS Office Version: 2010
posted by: PrincessD1 (rep: 2) on Wed Mar 22, 2017 at 6:54 am
Answer
Discuss

Answers

0
Selected Answer
Private Sub Worksheet_BeforeDoubleClick( _
            ByVal Target As Range, Cancel As Boolean)
    Dim rInt As Range
    Dim rCell As Range

    Set rInt = Intersect(Target, Range("E5:EH103"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            rCell.Value = Range("F5").Value
        Next
    End If

    Set rInt = Nothing
    Set rCell = Nothing
    Cancel = True

End Sub

That should do it.

posted by: don (rep: 1989) on Wed Mar 22, 2017 at 11:58 am
Discuss

Discussion

This is amazing, thank you! quick question, if "F5" is a merged cell (could be different sizes) could this code bring through the whole thing? for example it could be 3 columns long or 9 columnsw long etc
PrincessD1 (rep: 2) Mar 23, '17 at 5:48 am
It shouldn't matter.
don (rep: 1989) Mar 23, '17 at 12:32 pm
Add to Discussion


Answer the Question

You must create an account to use the forum. Create an Account or Login