ccbltd need help
New member
- Joined
- Mar 25, 2009
- Messages
- 4
- Programming Experience
- Beginner
Hi
Can someone help me i am creating an excel workbook in visual studio 2008 with a windows form attached which captures information of a client and puts data into sheet 1 (row b). I am doing this using text boxes and a submit command button. Unfortunately i can only get it to put data into a specific cell so everytime i submit it will just overwrite the previous data. the code i am using is as follos:
SHEET 1 MODULE
Private Sub Sheet1_open(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Dim inputForm As New Form1
inputForm.Show()
End Sub
Public Sub WriteStringToCell(ByVal formData As String)
Globals.Sheet1.Cells(2, "a").Value2 = formData
End Sub
Public Sub WriteStringToCell2(ByVal formData As String)
Globals.Sheet1.Cells(2, "b").Value2 = formData
End Sub
Public Sub WriteStringToCell3(ByVal formData As String)
Globals.Sheet1.Cells(2, "c").Value2 = formData
End Sub
Public Sub WriteStringToCell4(ByVal formData As String)
Globals.Sheet1.Cells(2, "d").Value2 = formData
End Sub
Public Sub WriteStringToCell5(ByVal formData As String)
Globals.Sheet1.Cells(2, "e").Value2 = formData
End Sub
Public Sub WriteStringToCell6(ByVal formData As String)
Globals.Sheet1.Cells(2, "f").Value2 = formData
End Sub
Public Sub WriteStringToCell7(ByVal formData As String)
Globals.Sheet1.Cells(2, "g").Value2 = formData
End Sub
Public Sub WriteStringToCell9(ByVal formData As String)
Globals.Sheet1.Cells(2, "h").Value2 = formData
End Sub
Public Sub WriteStringToCell10(ByVal formData As String)
Globals.Sheet1.Cells(2, "i").Value2 = formData
End Sub
Public Sub WriteStringToCell11(ByVal formData As String)
Globals.Sheet1.Cells(2, "j").Value2 = formData
End Sub
Public Sub WriteStringToCell12(ByVal formData As String)
Globals.Sheet1.Cells(2, "k").Value2 = formData
End Sub
Public Sub WriteStringToCell13(ByVal formData As String)
Globals.Sheet1.Cells(2, "l").Value2 = formData
End Sub
Public Sub WriteStringToCell14(ByVal formData As String)
Globals.Sheet1.Cells(2, "m").Value2 = formData
End Sub
Public Sub WriteStringToCell15(ByVal formData As String)
Globals.Sheet1.Cells(2, "n").Value2 = formData
End Sub
Public Sub WriteStringToCell16(ByVal formData As String)
Globals.Sheet1.Cells(2, "o").Value2 = formData
End Sub
Public Sub WriteStringToCell17(ByVal formData As String)
Globals.Sheet1.Cells(2, "p").Value2 = formData
End Sub
FORM 1 MODULE
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Globals.Sheet1.WriteStringToCell(Me.TextBox1.Text)
Globals.Sheet1.WriteStringToCell2(Me.TextBox2.Text)
Globals.Sheet1.WriteStringToCell3(Me.TextBox3.Text)
Globals.Sheet1.WriteStringToCell4(Me.TextBox4.Text)
Globals.Sheet1.WriteStringToCell5(Me.TextBox5.Text)
Globals.Sheet1.WriteStringToCell6(Me.TextBox6.Text)
Globals.Sheet1.WriteStringToCell7(Me.TextBox7.Text)
Globals.Sheet1.WriteStringToCell9(Me.TextBox8.Text)
Globals.Sheet1.WriteStringToCell10(Me.TextBox9.Text)
Globals.Sheet1.WriteStringToCell11(Me.TextBox10.Text)
Globals.Sheet1.WriteStringToCell12(Me.TextBox11.Text)
Globals.Sheet1.WriteStringToCell13(Me.TextBox12.Text)
Globals.Sheet1.WriteStringToCell14(Me.TextBox13.Text)
Globals.Sheet1.WriteStringToCell15(Me.TextBox14.Text)
Globals.Sheet1.WriteStringToCell16(Me.TextBox15.Text)
Globals.Sheet1.WriteStringToCell17(Me.TextBox16.Text)
This works fine for just one client but i need it to find next blank cell and row so it builds up a database.
can anyone Help me please hopefully its not too simple and i dont look too stupid haha
Regards
Dave
Can someone help me i am creating an excel workbook in visual studio 2008 with a windows form attached which captures information of a client and puts data into sheet 1 (row b). I am doing this using text boxes and a submit command button. Unfortunately i can only get it to put data into a specific cell so everytime i submit it will just overwrite the previous data. the code i am using is as follos:
SHEET 1 MODULE
Private Sub Sheet1_open(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Dim inputForm As New Form1
inputForm.Show()
End Sub
Public Sub WriteStringToCell(ByVal formData As String)
Globals.Sheet1.Cells(2, "a").Value2 = formData
End Sub
Public Sub WriteStringToCell2(ByVal formData As String)
Globals.Sheet1.Cells(2, "b").Value2 = formData
End Sub
Public Sub WriteStringToCell3(ByVal formData As String)
Globals.Sheet1.Cells(2, "c").Value2 = formData
End Sub
Public Sub WriteStringToCell4(ByVal formData As String)
Globals.Sheet1.Cells(2, "d").Value2 = formData
End Sub
Public Sub WriteStringToCell5(ByVal formData As String)
Globals.Sheet1.Cells(2, "e").Value2 = formData
End Sub
Public Sub WriteStringToCell6(ByVal formData As String)
Globals.Sheet1.Cells(2, "f").Value2 = formData
End Sub
Public Sub WriteStringToCell7(ByVal formData As String)
Globals.Sheet1.Cells(2, "g").Value2 = formData
End Sub
Public Sub WriteStringToCell9(ByVal formData As String)
Globals.Sheet1.Cells(2, "h").Value2 = formData
End Sub
Public Sub WriteStringToCell10(ByVal formData As String)
Globals.Sheet1.Cells(2, "i").Value2 = formData
End Sub
Public Sub WriteStringToCell11(ByVal formData As String)
Globals.Sheet1.Cells(2, "j").Value2 = formData
End Sub
Public Sub WriteStringToCell12(ByVal formData As String)
Globals.Sheet1.Cells(2, "k").Value2 = formData
End Sub
Public Sub WriteStringToCell13(ByVal formData As String)
Globals.Sheet1.Cells(2, "l").Value2 = formData
End Sub
Public Sub WriteStringToCell14(ByVal formData As String)
Globals.Sheet1.Cells(2, "m").Value2 = formData
End Sub
Public Sub WriteStringToCell15(ByVal formData As String)
Globals.Sheet1.Cells(2, "n").Value2 = formData
End Sub
Public Sub WriteStringToCell16(ByVal formData As String)
Globals.Sheet1.Cells(2, "o").Value2 = formData
End Sub
Public Sub WriteStringToCell17(ByVal formData As String)
Globals.Sheet1.Cells(2, "p").Value2 = formData
End Sub
FORM 1 MODULE
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Globals.Sheet1.WriteStringToCell(Me.TextBox1.Text)
Globals.Sheet1.WriteStringToCell2(Me.TextBox2.Text)
Globals.Sheet1.WriteStringToCell3(Me.TextBox3.Text)
Globals.Sheet1.WriteStringToCell4(Me.TextBox4.Text)
Globals.Sheet1.WriteStringToCell5(Me.TextBox5.Text)
Globals.Sheet1.WriteStringToCell6(Me.TextBox6.Text)
Globals.Sheet1.WriteStringToCell7(Me.TextBox7.Text)
Globals.Sheet1.WriteStringToCell9(Me.TextBox8.Text)
Globals.Sheet1.WriteStringToCell10(Me.TextBox9.Text)
Globals.Sheet1.WriteStringToCell11(Me.TextBox10.Text)
Globals.Sheet1.WriteStringToCell12(Me.TextBox11.Text)
Globals.Sheet1.WriteStringToCell13(Me.TextBox12.Text)
Globals.Sheet1.WriteStringToCell14(Me.TextBox13.Text)
Globals.Sheet1.WriteStringToCell15(Me.TextBox14.Text)
Globals.Sheet1.WriteStringToCell16(Me.TextBox15.Text)
Globals.Sheet1.WriteStringToCell17(Me.TextBox16.Text)
This works fine for just one client but i need it to find next blank cell and row so it builds up a database.
can anyone Help me please hopefully its not too simple and i dont look too stupid haha
Regards
Dave