Ned help with Fill

[Sean15]

Hi:

I need to fill a large worksheet as follows:
all blank rows that follows a cell with a value should be filled with that cell value.
For example in column C below, C5, C6, C7 should be filled with value in C4.
Value in C8 must stay as is but C11, CC12 must be filled with value in C8

The same will apply to column D, E and F

Could someone help please?

Excel 2010
	C	D	E	F
2	Check	Date	Acct	Name
3	366329	07/27/18	63358	John Peter
4	366570	08/24/18	63358	John Peter
5
6
7
8	361289	03/24/17	467	Mike James
9
10	361361	03/31/17	63404	Joan Yell
11
12
13	Required values:
14	Check	Date	Acct	Name
15	366329	07/27/18	63358	John Peter
16	366570	08/24/18	63358	John Peter
17	366570	08/24/18	63358	John Peter
18	366570	08/24/18	63358	John Peter
19	366570	08/24/18	63358	John Peter
20	361289	03/24/17	467	Mike James
21	361289	03/24/17	467	Mike James
22	361361	03/31/17	63404	Joan Yell
Sheet2

 

[gaganexcel]

Hi ,

Make a name range and then use the code below. Error can come in case first cell is empty too (Hope that wont be an issue in you case)

Sub test()
For Each cl In ActiveSheet.Range("rngtest")
If cl.Value = "" Then
cl.Value = cl.Offset(-1).Value

End If
Next




End Sub

 

[Sean15]

Hi:

I did TRIM(CLEAN) on columns E & F (data range in post#1). Also there are no formulas in data range. Code in post#6 is still producing results listed in post #7 .

Code in post#4 – I just realized it needs to fill data in row 11. So Peter_SS is correct. I did not tell how far to fill the values. So I’ll steal Peter_SS’s idea that we should use data elsewhere in my sheet to determine where the fill should go to. Let’s use column G because it will never contains any blank cells (up to my data range which changes frequently).

Below are the headers of my real data. Could you amend your code to suit?

Excel 2010
	B	C	D	E	F	G	H	I	J	K	L	M
1	Check history
2										1 of 1
3
4										9/21/2018 2:43 PM
5	XXXXX
6
7
8
9		Check	Date	Acct	Name	Invoice	Invoice description		Check status	Invoice amount		Check amount
Test filldownplease code

Thanks very much

Regards,

Sean

 

[Peter_SSs]

It is not clear where you want data filled.
Initially you showed us columns C:F with headers in row 2. Now you are showing columns B:M with headers in row 9.
Please clarify which screen shot we should be looking at and what columns and rows we should be looking in for blanks to fill.

 

[My Aswer Is This]

Try this:
Uses Column G as last Row like you mentioned in last post:

[LEFT][COLOR=#333333][FONT=monospace]Sub Filldown_Please()
'Modified 9/30/2018 9:54 PM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "G").End(xlUp).Row
For i = 3 To Lastrow
    If Cells(i, "C").Value = "" Then Cells(i, "C").Resize(, 4).Value = Cells(i, "C").Offset(-1).Resize(, 4).Value
Next
Application.ScreenUpdating = True
End Sub[/FONT][/COLOR][/LEFT]

I modified this for you.

You should be able to read code and see Lastrow:
And see I used G
Next time you should now know how to modify that.

 

[Sean15]

Hi:

I modified this for you.

This is excellent. Thank you so very much.


Regards,

Sean

 

[My Aswer Is This]

Glad I was able to help you.