This is close and might get you a kickstart.
Sub selectme()
''''''''''''''''''''''''''
'Original Script Written by www.ozgrid.com
''''''''''''''''''''''''''
Dim rRange As Range
Dim strCriteria As String, strCriteria2 As String
Dim lCol As Long
Dim rHeaderCol As Range
Dim xlCalc As XlCalculation
On Error Resume Next
Step1:
Set rRange = Range("A1").CurrentRegion
'Cancelled or non valid rage
If rRange Is Nothing Then Exit Sub
'Awlays use GoTo when selecting range so doesn't matter which Worksheet
Application.Goto rRange.Rows(1), True
step2:
lCol = 1
'Cancelled
If lCol = 0 Then Exit Sub
Step3:
strCriteria = frmExport.txtStart
strCriteria2 = frmExport.txtEnd
'Store current Calculation then switch to manual.
'Turn off events and screen updating
With Application
xlCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
'Remove any filters
ActiveSheet.AutoFilterMode = False
With rRange 'Filter, offset(to exclude headers)
.AutoFilter Field:=lCol, Criteria1:=">=" & strCriteria,
Operator:=XlAutoFilterOperator.xlAnd, Criteria2:="<=" & strCriteria2
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Select
End With
'Remove any filters
'ActiveSheet.AutoFilterMode = False
'Revert back
With Application
.Calculation = xlCalc
.EnableEvents = True
.ScreenUpdating = True
End With
On Error GoTo 0
End Sub
On Monday, November 19, 2012 1:55:03 PM UTC-5, Mangesh wrote:
> Hi Friends,
>
> I have attached the file where I need to export specific range to another
> excel file which to be save on C: drive.
>
> I have created userform for this as well.
>
> Need vba code to perform this task.
>
> Waiting for the solution.
>
> Please help !!!
>
> --
> With regards,
>
> *MaNgEsH*
>
>
--
Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros?hl=en.
