[SOLVED] Runtime error 1004 from listbox


"Excel VBA Help"

 


Play Friv Now - Play Friv Games
Go Back   The Code Cage Forums > Microsoft Topics > Microsoft Excel Forum
Our Info Pages:-
The Code Cage - Microsoft Office help

Notices

Microsoft Excel Forum Members Post questions in this forum if they are related to using Microsoft Excel, this includes Worksheet Functions, Excel VBA Programming, Simple Macro Code & Charting, Excel formula etc.

 
 
Thread Tools Rate Thread Display Modes
  #1  
Old 24th March 2014, 22:45
jjerome's Avatar
jjerome jjerome is offline
Junior Member
MS Office Version: Ms Office 2010
MS Office Skill Level: New to MS Office
 
Join Date: Nov 2012
Location: test site
Posts: 2
Posts Per Day: 0.00
My Top Tip Count: 0
Thanks to others: 0
Thanked 0 Times in 0 Posts
Reputation: 10 (5) jjerome is on a distinguished road
Default Runtime error 1004 from listbox
     Excel: VBA   


------ Register to get rid of these "In Post" ads! ------

Category: Excel: VBA   

Hello all. Fairly newbie at VBA but am trying to learn.

I have a workbook with three sheets ("In Process", "Final Selections" and "Unused Selections"). Column T has a dropdown list with three options - one for each sheet. The idea is that when the user makes the selection with the dropdown, the entire row of data is moved to the respective sheet.

I'm using the macro pasted below (this is a sample from one sheet - the others have slightly different references for the appropriate sheets).

The problem is that the code works for the first option but not the second. In other words, for this example: if I choose "Selected" from the dropdown list, the row is copied to the "Final Selections" sheet. However, if I choose "Not Selected" from the dropdown list, I get the following error:

Run-time error 1004:
Application-defined or object-defined error

and the specific section highlighted below is highlighted. This is the same case, no matter what I do: the first instance works, but the second does not.

Any help is greatly appreciated!!



VBA CODE:
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Count > 1 Then Exit Sub 
    If Target.Column <> 20 Then Exit Sub 
    If Target.Value = "Selected" Then 
        With Target.Offset(, 7) 
            .NumberFormat = ShortDate 
            .Value = Date 
        End With 
        Application.ScreenUpdating = False 
        Target.Offset(, -19).Resize(, 27).Copy _ 
        Destination:=Sheets("Final Selections").Range("A" & Rows.Count).End(xlUp).Offset(1) 
        Target.EntireRow.Delete 
        Application.ScreenUpdating = True 
    ElseIf Target.Value = "Not Selected" Then 
        With Target.Offset(, 7) 
            .NumberFormat = ShortDate 
            .Value = Date 
        End With 
        Application.ScreenUpdating = False 
           Target.Offset(, -19).Resize(, 27).Copy _ 
        Destination:=Sheets("Unused Selections").Range("A" & Rows.Count).End(x1Up).Offset(1) 
        Target.EntireRow.Delete 
        Application.ScreenUpdating = True 
    End If 
End Sub 



The Code Cage Advertisment
Advertisement

To stop seeing these ads and get other benefits check This page!

  #2  
Old 25th March 2014, 08:04
RoyUK's Avatar
RoyUK RoyUK is offline
Administrator
Solution Centre Professional
MS Office Version: MS Office 2003, 2007, 2010
MS Office Skill Level: Proficient with MS Office
 
Join Date: Nov 2008
Location: Derbyshire, UK
Posts: 2,707
Posts Per Day: 0.82
My Top Tip Count: 4
Thanks to others: 2
Thanked 195 Times in 193 Posts
Reputation: 3320 (70) RoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond reputeRoyUK has a reputation beyond repute
4 Top Tips
England
Default Re: Runtime error 1004 from listbox

------ Register to get rid of these "In Post" ads! ------


Possibly

VBA CODE:
With Sheets("Unused Selections") 
    Target.Offset(, -19).Resize(, 27).Copy _ 
    Destination:=.Range("A" & .Rows.Count).End(x1Up).Offset(1) 
End With 
__________________
Hope that helps, RoyUK
For tips & examples visit free excel help
DatabaseForm
About me



  #3  
Old 25th March 2014, 10:59
snb's Avatar
snb snb is offline
Forum VIP
MS Office Version: > Office 97
MS Office Skill Level: Interested
 
Join Date: Feb 2011
Location: Europe
Posts: 1,393
Posts Per Day: 0.56
My Top Tip Count: 0
Thanks to others: 0
Thanked 314 Times in 307 Posts
Reputation: 5076 (70) snb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond reputesnb has a reputation beyond repute
Default Re: Runtime error 1004 from listbox

------ Register to get rid of these "In Post" ads! ------


VBA CODE:
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Count > 1 Then Exit Sub 
     
    If Target.Column =20 And Instr(target,"Select") Then 
        application.enableevents=False 
         
        Target.Offset(, 7)=FormatDateTime(Date, 2) 
         
        Sheets(iif(target="Selected","Final Selections","Unused Selections")).cells(rows.count,1).end(xlup).offset(1).resize(,27)=Target.Offset(, -19).Resize(, 27).Value 
        Target.EntireRow.Delete 
         
        Application.enableevents=True 
    End If 
End Sub 


Last edited by snb; 25th March 2014 at 11:04.


The Code Cage Advertisment
Advertisement
  #4  
Old 25th March 2014, 15:09
jjerome's Avatar
jjerome jjerome is offline
Junior Member
MS Office Version: Ms Office 2010
MS Office Skill Level: New to MS Office
 
Join Date: Nov 2012
Location: test site
Posts: 2
Posts Per Day: 0.00
My Top Tip Count: 0
Thanks to others: 0
Thanked 0 Times in 0 Posts
Reputation: 10 (5) jjerome is on a distinguished road
Default Re: Runtime error 1004 from listbox

------ Register to get rid of these "In Post" ads! ------


Thank you both for the help. I tried RoyUK's solution, but I received the same error. Before trying snb's suggestion, I reset the project to original (i.e., the way I had it in the first place), and it worked in all situations...

Really not sure what the error was, but it's working now, so... good enough...?

Anyway, thanks again!!



The Code Cage Advertisment
Advertisement

To stop seeing these ads and get other benefits check This page!

 
The Code Cage at Facebookhe Code Cage at Twitter


Tags
1004, error, listbox, runtime

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

The Code Cage Affilliates



http://www.thecodecage.com/forumz tested by McAfee Security http://www.thecodecage.com/forumz tested by McAfee Security

All times are GMT +1. The time now is 07:48.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Template-Modifications by TMS
No part of this board, functionality or creatives may be copied or reproduced either in part or full without the express permission of The Code Cage Team.
Copyright ©2008 - , Simon lloyd.
We are not associated with nor employed by Microsoft in any way, we simply provide resources!
All MS office icons are registered trademarks of the application they represent and are used with permission from Microsoft
UA-8135493-1
Cultural Forum | Study at Malaysian University
X vBulletin 3.8.7 Debug Information
  • Page Generation 0.20443 seconds
  • Memory Usage 6,420KB
  • Queries Executed 15 (?)
More Information
Template Usage:
  • (1)SHOWTHREAD
  • (1)ad_footerEnd
  • (1)ad_footerStart
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_headerEnd
  • (1)ad_header_end
  • (1)ad_header_logo
  • (1)ad_leftcolumn_code
  • (1)ad_navbar_below
  • (3)ad_postbit_below
  • (1)ad_showthread_beforeqr
  • (1)ad_showthread_firstpost
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (3)bbcode_code
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (4)helpful_answers
  • (1)helpfulanswers_javascript
  • (1)navbar
  • (3)navbar_link
  • (3)navbar_noticebit
  • (52)option
  • (4)post_thanks_box
  • (1)post_thanks_javascript
  • (1)post_thanks_navbar_search
  • (4)post_thanks_postbit_info
  • (4)postbit
  • (4)postbit_ctoptip
  • (4)postbit_onlinestatus
  • (24)postbit_reputation
  • (4)postbit_wrapper
  • (1)showthread_changepostsowner_link
  • (1)showthread_extra_fields
  • (1)showthread_quickreply_mrgdp
  • (1)showthread_reason_popup
  • (1)spacer_close
  • (1)spacer_open
  • (1)su_form
  • (4)tagbit
  • (1)tagbit_wrapper 

Phrase Groups Available:
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files:
  • ./showthread.php
  • ./global.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/class_datastore.php
  • ./includes/class_hook.php
  • ./awcoding/plugins/awc.php
  • ./awcoding/plugins/ds.php
  • ./awcoding/plugins/ss.php
  • ./includes/functions_notice.php
  • ./mobiquo/smartbanner.php
  • ./mobiquo/include/classTTConnection.php
  • ./mobiquo/smartbanner/head.inc.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/vbatags.php
  • ./includes/functions_reputation.php
  • ./includes/functions_post_thanks.php
  • ./includes/functions_misc.php 

Hooks Called:
  • init_startup
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • style_fetch
  • cache_templates
  • global_start
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_check_criteria
  • notices_noticebit
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • forumjump
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • helpfulanswers_showthreadorpost
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • post_thanks_function_post_thanks_off_start
  • post_thanks_function_post_thanks_off_end
  • post_thanks_function_fetch_thanks_start
  • post_thanks_function_fetch_thanks_end
  • post_thanks_function_thanked_already_start
  • post_thanks_function_thanked_already_end
  • helpfulanswers_show_normal
  • reputation_power
  • reputation_image
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • error_fetch
  • tag_fetchbit
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • showthread_complete