Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I searched the users group and came up with some changes, but still cannot
get this portion of my macro to work! On the first example Marked by '*, I get a hard halt. My second example the WorkSheet never has any data in it? I will be happy with either method, if someone knows what is wrong? ClassAAAA Dim wkst As Worksheet ' Current Sheet Dim lbls As Workbook Dim wslb As Worksheet ' Work Sheet Dim lastRow As Long Set wkst = ActiveSheet Set lbls = Workbooks.Add(1) Set wslb = lbls.Worksheets(1) lbls.Title = "Letters to Educators" lbls.Subject = "Grades" With wkst .AutoFilterMode = False .Columns(12).AutoFilter Field:=1, Criterial:="AAA" '* Application-defined or Object-defined Error .Columns(2).Copy wslb.Columns(2) .Columns(5).Copy wslb.Columns(3) .Columns(7).Copy wslb.Columns(4) .Columns(8).Copy wslb.Columns(5) .Columns(9).Copy wslb.Columns(6) End With wslb.SaveAs Filename:="C:\ExcelExp\TxLabels.xls", FileFormat:=xlNormal MsgBox "Class AAAA Completed" End Sub ' Also Tried Thsi Method Sub ClassAAA() Dim wkst As Worksheet ' Current Sheet Dim lbls As Workbook Dim wslb As Worksheet ' Work Sheet Dim lastRow As Long Dim chkClass As String Set wkst = ActiveSheet lastRow = Range("L" & Rows.Count).End(xlUp).Row Range("L1").Select chkClass = "AAA" SelCol = InputBox("Enter the Column for the Educator You Want to Send Letters to:!") Set lbls = Workbooks.Add With lbls .Title = "Letters to Educators" .Subject = "Grades" End With Set wslb = ActiveSheet Do Until ActiveCell.Row lastRow If ActiveCell.Value = chkClass Then '* ActiveCell.Value is Always Empty wkst.Columns(3).Copy wslb.Columns(2) wkst.Columns(5).Copy wslb.Columns(3) wkst.Columns(7).Copy wslb.Columns(4) wkst.Columns(8).Copy wslb.Columns(5) End If ActiveCell.Offset(1, 0).Activate ' Move to Next Row Loop wslb.SaveAs Filename:="C:\ExcelExp\TxLabels.xls", FileFormat:=xlNormal MsgBox "Class AAA Completed" End Sub There is just something I am not understanding, one of my worksheets must have something in memory? Again, a lot of this code came from users in the group. Thanks Again J.Q. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Problem using Autofilter | Excel Programming | |||
PROBLEM WITH AUTOFILTER | New Users to Excel | |||
AutoFilter VBA Problem | Excel Discussion (Misc queries) | |||
Autofilter problem | Excel Programming | |||
Problem with autofilter in VBA | Excel Programming |