Error copying data to new Excel sheet using a Macro -


this first post here.

i trying copy data 1 sheet new sheet in same workbook after filtering in main sheet.

i have copy sheet template template sheet onto new sheet copying data before copy data.

this vba code shown in macro:

sub macro7() ' ' macro7 macro '  '     sheets("template").select     rows("1:3").select     application.cutcopymode = false     selection.copy     dim ssheetname string     sheets.add after:=sheets(sheets.count)     ssheetname = activesheet.name      activesheet.paste     sheets("sheet1").select     range("n13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("d4").select     activesheet.paste     columns("d:d").entirecolumn.autofit     sheets("sheet1").select     range("a13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("c4").select     activesheet.paste     sheets("sheet1").select     range("d13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("e4").select     activesheet.paste     sheets("sheet1").select     range("b13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("f4").select     activesheet.paste     sheets("sheet1").select     range("h13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("g4").select     activesheet.paste     sheets("sheet1").select     range("f13").select     range(selection, selection.end(xldown)).select     application.cutcopymode = false     selection.copy     sheets("ssheetname").select     range("i4").select     activesheet.paste     range("a4").select     application.cutcopymode = false     activecell.formular1c1 = "fives cinetic corp"     columns("b:b").select     columns("a:a").columnwidth = 17.57     range("a4").select     selection.autofill destination:=range("a4:a5")     range("a4:a5").select     range("d10").select end sub

i error: run-time error 9: subscript out of range

guess sheet numbers not able figure out is.

just incase haven't solved already, take @ code i've adapted you. when making new vba projects, play around of these methods, you'll find they're lot faster , more reliable previous version. compare them side side.

this took lot of assumption on part make backup before running test , make sure going right place.

sub macro7()      sheets.add after:=sheets(sheets.count)     newsheet = activesheet.name     sheets("template").rows("1:3").copy destination:=activesheet.range("a1")      sheets("sheet1").activate     range("n13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("d4")      sheets(newsheet)         columns("d:d").entirecolumn.autofit     end      range("a13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("c4")      range("d13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("e4")      range("b13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("f4")      range("h13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("g4")      range("f13").select     range(selection, selection.end(xldown)).select     selection.copy destination:=sheets(newsheet).range("i4")      sheets(newsheet).activate     range("a4").value = "fives cinetic corp"     columns("a:a").autofit     range("a4").autofill destination:=range("a4:a5")     range("d10").select end sub

Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more