Improve company productivity with a Business Account.Sign Up

x
?
Solved

Autofill in Excel with VBA repeatedly in same column

Posted on 2011-03-14
4
Medium Priority
?
652 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 1000 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

What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
Debits & Credits have been the foundation of financial record keeping since 1494 - over 500 years. Excel is a brilliant tool for leveraging this ancient power - not least with Pivot Tables, sorting and filtering.  This article seeks by illustration …
Starting up a Project
A query can call a function, and a function can call Excel, even though we are in Access. This is Part 2, and steps you through the VBA that "wraps" Excel functionality so we can use its worksheet functions in Access. The declaration statement de…

579 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