selecting next empty cell

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
 
Hi - I found this old thread that I need the answer to, but there were no replies.

How do you find the next empty cell in a spreadhseet?

This line of code does not work: oSheet.Range("A1").Select(xl.XlDirection.xlDown)

Thanks in advance
 
Back
Top