Fill Blank Cells To Left

[eran3185]

Hi

I want to know if there is a way to to fill empty cells with value left.
i have this example:

e d c b a
1 Y X
2 Y X

I want to get this:
e d c b a
1 Y Y Y X X
2 Y X X

 

[Peter_SSs]

Hi peter.
Tnx again, but I have 1 more question/
Is there a way to run this code from left to right ?

Tnx
eran

Please explain exactly what you mean.

1. Your original headings in post #1 suggests that you may have "Show sheet right-to-left" turned on in your options. Is that the case?

2. Please give a small example of what you have, including showing where it is and what result you want.

 

[eran3185]

Sorry
I made this short example

Before:
xxx 2017/02 2017/03 2017/04 2017/05 2017/06 2017/07 2017/08 2017/09
A X X
B X
C Y Y
D X X
E X
F Y Y
G Y X
H X


After:
xxx 2017/02 2017/03 2017/04 2017/05 2017/06 2017/07 2017/08 2017/09
A X X X
B X X X
C Y Y Y
D X X X
E X X X
F Y Y Y
G Y Y X X
H X X

 

[eran3185]

I see that this paste not very good.
I will try again

 

[Peter_SSs]

Firstly, which post is easier to tell what columns and rows the data is in, this one or post #12 ?
You really can't expect people to keep trying to figure that out from such postings.
See my signature block below for more help on that.

If the data starts like this ..

Book1
	A	B	C	D	E	F	G	H	I
1	xxx	1/02/2017	1/03/2017	1/04/2017	1/05/2017	1/06/2017	1/07/2017	1/08/2017	1/09/2017
2	A						X	X
3	B						X
4	C						Y	Y
5	D						X	X
6	E						X
7	F						Y	Y
8	G					Y		X
9	H							X
Fill blanks

.. then this code ..

Sub FillBlanksRight()
  Application.ScreenUpdating = False
  With ActiveSheet.UsedRange.Offset(1, 1)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=IF(COUNTA(RC1:RC[-1])>1,RC[-1],"""")"
    .Value = .Value
  End With
  Application.ScreenUpdating = True
End Sub

.. produced this outcome.

Book1
	A	B	C	D	E	F	G	H	I
1	xxx	1/02/2017	1/03/2017	1/04/2017	1/05/2017	1/06/2017	1/07/2017	1/08/2017	1/09/2017
2	A						X	X	X
3	B						X	X	X
4	C						Y	Y	Y
5	D						X	X	X
6	E						X	X	X
7	F						Y	Y	Y
8	G					Y	Y	X	X
9	H							X	X
Fill blanks