Filling empty cells with contents from another cell

[paul.sternhagen]

I am attempting to create a macro that will allow me to survey a column

of data and fill any empty cells with the input from the corresponding
row of data from another column. As an example:


Store Name Distributor Name


Jiffy JIF
Skippy SKIP
Kraft
Butterball BUTTER


I would want my macro to insert the text "Kraft" into the third row of
data in the distributor column. I have toyed with the following macro,

to little success:


Dim i As Integer
Sheets("Data Mapping").Select
For i = 1 To 104
If Range("C & i + 7").Text = 0 Then
Range("A & i + 7").Select
Selection.Copy
Range("C & i +7").Select
ActiveSheet.Paste
Next i


(I have 104 rows of data that I want to "fill", starting in row 8).
Any input that you might have would be most appreciated. Thanks

 

[Ron de Bruin]

Hi Paul

Use this example (almost the same)
http://www.contextures.com/xlDataEntry02.html

 

[Jim Rech]

Sub a()
Dim Cell As Range
On Error GoTo EndThis ''in case no blanks
For Each Cell In Worksheets("Data Mapping") _
.Range("C8:C111").SpecialCells(xlCellTypeBlanks)
Cell.Value = Cell.Offset(0, -1).Value
Next
EndThis:
End Sub


--
Jim
| Hi Paul
|
| Use this example (almost the same)
| http://www.contextures.com/xlDataEntry02.html
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| >I am attempting to create a macro that will allow me to survey a column
| >
| > of data and fill any empty cells with the input from the corresponding
| > row of data from another column. As an example:
| >
| >
| > Store Name Distributor Name
| >
| >
| > Jiffy JIF
| > Skippy SKIP
| > Kraft
| > Butterball BUTTER
| >
| >
| > I would want my macro to insert the text "Kraft" into the third row of
| > data in the distributor column. I have toyed with the following macro,
| >
| > to little success:
| >
| >
| > Dim i As Integer
| > Sheets("Data Mapping").Select
| > For i = 1 To 104
| > If Range("C & i + 7").Text = 0 Then
| > Range("A & i + 7").Select
| > Selection.Copy
| > Range("C & i +7").Select
| > ActiveSheet.Paste
| > Next i
| >
| >
| > (I have 104 rows of data that I want to "fill", starting in row 8).
| > Any input that you might have would be most appreciated. Thanks
| >
|
|

 

[Ron de Bruin]

I am attempting to create a macro
Oops, thanks Jim

 

[Jim Rech]

Ron, I didn't mean to post this to you, sorry. Obviously I saw your post
but after having worked a hard 3 minutes on this I didn't want to throw it
away.<g>

--
Jim
| >I am attempting to create a macro
| Oops, thanks Jim
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| > Sub a()
| > Dim Cell As Range
| > On Error GoTo EndThis ''in case no blanks
| > For Each Cell In Worksheets("Data Mapping") _
| > .Range("C8:C111").SpecialCells(xlCellTypeBlanks)
| > Cell.Value = Cell.Offset(0, -1).Value
| > Next
| > EndThis:
| > End Sub
| >
| >
| > --
| > Jim
| > | > | Hi Paul
| > |
| > | Use this example (almost the same)
| > | http://www.contextures.com/xlDataEntry02.html
| > |
| > | --
| > | Regards Ron de Bruin
| > | http://www.rondebruin.nl
| > |
| > |
| > | > | >I am attempting to create a macro that will allow me to survey a
column
| > | >
| > | > of data and fill any empty cells with the input from the
corresponding
| > | > row of data from another column. As an example:
| > | >
| > | >
| > | > Store Name Distributor Name
| > | >
| > | >
| > | > Jiffy JIF
| > | > Skippy SKIP
| > | > Kraft
| > | > Butterball BUTTER
| > | >
| > | >
| > | > I would want my macro to insert the text "Kraft" into the third row
of
| > | > data in the distributor column. I have toyed with the following
macro,
| > | >
| > | > to little success:
| > | >
| > | >
| > | > Dim i As Integer
| > | > Sheets("Data Mapping").Select
| > | > For i = 1 To 104
| > | > If Range("C & i + 7").Text = 0 Then
| > | > Range("A & i + 7").Select
| > | > Selection.Copy
| > | > Range("C & i +7").Select
| > | > ActiveSheet.Paste
| > | > Next i
| > | >
| > | >
| > | > (I have 104 rows of data that I want to "fill", starting in row 8).
| > | > Any input that you might have would be most appreciated. Thanks
| > | >
| > |
| > |
| >
| >
|
|

 

[Ron de Bruin]

Hi Jim

hard 3 minutes

3 seconds for you <g>