Remember Me?

#1
December 7th 04, 11:23 AM
 Tan Arthur via OfficeKB.com Posts: n/a
Repeating same task for different cell

Hi All ,
I need to repeat the below task at different cell . E.g C8 ,D20 , C21 ...

Dim sRange As String
sRange = "C8"
Range(sRange).Select
If IsEmpty(ActiveCell) = True Then ?..
Else ??
End If

Would appreciate someone can help , thanks.

--
Message posted via http://www.officekb.com

#2
December 7th 04, 12:43 PM
 Vikrant Vaidya Posts: n/a

modify this script to a function as follows

Private Function modval(row,column)
Dim sRange As String
Range(sRange).Select
If IsEmpty(ActiveCell) = True Then ?..
Else ??
End If

Then in the cell you put value which is to be manipulated just pass the row
and column to this function like
=modval(8,3) for cell c8

vikrant

"Tan Arthur via OfficeKB.com" wrote:

Hi All ,
I need to repeat the below task at different cell . E.g C8 ,D20 , C21 ...

Dim sRange As String
sRange = "C8"
Range(sRange).Select
If IsEmpty(ActiveCell) = True Then ?..
Else ??
End If

Would appreciate someone can help , thanks.

--
Message posted via http://www.officekb.com

#3
December 7th 04, 04:54 PM
 JE McGimpsey Posts: n/a

How will you determine which cells?

If in advance, here's one way:

Public Sub test1()
Dim rCell As Range
For Each rCell In Range("C8,D20,C21")
If IsEmpty(rCell.Value) Then
'?..
Else
'??
End If
Next rCell
End Sub

If you want it to run on all selected cells:

Public Sub test2()
Dim rCell As Range
If TypeName(Selection) = "Range" Then
For Each rCell In Selection
If IsEmpty(rCell.Value) Then
'?..
Else
'??
End If
Next rCell
End If
End Sub

Note that selection/activation is not necessary. Using the range objects
directly makes your code smaller, faster, and IMO, easier to maintain.

In article ,
"Tan Arthur via OfficeKB.com" wrote:

I need to repeat the below task at different cell . E.g C8 ,D20 , C21 ...

Dim sRange As String
sRange = "C8"
Range(sRange).Select
If IsEmpty(ActiveCell) = True Then ?..
Else ??
End If

#4
December 9th 04, 01:02 PM
 Tan Arthur via OfficeKB.com Posts: n/a

Hello McGimpsey,

--
Message posted via http://www.officekb.com

 Posting Rules Smilies are On [IMG] code is On HTML code is OffTrackbacks are On Pingbacks are On Refbacks are On

 Similar Threads Thread Thread Starter Forum Replies Last Post QUEST41067 Excel Discussion (Misc queries) 1 January 15th 05 09:29 PM DocuMike Excel Discussion (Misc queries) 3 January 5th 05 08:46 PM justinfishman22 Excel Discussion (Misc queries) 2 January 4th 05 12:09 AM KC Mao Excel Discussion (Misc queries) 2 December 4th 04 04:30 AM GRITS Excel Discussion (Misc queries) 1 December 2nd 04 08:30 PM

All times are GMT +1. The time now is 12:04 AM.