Saludos...

What would the code in vba be for the following , Kind of new vba and stil
haven't got the hang of loops.

I have a sheet the looks like the following. How can I make it so it copies
CODE1 in the blank cells till it reaches code2 , then copy code 2 in the
blank cells between code2 and 3 and so on.

a b c
Code 1 Juan 22 days
Pedro 14 hrs
Luis 15 day

Code 2 Juan 5 days
Pedro 3 hrs
Luis 2 day

Code 3 Juan 2 days

and so on.

You can do it pretty easily by hand... Assuming Code 1 is in Cell A1 add this
formula to A2 =if(b2<>"", A1, ""). Now copy Cell A2. Highlight A1:A100 (or
however far you need to go) and hit F5 ->Special Cells -> Blanks -> OK (all
of the blanks in A1:A100 will now be selected) Paste the formula into the
blanks... Now Copy column A and paste speacial values. if you need a macro to
do this just record your actions while you do it...
--
HTH...

Jim Thomlinson


"JJMNZ76" wrote:

> Saludos...
>
> What would the code in vba be for the following , Kind of new vba and stil
> haven't got the hang of loops.
>
> I have a sheet the looks like the following. How can I make it so it copies
> CODE1 in the blank cells till it reaches code2 , then copy code 2 in the
> blank cells between code2 and 3 and so on.
>
> a b c
> Code 1 Juan 22 days
> Pedro 14 hrs
> Luis 15 day
>
> Code 2 Juan 5 days
> Pedro 3 hrs
> Luis 2 day
>
> Code 3 Juan 2 days
>
> and so on.

Just modify ranges as needed:

Sub SameAsAbove()
'Copies data from cell above if current cell in range is blank
Dim MyRange As Range
Dim MyCell As Range
Dim Endrow As Integer
Endrow = Range("A65536").End(xlUp).Row
Set MyRange = Range("A1:G" & Endrow)
MyRange.Select
On Error Resume Next
For Each MyCell In MyRange
If MyCell.Value = "" Then
MyCell.Value = MyCell.Offset(-1, 0).Value
End If
Next MyCell
End Sub

JJMNZ76 wrote:
> Saludos...
>
> What would the code in vba be for the following , Kind of new vba and stil
> haven't got the hang of loops.
>
> I have a sheet the looks like the following. How can I make it so it copies
> CODE1 in the blank cells till it reaches code2 , then copy code 2 in the
> blank cells between code2 and 3 and so on.
>
> a b c
> Code 1 Juan 22 days
> Pedro 14 hrs
> Luis 15 day
>
> Code 2 Juan 5 days
> Pedro 3 hrs
> Luis 2 day
>
> Code 3 Juan 2 days
>
> and so on.

Debra Dalgleish has some techniques:
http://www.contextures.com/xlDataEntry02.html



JJMNZ76 wrote:
>
> Saludos...
>
> What would the code in vba be for the following , Kind of new vba and stil
> haven't got the hang of loops.
>
> I have a sheet the looks like the following. How can I make it so it copies
> CODE1 in the blank cells till it reaches code2 , then copy code 2 in the
> blank cells between code2 and 3 and so on.
>
> a b c
> Code 1 Juan 22 days
> Pedro 14 hrs
> Luis 15 day
>
> Code 2 Juan 5 days
> Pedro 3 hrs
> Luis 2 day
>
> Code 3 Juan 2 days
>
> and so on.

--

Dave Peterson

Thanks to all,

"Dave Peterson" wrote:

> Debra Dalgleish has some techniques:
> http://www.contextures.com/xlDataEntry02.html
>
>
>
> JJMNZ76 wrote:
> >
> > Saludos...
> >
> > What would the code in vba be for the following , Kind of new vba and stil
> > haven't got the hang of loops.
> >
> > I have a sheet the looks like the following. How can I make it so it copies
> > CODE1 in the blank cells till it reaches code2 , then copy code 2 in the
> > blank cells between code2 and 3 and so on.
> >
> > a b c
> > Code 1 Juan 22 days
> > Pedro 14 hrs
> > Luis 15 day
> >
> > Code 2 Juan 5 days
> > Pedro 3 hrs
> > Luis 2 day
> >
> > Code 3 Juan 2 days
> >
> > and so on.
>
> --
>
> Dave Peterson
>