Fill Up Various Cells

[Lauren111111]

Hi,

I am trying to Fill Up various cells in a spreadsheet. I have created the macro but it will only work if the cells are in a row, I need this completed for the selection in the whole sheet, is this possible at all?? This will take me forever selecting all the cells applicable with around 300 rows. It says the command cannot be used on multiple sections

Thankyou

 

[fadee2]

does your cell selection has any specific criteria?
For manual selection of specific cells, try the following:

With Selection
    Selection.Value = "Lauren111111"
End With

 

[Lauren111111]

No unfortunately not. The cells below are what I want copied upwards, these are the same but I cannot work my macro to do this?

e.g
Yellow
Green

Blue
Green

Red
Blue

I want to replace the top values of the values below if they = green. This would then show as

Green
Green

Green
Green

Red
Blue

 

[fadee2]

do you mean if a cell value is green then the value above that cell should be green as well???
If so, what is the frequency of green appearing in the worksheet?

I would suggest providing a sample workbook along with your query using xl2bb addin or dropbox or googledrive.

 

[Lauren111111]

Yes exactly that. There are many within the worksheet, all over the place. I think I am unable to download as it is a work pc

 

[fadee2]

Yes exactly that. There are many within the worksheet, all over the place. I think I am unable to download as it is a work pc

try

Sub xyz()
Dim rng As Range
Dim cell As Range

Set rng = ActiveSheet.UsedRange                             'Change the range with reference to your dataset

For Each cell In rng.Cells
    If cell = "Green" Then
        cell.Offset(-1) = cell
    End If
Next cell
End Sub

This will loop through each cell in your used range looking for Green and will change the value of the cell above on each occurrence of Green.

hth....

 

[Lauren111111]

That is brilliant thankyou so much!!! Genius

 

[fadee2]

[ICODE][/ICODE]You are very welcome....