Conditional MIN() & MAX()

We can get the conditional Minimum and Maximum values using as array function.

function used as follows

Press CTRL+Shift+Enter ..... to get result or convert the formula as array function.

Check the Autofilter whether it is on or Off

Sub CheckAutofilter()

Dim wks As Worksheet

 

For Each wks In ActiveWorkbook.Worksheets

Range("A2").Select
If Not ActiveSheet.AutoFilterMode = True Then
Selection.AutoFilter
Else
Selection.AutoFilter
End If

Next

End Sub

---

See the Web's breaking stories, chosen by people like you. Check out Yahoo! Buzz.

Import Excel file using VBA in Access.

'********** Component details ****************
' Add "Microsoft office 10.1 Object Library from Tools > Referance.
' Command2 as Browse Button
' Command3 as Import Button
' Text0 as Textbox
'*********************************************

Private Sub Command2_Click()
' For Get the traget file name along with path
On Error GoTo lb1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
Text0.Value = fd.SelectedItems(1)
Exit Sub
lb1:
MsgBox "No File selected"
Text0.Value = Empty
End Sub


Private Sub Command3_Click()
' To import the targeted file for which path is stored in "Text0" Textbox
aa = InputBox("Please enter the 'Table Name'", "Table Name", "Tbl" & Format(Now, "hhmmss"))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel, aa, Text0.Value, -1
End Sub