How do I prompt a user with a dialog box

M

MHARTMAN

I am new to programing in Excel and would like to creat a front end dialog
that prompts the user for a date. Then returning information be in a text
field so they can copy it and paste into their apps.

Is this even possible?

Here is a macro I made the extract the info and filters it. It is all hard
coded.

Sub DOOR_COUNTS()
'
' DOOR_COUNTS Macro
' Macro recorded by m.hartman
'

'
Workbooks.OpenText Filename:="\\Softail\doorcount\Count\Main.txt",
Origin:= _
437, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:="|",
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 2), Array(6, 1),
Array(7, 2), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13,
1)), _
TrailingMinusNumbers:=True
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").ColumnWidth = 18.57
Columns("B:B").Select
Selection.ColumnWidth = 13.71
Selection.ColumnWidth = 16
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "DOOR ID"
Range("B1").Select
ActiveCell.FormulaR1C1 = "DESCRIPTION"
Range("C1").Select
ActiveCell.FormulaR1C1 = "DATE"
Range("D1").Select
ActiveCell.FormulaR1C1 = "IN"
Range("E1").Select
ActiveCell.FormulaR1C1 = "OUT"
Range("A1:E1").Select
With Selection.Interior
.ColorIndex = 56
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
Selection.Font.Bold = True
Range("E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="11/21/2005 22:00:00"

Workbooks.OpenText Filename:="\\Softail\doorcount\Count\Buell.txt",
Origin:= _
437, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:="|",
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 2), Array(6, 1),
Array(7, 2), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13,
1)), _
TrailingMinusNumbers:=True
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").ColumnWidth = 18.57
Columns("B:B").Select
Selection.ColumnWidth = 13.71
Selection.ColumnWidth = 16
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "DOOR ID"
Range("B1").Select
ActiveCell.FormulaR1C1 = "DESCRIPTION"
Range("C1").Select
ActiveCell.FormulaR1C1 = "DATE"
Range("D1").Select
ActiveCell.FormulaR1C1 = "IN"
Range("E1").Select
ActiveCell.FormulaR1C1 = "OUT"
Range("A1:E1").Select
With Selection.Interior
.ColorIndex = 56
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
Selection.Font.Bold = True
Range("E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="11/21/2005 22:00:00"

Workbooks.OpenText
Filename:="\\Softail\doorcount\Count\Service.txt", Origin:= _
437, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:="|",
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 2), Array(6, 1),
Array(7, 2), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13,
1)), _
TrailingMinusNumbers:=True
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").ColumnWidth = 18.57
Columns("B:B").Select
Selection.ColumnWidth = 13.71
Selection.ColumnWidth = 16
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "DOOR ID"
Range("B1").Select
ActiveCell.FormulaR1C1 = "DESCRIPTION"
Range("C1").Select
ActiveCell.FormulaR1C1 = "DATE"
Range("D1").Select
ActiveCell.FormulaR1C1 = "IN"
Range("E1").Select
ActiveCell.FormulaR1C1 = "OUT"
Range("A1:E1").Select
With Selection.Interior
.ColorIndex = 56
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
Selection.Font.Bold = True
Range("E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="11/21/2005 22:00:00"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Open a GroupWise .NAB File 6
Complie Syntax Error 6
Macro not returning correct data 3
Different Results from the Same Macro 3
Error with calling Format sub 7
Forcing xl2K7 Column Count back to xl2K3 size 3
Permutations andText to column problem 6
Why is Excel 2007 macro creating extra blank rows? 1

Top