Solved

Need macro to fill cells below NUMBER with that number....

Posted on 2011-02-10
12
259 Views
Last Modified: 2013-11-05
Related to link:
http://www.experts-exchange.com/Microsoft/Applications/Microsoft_Office/Excel/Q_26812809.html#a34865488

I need a macro that will FILL the blanks BELOW each NUMBER with this same number.

So if the first number on row 10 is:  276065406

I need for every BLANK ROW cell below that to have this same number. Then, when a new number appears, I need the same thing...fill the blank cells below that with this number,..and so on..and so on.....

THANKS

CRXIuser2005-Datafile-TOFILL.xlsm
0
Comment
Question by:MIKE
  • 6
  • 6
12 Comments
 
LVL 17

Author Comment

by:MIKE
Comment Utility
No need to working about the blanks in rows 1-9....
0
 
LVL 30

Expert Comment

by:SiddharthRout
Comment Utility
Here is the Excel File updated with same numbers in the respective blank cells.

Sid

Code used

Dim i As Long, j As Long
Sub Sample()
    Dim lastrow As Long
    
    lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    
    For j = 1 To lastrow
        On Error Resume Next
        If OnlyNumbers(Sheets("Sheet1").Range("A" & j).Value) = False Then _
        Sheets("Sheet1").Range("A" & j).ClearContents

        On Error GoTo 0
    Next

    For j = lastrow To 1 Step -1
        If IsNumeric(Sheets("Sheet1").Range("A" & j)) And _
        Len(Trim(Sheets("Sheet1").Range("A" & j + 1).Value)) = 0 Then
            Sheets("Sheet1").Range("A" & j + 1) = Sheets("Sheet1").Range("A" & j)
        End If
    Next
End Sub

Function OnlyNumbers(strInput As String) As Boolean
    Dim strChar As String, strOutput As String
    
    OnlyNumbers = True
    strOutput = ""

    For i = 1 To Len(strInput)
        strChar = Mid(strInput, i, 1)
        If Not (IsNumeric(strChar)) Then
            OnlyNumbers = False
            Exit Function
        End If
    Next i
End Function

Open in new window

CRXIuser2005-Datafile-2.xlsm
0
 
LVL 17

Author Comment

by:MIKE
Comment Utility
You tha man,...but.... Need ALL BLANKS below the number to filled....sorry if I didn't explain enough.

You have the correct concept,..I need ALL blanks to be filled...thanks
0
 
LVL 17

Author Comment

by:MIKE
Comment Utility
This:
276065406


123456789


Becomes this down the column:
276065406
276065406
276065406
276065406
123456789
123456789
123456789
123456789
123456789
THEN NEXT..ETC..ETC..
0
 
LVL 30

Expert Comment

by:SiddharthRout
Comment Utility
Oh i thought immediate blank...

Just to confitm what will be in

cell A1-A9
Cell A14-A53
This will help me understand the concept

Sid
0
 
LVL 30

Expert Comment

by:SiddharthRout
Comment Utility
The example that you gave above

123456789

The number that comes after 276065406 is 8401258861

So if you refer to the file and compare the cells that I posted in ID: 34865770, what should be the values?

Sid
0
6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

 
LVL 17

Author Comment

by:MIKE
Comment Utility

cell A1-A9 should be blank
Cell A10 - A11 should have 276065406
Cell A12-A53 should have 8401258861

and so on down the column..
THANKS
0
 
LVL 17

Author Comment

by:MIKE
Comment Utility
example: 123456789

Was just me being lazy and making-up a number,...above is the real sample
0
 
LVL 30

Expert Comment

by:SiddharthRout
Comment Utility
Ok 5 mins

Sid
0
 
LVL 30

Accepted Solution

by:
SiddharthRout earned 500 total points
Comment Utility
Is this what you want? File updated.

Sid

Code Used

Dim i As Long, j As Long
Sub Sample()
    Dim lastrow As Long
    
    lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    
    For j = 1 To lastrow
        On Error Resume Next
        If OnlyNumbers(Sheets("Sheet1").Range("A" & j).Value) = False Then _
        Sheets("Sheet1").Range("A" & j).ClearContents

        On Error GoTo 0
    Next
    
    For j = 10 To lastrow - 1
        If Len(Trim(Sheets("Sheet1").Range("A" & j + 1).Value)) = 0 Then _
        Sheets("Sheet1").Range("A" & j + 1).Value = Sheets("Sheet1").Range("A" & j).Value
    Next
End Sub

Function OnlyNumbers(strInput As String) As Boolean
    Dim strChar As String, strOutput As String
    
    OnlyNumbers = True
    strOutput = ""

    For i = 1 To Len(strInput)
        strChar = Mid(strInput, i, 1)
        If Not (IsNumeric(strChar)) Then
            OnlyNumbers = False
            Exit Function
        End If
    Next i
End Function

Open in new window

CRXIuser2005-Datafile-2.xlsm
0
 
LVL 17

Author Comment

by:MIKE
Comment Utility
As far as I can see....this is exactly what I needed....thanks so much for your EXPERTISE!

0
 
LVL 30

Expert Comment

by:SiddharthRout
Comment Utility
You are welcome :)

Sid
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Drop Down List with Unique/Distinct Values (Part II - ComboBox or ListBox and Data Validation List Bonus!) David Miller (dlmille) Intro This article focuses on delivering unique, sorted lists to list objects (e.g., ComboBox, ListBox) and Dat…
Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now