Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 02-21-2012, 10:45 PM
gsrikanth gsrikanth is offline on click increment Windows XP on click increment Office XP
Competent Performer
on click increment
 
Join Date: Dec 2011
Posts: 133
gsrikanth is on a distinguished road
Default on click increment

in my excel file, only i need to do click


on first click on cell get one, then two like this so on

vb code, This gave an idea this gave row name, but i need on click one, two , three, four so on

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RowOffset As Long
Dim IndexCol As String
'Set values
RowOffset = 0
'Change the C to the column where you want the numbers to show
IndexCol = "C"

Intersect(ActiveCell.EntireRow, Columns(IndexCol)).Value = ActiveCell.Row + RowOffset
End Sub

Last edited by gsrikanth; 02-23-2012 at 02:01 AM.
Reply With Quote
  #2  
Old 02-23-2012, 08:19 AM
gsrikanth gsrikanth is offline on click increment Windows XP on click increment Office XP
Competent Performer
on click increment
 
Join Date: Dec 2011
Posts: 133
gsrikanth is on a distinguished road
Default

vba code corrections
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Mouse over or click highlighting SavageMind PowerPoint 1 03-19-2012 01:58 PM
on click increment Word Heading Bullet Numbering increment SASE1984 Word 1 02-10-2012 01:06 PM
on click increment Right click in Macro MShroff Word VBA 4 04-05-2011 09:00 PM
Click -to run headache lazarus34 Office 0 09-14-2010 08:42 AM
Increment Numbers Help Jazz43 Word 2 07-30-2010 02:48 AM

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 07:57 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft