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
"Ron de Bruin" wrote in message
...
| I am attempting to create a macro
| Oops, thanks Jim
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| "Jim Rech" wrote in message
...
| 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
| "Ron de Bruin" wrote in message
| ...
| | Hi Paul
| |
| | Use this example (almost the same)
| | http://www.contextures.com/xlDataEntry02.html
| |
| | --
| | Regards Ron de Bruin
| | http://www.rondebruin.nl
| |
| |
| | wrote in message
| ups.com...
| | 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
| |
| |
| |
|
|
|
|