Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

Hi i am not familiar with VBA code but i know java. I am looking to create a macro that checks if a cell is not blank and autofill the cells in another column but in the same row with the formula above them. Any ideas??

    975   805040   2065bc210    325647998522
    976   802030   2089bc212    325647956721
    977                        *325647964751*
    978                        *325647967866*
    979                        *325647964452*

Sorry for the lack of details. This is an example of my excel the left are the numbers of rows i need to autofill the other collumns when i add manually the numbers in stars. The other columns get their information from a formula. I cann't post a pic because my reputation is low.

Something like that but didn't worked

Sub CheckCell()
    Dim i As Integer
       i = 3

     Do
      Selection.AutoFill Destination:=Range("Ai:A(i+1)"), Type:=xlFillDefault  
     i = i+1
    Loop While (ActiveSheet.Range("Bi").Value != "")
 End Sub
share|improve this question
    
If you turn on Record Macro before completing the process manually (and then off again afterwards) examination of the resultant code may help you. –  pnuts Mar 20 '13 at 13:47
    
i did that but the check is not recorded because i do it visual.I want the macro to autofill the other columns like i do with draging-aytofill until the last row of the cells that i added –  rexxar Mar 20 '13 at 14:02
    
Please edit your question with more details about how the data is laid out and what the "autofill" source data is. What does "in the same row with the formula above them" mean? You say VBA and formula in the same question. Which do you want to use? –  CharlieRB Mar 20 '13 at 14:33

2 Answers 2

This can be done in a couple ways;
(These examples assume cell to check is A2 and the autofill text is to go into B2. Adjust accordingly)

With a formula (placed in the cell you want the autofill text)

=IF(ISBLANK(A2),"autofill text","")

With VBA

Sub CheckCell()

    If ActiveSheet.Range("A2").Value = "" Then
        ActiveSheet.Range("B2").Value = "Autofill"
    End If

End Sub

NOTE: These examples are very basic and vague because you did not provide a lot of details in your question.

share|improve this answer
    
edited my question please check again –  rexxar Mar 21 '13 at 8:54

After better searching the internet and testing i found this code worked.

Sub FillCells()

Dim i As Long
Dim k As Long
    With ActiveSheet
    k = .Cells(.Rows.Count, "K").End(xlUp).Row
    i = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
Range("a" & i & ":a" & k).Formula = Range("A" & i).Formula
Range("B" & i & ":B" & k).Formula = Range("B" & i).Formula
Range("C" & i & ":C" & k).Formula = Range("C" & i).Formula
Range("D" & i & ":D" & k).Formula = Range("D" & i).Formula
Range("E" & i & ":E" & k).Formula = Range("E" & i).Formula
Range("F" & i & ":F" & k).Formula = Range("F" & i).Formula
Range("G" & i & ":G" & k).Formula = Range("G" & i).Formula
Range("H" & i & ":H" & k).Formula = Range("H" & i).Formula
Range("I" & i & ":I" & k).Formula = Range("I" & i).Formula
Range("J" & i & ":J" & k).Formula = Range("J" & i).Formula
Range("M" & i & ":M" & k).Formula = Range("M" & i).Formula
Range("N" & i & ":N" & k).Formula = Range("N" & i).Formula
Range("O" & i & ":O" & k).Formula = Range("O" & i).Formula
Range("P" & i & ":P" & k).Formula = Range("P" & i).Formula
Range("U" & i & ":U" & k).Formula = Range("U" & i).Formula
Range("Y" & i & ":Y" & k).Formula = Range("Y" & i).Formula
Range("Z" & i & ":Z" & k).Formula = Range("Z" & i).Formula

End Sub
share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.