Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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
|
|||
|
|||
modify this script to a function as follows
Private Function modval(row,column) Dim sRange As String sRange = worksheets("your worksheet name").cells(row,column) 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
|
|||
|
|||
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
|
|||
|
|||
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Maintaining cell reference after sorting | Excel Discussion (Misc queries) | |||
COPY A CONCATENATE CELL TO BLANK CELL PUTTING IN THE NEXT BLANK C. | Excel Discussion (Misc queries) | |||
Delete Cell Value Based on Another Cell T or F | Excel Discussion (Misc queries) | |||
How do I link many cells to one particular cell? | Excel Discussion (Misc queries) | |||
copy a cell value not its function | Excel Discussion (Misc queries) |