coping cells

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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...
 
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
 
Back
Top