Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Problems
Okay I am having some trouble writng a code that takes a value from
Range("k3") and then searches a set Range("J10:J34,L10:L34") for the first blank cell. When the first blank cell is determined the code will need to initialize the cell with a name, and then move over (right) one column and insert the value taken from Range("k3"). Does anyone have any idea how this can be accomplished? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Problems
Hi Mastermind,
Try: '============= Public Sub Tester002() Dim SH As Worksheet Dim Rng As Range Dim Rng2 As Range Const sStr As String = "Your_Name" '<<==== CHANGE Set SH = ActiveSheet '<<==== CHANGE Set Rng = SH.Range("J10:J34, L10:L34") On Error Resume Next Set Rng2 = Rng.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not Rng2 Is Nothing Then With Rng2(1) .Name = sStr .Offset(0, 1).Value = SH.Range("K3").Value End With End If End Sub '<<============= --- Regards, Norman "mastermind" wrote in message oups.com... Okay I am having some trouble writng a code that takes a value from Range("k3") and then searches a set Range("J10:J34,L10:L34") for the first blank cell. When the first blank cell is determined the code will need to initialize the cell with a name, and then move over (right) one column and insert the value taken from Range("k3"). Does anyone have any idea how this can be accomplished? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Problems
Thank you on behalf of Mastermind
-- Robert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Problems | Excel Programming | |||
macro problems | Excel Programming | |||
various macro problems | Excel Programming | |||
various macro problems | Excel Programming | |||
macro problems | Excel Programming |