Results 1 to 9 of 9

run time error 424 object not found

Threaded View

GingerJah run time error 424 object not... 05-12-2010, 06:13 AM
Marcol Re: run time error 424 object... 05-12-2010, 06:18 AM
Domski Re: run time error 424 object... 05-12-2010, 06:21 AM
GingerJah Re: run time error 424 object... 05-12-2010, 06:29 AM
Bob Phillips Re: run time error 424 object... 05-12-2010, 06:18 AM
romperstomper Re: run time error 424 object... 05-12-2010, 06:33 AM
GingerJah Re: run time error 424 object... 05-12-2010, 06:41 AM
romperstomper Re: run time error 424 object... 05-12-2010, 06:52 AM
Marcol Re: run time error 424 object... 05-12-2010, 06:41 AM
  1. #1
    Registered User
    Join Date
    05-12-2010
    Location
    Plymouth
    MS-Off Ver
    Excel 2003
    Posts
    3

    run time error 424 object not found

    Im trying to create a data form to upload details to spreadsheet. I have created the form in VBA but when I try and play it i get the error message "run time error 424 object not found." I cant seem to find the problem in the code and have stared at it for so long I feel a bit like an eskino staring at the snow. Any suggestions will be welcome below is the code

    Private Sub cmdCancel_Click()
    
    
        Unload Me
    
    End Sub
    
    
    
    Private Sub cmdClearForm_Click()
    
        Call UserForm_Initialize
    
    End Sub
    
    
    
    
    
    
    Private Sub cmdOK_Click()
    
        ActiveWorkbook.Sheets("Sheet 1").Activate
    
        Range("A3").Select
    
    
        ActiveCell.Value = cboCSR.Value
    
        ActiveCell.Offset(0, 1) = txtDate.Value
    
        ActiveCell.Offset(0, 2) = txtCaseNo.Value
    
        ActiveCell.Offset(0, 3) = txtCallbackDate.Value
    
        ActiveCell.Offset(0, 4) = txtTimeWindow.Value
        
        ActiveCell.Offset(0, 5) = cboAssign.Value
        
        ActiveCell.Offset(0, 6) = txtContactNo.Value
        
        ActiveCell.Offset(0, 7) = txtOrangeNo.Value
    
    
    
            End If
    
        End If
    
        Range("A3").Select
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    txtName.Value = ""
    
    txtDate.Value = ""
        
        With cboCSR
    
            .AddItem "Andy"
    
            .AddItem "Ian"
    
            .AddItem "Vici"
    
            .AddItem "Marcia"
    
            .AddItem "Nina"
    
            .AddItem "Emma"
    
            .AddItem "Wendy"
    
            .AddItem "Dave"
    
            .AddItem "George"
    
            .AddItem "Nick"
    
            .AddItem "Alina"
            
            .AddItem "Janey"
    
            .AddItem "Debbie"
    
            .AddItem "Sharon"
            
            .AddItem "Mark M"
    
            .AddItem "Mark B"
    
            .AddItem "Kayley"
    
            .AddItem "Andrea"
    
            .AddItem "Gill"
    
            .AddItem "Suzanne"
    
            .AddItem "Linda"
    
            .AddItem "Sheena"
    
            .AddItem "Alison"
    
            .AddItem "Katie"
    
            .AddItem "Paula"
            
            .AddItem "Joe"
    
            .AddItem "Gary"
    
            .AddItem "Annie"
            
    End With
    
        cboCSR.Value = ""
        
        txtCaseNo.Value = ""
    
        txtCallbackDate.Value = ""
    
        txtTimeWindow.Value = ""
        
       With cboAssign
    
            .AddItem "Andy"
    
            .AddItem "Ian"
    
            .AddItem "Vici"
    
            .AddItem "Marcia"
    
            .AddItem "Nina"
    
            .AddItem "Emma"
    
            .AddItem "Wendy"
    
            .AddItem "Dave"
    
            .AddItem "George"
    
            .AddItem "Nick"
    
            .AddItem "Alina"
            
            .AddItem "Janey"
    
            .AddItem "Debbie"
    
            .AddItem "Sharon"
            
            .AddItem "Mark M"
    
            .AddItem "Mark B"
    
            .AddItem "Kayley"
    
            .AddItem "Andrea"
    
            .AddItem "Gill"
    
            .AddItem "Suzanne"
    
            .AddItem "Linda"
    
            .AddItem "Sheena"
    
            .AddItem "Alison"
    
            .AddItem "Katie"
    
            .AddItem "Paula"
            
            .AddItem "Joe"
    
            .AddItem "Gary"
    
            .AddItem "Annie"
            
    End With
    
        cboAssign.Value = ""
        
        txtContactNo.Value = ""
    
        txtOrangeNo.Value = ""
        
    End Sub
    Last edited by GingerJah; 05-12-2010 at 06:31 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1