M
Mark
I'm not a profesional programmer but I know enough to mess stuff up! I have
a form that will be filled out and there is a submit button on the bottom.
On submit the information is passed to a CSV file. This is my first time
trying to pass info to a CSV. When ever I submit the form, the cell a1 on
ends up being 255 # signs. I'll attach my code, I'm hoping someone can shed
some light on thi for me.
------------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
'Submits information entered into form to master escalation list
Application.ScreenUpdating = True
Dim workingdir As String
Dim Workingfilename As String
Dim workinglocation As String
Dim escnum As String
Dim cnt As String
Dim RngMax As Variant
workingdir = "\\rci.rogers.ca\dfsdata\rss\bu 03\resp 7077\dept
200\Leadership Team\Cable Specific\Mark's Templates & Reports\Escalation
Project\"
Workingfilename = "master.csv"
workinglocation = workingdir & Workingfilename
If IsFileOpen(workinglocation) = True Then
MsgBox ("The file is in use, wait a moment and try again.")
Exit Sub
Else
'On Error Resume Next
Workbooks.Open (workinglocation)
'Application.Wait (Now() + TimeValue("0:00:05"))
a = 2
cnt = 1
If Cells(1, 1) <> "" Then
Do While ActiveSheet.Cells(a, 1) <> ""
a = a + 1
cnt = cnt + 1
Loop
End If
RngMax = WorksheetFunction.Max(Range(Cells(1, 1), Cells(cnt, 1)))
escnum = 20080000 + cnt
If escnum < RngMax Then
escnum = RngMax + 1
End If
Cells(a, 1) = escnum
Cells(a, 2) = Now()
Selection.NumberFormat = "d-mmm-yy h:mm;@"
Cells(a, 3) = CxName
Cells(a, 4) = AcctNum
Cells(a, 5) = PriNum
Cells(a, 6) = AltNum
Cells(a, 7) = CBTime
Cells(a, 8) = Dept
Cells(a, 9) = askfs
Cells(a, 10) = FSName
Cells(a, 11) = EscDets
Cells(a, 12) = "Pending"
'escmemo = Cells(a, 1)
Workbooks("master.csv").Close (True)
Escalation_Form.Hide
MsgBox ("Your Escalation has been sent " & "Escalation number: "
& escnum)
End If
End Sub
a form that will be filled out and there is a submit button on the bottom.
On submit the information is passed to a CSV file. This is my first time
trying to pass info to a CSV. When ever I submit the form, the cell a1 on
ends up being 255 # signs. I'll attach my code, I'm hoping someone can shed
some light on thi for me.
------------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
'Submits information entered into form to master escalation list
Application.ScreenUpdating = True
Dim workingdir As String
Dim Workingfilename As String
Dim workinglocation As String
Dim escnum As String
Dim cnt As String
Dim RngMax As Variant
workingdir = "\\rci.rogers.ca\dfsdata\rss\bu 03\resp 7077\dept
200\Leadership Team\Cable Specific\Mark's Templates & Reports\Escalation
Project\"
Workingfilename = "master.csv"
workinglocation = workingdir & Workingfilename
If IsFileOpen(workinglocation) = True Then
MsgBox ("The file is in use, wait a moment and try again.")
Exit Sub
Else
'On Error Resume Next
Workbooks.Open (workinglocation)
'Application.Wait (Now() + TimeValue("0:00:05"))
a = 2
cnt = 1
If Cells(1, 1) <> "" Then
Do While ActiveSheet.Cells(a, 1) <> ""
a = a + 1
cnt = cnt + 1
Loop
End If
RngMax = WorksheetFunction.Max(Range(Cells(1, 1), Cells(cnt, 1)))
escnum = 20080000 + cnt
If escnum < RngMax Then
escnum = RngMax + 1
End If
Cells(a, 1) = escnum
Cells(a, 2) = Now()
Selection.NumberFormat = "d-mmm-yy h:mm;@"
Cells(a, 3) = CxName
Cells(a, 4) = AcctNum
Cells(a, 5) = PriNum
Cells(a, 6) = AltNum
Cells(a, 7) = CBTime
Cells(a, 8) = Dept
Cells(a, 9) = askfs
Cells(a, 10) = FSName
Cells(a, 11) = EscDets
Cells(a, 12) = "Pending"
'escmemo = Cells(a, 1)
Workbooks("master.csv").Close (True)
Escalation_Form.Hide
MsgBox ("Your Escalation has been sent " & "Escalation number: "
& escnum)
End If
End Sub