Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
User Form's
I am using ECEL for MAC. I wrote a USER Form to into a data base. But every
new entry erases the previous one. Any ideals on how to fix? Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Comic Collection") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row If Trim(Me.TextBook_Name.Value) = "" Then Me.TextBook_Name.SetFocus MsgBox "Please enter a Comic Name" Exit Sub End If ws.Cells(iRow, 1).Value = Me.TextBook_Name.Value ws.Cells(iRow, 2).Value = Me.TextPublisher.Value ws.Cells(iRow, 3).Value = Me.TextImprint.Value ws.Cells(iRow, 4).Value = Me.TextSeries_Began.Value ws.Cells(iRow, 5).Value = Me.TextSeries_Ended.Value ws.Cells(iRow, 6).Value = Me.TextFirst_Issue.Value ws.Cells(iRow, 7).Value = Me.TextLast_Issue.Value ws.Cells(iRow, 8).Value = Me.TextFormat.Value ws.Cells(iRow, 9).Value = Me.TextCountry.Value ws.Cells(iRow, 10).Value = Me.TextLanguage.Value ws.Cells(iRow, 11).Value = Me.TextIssue_Number.Value End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Please use the button!" End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
User Form's
Bill
You need to check the location first by using an if statement to see if the location already has data in it. If it does then use an offset to get to the next open cell with a do loop. -- Roland "Bill the Newbie" wrote: I am using ECEL for MAC. I wrote a USER Form to into a data base. But every new entry erases the previous one. Any ideals on how to fix? Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Comic Collection") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row If Trim(Me.TextBook_Name.Value) = "" Then Me.TextBook_Name.SetFocus MsgBox "Please enter a Comic Name" Exit Sub End If ws.Cells(iRow, 1).Value = Me.TextBook_Name.Value ws.Cells(iRow, 2).Value = Me.TextPublisher.Value ws.Cells(iRow, 3).Value = Me.TextImprint.Value ws.Cells(iRow, 4).Value = Me.TextSeries_Began.Value ws.Cells(iRow, 5).Value = Me.TextSeries_Ended.Value ws.Cells(iRow, 6).Value = Me.TextFirst_Issue.Value ws.Cells(iRow, 7).Value = Me.TextLast_Issue.Value ws.Cells(iRow, 8).Value = Me.TextFormat.Value ws.Cells(iRow, 9).Value = Me.TextCountry.Value ws.Cells(iRow, 10).Value = Me.TextLanguage.Value ws.Cells(iRow, 11).Value = Me.TextIssue_Number.Value End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Please use the button!" End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Scrolling in a form's listbox | Excel Programming | |||
Having one form show another form's input? | New Users to Excel | |||
Form's design change | Excel Programming | |||
Problems with a Form's behaviour | Excel Programming | |||
A Form's Rowsourse Format | Excel Programming |