How to get a macro to run on all selected cells in a sheet?

**alfykunable** · 12-20-2011, 05:46 AM

Hi,

I am just starting to learn macros and I wrote one that appends a "-p" to a cell. How can I get this to work on all selected cells?
can someone tell me how I can run the same macro on all selected cells in a column??


Sub MarkAsStandAlone()
'
' MarkAsStandAlone Macro
'
' Keyboard Shortcut: Ctrl+Q
'
   Dim cellvalue As String
   Dim R As String
   Dim C As String


    R = ActiveCell.Row
    C = ActiveCell.Column
    cellvalue = ActiveCell.Value
    ActiveCell = cellvalue & "-i"

End Sub

Cheers,

Thanks

**Kyle123** · 12-20-2011, 05:56 AM

How about:

Sub AppendP()
Dim c As Object
For Each c In Selection
    c.Value = c.Value & "-p"
Next c

End Sub

**alfykunable** · 12-20-2011, 06:57 AM

Works like a charm

**alfykunable** · 12-24-2011, 10:33 AM

Hi Kyle,

I just noticed. I i make a selection in a filtered column then it applies the -p to all the values that are not in the filter as well.. how can we go about doing this?

**protonLeah** · 12-25-2011, 01:14 AM

Option Explicit

Sub AppendP()
Dim c As Range
For Each c In Selection.SpecialCells(xlVisible)
   
    c.Value = c.Value & "-p"
Next c

End Sub

Thread: How to get a macro to run on all selected cells in a sheet?

Thread Tools

Display

How to get a macro to run on all selected cells in a sheet?

Re: How to get a macro to run on all selected cells in a sheet?

Re: How to get a macro to run on all selected cells in a sheet?

Re: How to get a macro to run on all selected cells in a sheet?

Re: How to get a macro to run on all selected cells in a sheet?

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions