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

 

[mole999]

how do you see your rules, line one has 3 Y and 2 X for Y and X, how do you develop that

 

[eran3185]

Anybody ?

 

[My Aswer Is This]

We need more details. I do not understand.
You have not supplied us with any details about where your data is or how you come up with your results shown previously.

Anybody ?

 

[Peter_SSs]

Does this macro do what you want? Test on a copy of your workbook.
I have assumed there will always be at least one blank cell otherwise you wouldn't run the code.

Sub FillBlanksLeft()
  Application.ScreenUpdating = False
  With ActiveSheet.UsedRange
    .SpecialCells(xlBlanks).FormulaR1C1 = "=IF(COUNTA(RC[1]:RC[" & .Columns.Count & "]),RC[1],"""")"
    .Value = .Value
  End With
  Application.ScreenUpdating = True
End Sub

Before:

Book1
	A	B	C	D	E	F
1			Y		X
2	Y		X
Fill blanks

After:

Book1
	A	B	C	D	E	F
1	Y	Y	Y	X	X
2	Y	X	X
Fill blanks

 

[eran3185]

TNX
Its look great !!!

 

[Peter_SSs]

TNX
Its look great !!!

You are very welcome. (Hopefully you have actually tried it and aren't just going on looks. )

 

[eran3185]

Its work great !!

 

[Peter_SSs]

Its work great !!

That's more reassuring than 'looks'.
Thanks for letting us know.

 

[eran3185]

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

Tnx
eran