Solved

Autofill in Excel with VBA repeatedly in same column

Posted on 2011-03-14
4
630 Views
Last Modified: 2013-11-10
I have some Excel files with a few million records between them, and they are grouped by source filename. I would like to write a VBA macro that places the source filename of each record in the first column so they will be easy to trace when I combine them into a database.

I am assuming the best way to do this is to use autofill coding on some sort of loop but I'm having trouble with the autofill part. The files are laid out exactly like in the exampleData tab in the attached file and I would like it to look like the solution tab. Thanks!
exampleData.xlsx
0
Comment
Question by:dzielinski
  • 3
4 Comments
 
LVL 39

Expert Comment

by:nutsch
ID: 35133803
Try this code:

Sub quickcleanup()
Dim rg As Range
Set rg = Range(Cells(3, 2), Cells(ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1, 2))

Application.ScreenUpdating = False

With rg

    .AutoFilter field:=1, Criteria1:="=C:\*"
    .Offset(, -1).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=RC[1]"
    .AutoFilter

    .Offset(, -1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Offset(, -1).Value = .Offset(, -1).Value


    .AutoFilter field:=1, Criteria1:="=C:\*"
    .SpecialCells(xlCellTypeVisible).Offset(, -1).ClearContents

End With

Set rg = Range(Cells(3, 2), Cells(ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1, 2))

With rg
    .AutoFilter field:=1, Criteria1:="=~***"
    .SpecialCells(xlCellTypeVisible).Offset(, -1).ClearContents
    
    .AutoFilter
End With

Application.ScreenUpdating = True

End Sub

Open in new window


Thomas
0
 
LVL 39

Accepted Solution

by:
nutsch earned 250 total points
ID: 35133812
Little cleaner update

Sub quickcleanup()
Dim rg As Range
Set rg = Range(Cells(3, 2), Cells(ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1, 2))

Application.ScreenUpdating = False

With rg

    .AutoFilter field:=1, Criteria1:="=C:\*"
    .Offset(, -1).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=RC[1]"
    .AutoFilter

    .Offset(, -1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Offset(, -1).Value = .Offset(, -1).Value

    .AutoFilter field:=1, Criteria1:="=C:\*"
    .SpecialCells(xlCellTypeVisible).Offset(, -1).ClearContents

    .AutoFilter field:=1, Criteria1:="=~***"
    .SpecialCells(xlCellTypeVisible).Offset(, -1).ClearContents
    
    .AutoFilter field:=1, Criteria1:="="
    .SpecialCells(xlCellTypeVisible).Offset(, -1).ClearContents
    
    .AutoFilter
End With

Application.ScreenUpdating = True

End Sub

Open in new window

0
 

Author Closing Comment

by:dzielinski
ID: 35134088
Clean and quick. You are awesome, nutsch. Thanks!
0
 
LVL 39

Expert Comment

by:nutsch
ID: 35134115
Glad to help. Thanks for your appreciation.

Thomas
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

930 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

22 Experts available now in Live!

Get 1:1 Help Now