Excel VBA, execute Macro on selected cell

Question

My problem is that I need to execute a Macro only on the marked cell.

The Macro needs to do the following:

Selected cell is formated always for example as 20*20*20 always 3 numbers.

It should copy this text add a " = " before the numbers and output it on another column.

The Code I got until now is:

Sub First()
'
' First Makro
'

'
    Selection.Copy
    Range("G11").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=20*20*20"
    Range("G12").Select
End Sub

I have got this code with the record Macro function

Thanks very much

Where are you copying and where are you pasting? Your question is not clear. Please exactly explain what are you trying to achieve? — Siddharth Rout
– Siddharth Rout, Commented Jun 2, 2017 at 7:09
@SiddharthRout hi Sir yeah I wanted to be able to select the cell by hand which gets copied to the same row but 2 columns further — Valentino
– Valentino, Commented Jun 2, 2017 at 7:14
If yes then see the code that I posted below. You may have to refresh the page to see it — Siddharth Rout
– Siddharth Rout, Commented Jun 2, 2017 at 7:17
@SiddharthRout exactly but i need to be able to select it by hand because sometimes it's for example E17 sometimes e33 and output always need's to be G Column in the Same Row — Valentino
– Valentino, Commented Jun 2, 2017 at 7:18

Siddharth Rout · Accepted Answer · 2017-06-02 07:24:09Z

1

@SiddharthRout exactly but i need to be able to select it by hand because sometimes it's for example E17 sometimes e33 and output always need's to be G Column in the Same Row

Is this what you are trying?

Sub Sample()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    '~~> Replace Sheet1 with the relevant sheet name
    Set ws = wb.Sheets("Sheet1")

     '~~> Check if what the user selected is a valid range
    If TypeName(Selection) <> "Range" Then
        MsgBox "Select a range first."
        Exit Sub
    End If

    '~~> Check if the user has selected a single cell
    If Selection.Cells.Count > 1 Then
        MsgBox "Please select a single cell"
        Exit Sub
    End If

    ws.Range("G" & Selection.Row).Formula = "=" & Selection.Value
End Sub

edited Jun 2, 2017 at 7:24

answered Jun 2, 2017 at 7:12

Siddharth Rout

150k18 gold badges212 silver badges258 bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

Valentino Over a year ago

I'm getting a runtime error when I execute this script

Valentino Over a year ago

Thanks for your help but I'm getting this error when I execute the macro. Runtime Error 9 and Bound out of Array imgur.com/a/37f39

Siddharth Rout Over a year ago

When you click on deug, which line does it take you to?

Valentino Over a year ago

I'm getting to the line where I need to input my Map name imgur.com/a/zQjkt

Siddharth Rout Over a year ago

Is that the name of the current worksheet? Also ensure that the sheet is active

Collectives™ on Stack Overflow

Excel VBA, execute Macro on selected cell

1 Answer 1

5 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

5 Comments

Your Answer

Sign up or log in

Post as a guest

Related