copy content to first empty cell in column

[elrussell]

I am guesssing that this is a problem in search of a programming solution. Two cases:
[1] I have textual content in cell H24 that I want to copy to the first empty cell in column C.
[2] I would like to insert some system variables such as today's date, time, etc.

I would prefer to do all of this when a given form (buildRubric) is initialized. Any suggestions will be greatly appreciated.

Thanks in advance!

[Jim F]

Sub CopyPaste()
Range("H24").Select
Selection.Copy
Range("C65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

"elrussell" wrote:

>
> I am guesssing that this is a problem in search of a programming
> solution. Two cases:
> [1] I have textual content in cell H24 that I want to copy to the first
> empty cell in column C.
> [2] I would like to insert some system variables such as today's date,
> time, etc.
>
> I would prefer to do all of this when a given form (buildRubric) is
> initialized. Any suggestions will be greatly appreciated.
>
> Thanks in advance!
>
>
> --
> elrussell
> ------------------------------------------------------------------------
> elrussell's Profile: http://www.excelforum.com/member.php...o&userid=31020
> View this thread: http://www.excelforum.com/showthread...hreadid=521437
>
>

[Gary Keramidas]

you could actually do it with one line of code

1) i am assuming your data starts in c2. this will put the value of h24 into the
first empty cell in column c after row 2

sub copy_val
Range("C2").End(xlDown).Offset(1, 0) = Range("H24")
end sub

2) not sure what you want where

--


Gary


"elrussell" <[email protected]> wrote in
message news:[email protected]...
>
> I am guesssing that this is a problem in search of a programming
> solution. Two cases:
> [1] I have textual content in cell H24 that I want to copy to the first
> empty cell in column C.
> [2] I would like to insert some system variables such as today's date,
> time, etc.
>
> I would prefer to do all of this when a given form (buildRubric) is
> initialized. Any suggestions will be greatly appreciated.
>
> Thanks in advance!
>
>
> --
> elrussell
> ------------------------------------------------------------------------
> elrussell's Profile:
> http://www.excelforum.com/member.php...o&userid=31020
> View this thread: http://www.excelforum.com/showthread...hreadid=521437
>

[Gary Keramidas]

sorry, missed your last requirement
this would go on the userform's activate code page
and you should qualify the ranges with the sheet names

Public Sub buildRubric_Activate()
Worksheets("Sheet1").Range("C2").End(xlDown).Offset(1, 0) = _
Worksheets("Sheet1").Range("H24")
End Sub





--


Gary


"elrussell" <[email protected]> wrote in
message news:[email protected]...
>
> I am guesssing that this is a problem in search of a programming
> solution. Two cases:
> [1] I have textual content in cell H24 that I want to copy to the first
> empty cell in column C.
> [2] I would like to insert some system variables such as today's date,
> time, etc.
>
> I would prefer to do all of this when a given form (buildRubric) is
> initialized. Any suggestions will be greatly appreciated.
>
> Thanks in advance!
>
>
> --
> elrussell
> ------------------------------------------------------------------------
> elrussell's Profile:
> http://www.excelforum.com/member.php...o&userid=31020
> View this thread: http://www.excelforum.com/showthread...hreadid=521437
>

[elrussell]

Thank you very much - this will help a great deal.