excel vba - Simplify a code -


the first part of code works well, can make more simple, second code? have tried second, excel returns "run-time error 1004 - application-defined or object-defined error".

            worksheets(sample).range("ratio143144").copy             worksheets("results").activate             range("d" & inserir.row).select             activesheet.pastespecial link:=true              worksheets(sample).range("ratio146144").copy             worksheets("results").range("i" & inserir).pastespecial link:=true

goleztrol, tried use inserir.row, excel keeps returning same error. below, complete code. have suggestion?

sub copiaroriginais()

    dim certeza vbmsgboxresult     dim sample string     dim inserir range           activesheet.name = range("y1").value         sample = range("y1").value      certeza = msgbox("você tem certeza de que os dados originais já não foram copiado? utilizar novamente essa função, após o teste 2-sigma ter sido aplicado, comprometerá os seus dados originais.", vbyesno)          if certeza = vbno end          sheets("results").activate         range("b2").end(xldown).offset(1, 0).select         set inserir = activecell             sheets(sample).activate          range("b3:d122").copy         range("b132").pastespecial xlpastevalues         application.cutcopymode = false            worksheets(sample).range("ratio143144").copy              worksheets("results").activate             range("d" & inserir.row).select             activesheet.pastespecial link:=true          worksheets(sample).range("ratio146144").copy              worksheets("results").activate             range("i" & inserir.row).select             activesheet.pastespecial link:=true  '        worksheets("results").range("i" & inserir.row).pastespecial link:=true          worksheets(sample).range("ratio145144").copy         worksheets("results").range("g" & inserir.row).pastespecial link:=true          worksheets(sample).range("ratio1431442se").copy         worksheets("results").range("f" & inserir).pastespecial link:=true          worksheets(sample).range("ratio1451442se").copy         worksheets("results").range("h" & inserir).pastespecial link:=true          worksheets(sample).activate       range("a1").select  end sub

the second should work fine, think, you're using "i" instead of "d" in range. also, you're using inserir instead of inserir.row. think it's simple error that. theoretically should work fine.


Comments

Post a Comment

Popular posts from this blog

c++ - CryptStringToBinary API behavior -

i seeing strange behavior cryptstringtobinary cryptography api. please see below code (config: x64 debug): #include "stdafx.h" #include <windows.h> #include <strsafe.h> #include <iostream> #include <exception> void main() { dword dwskip; dword dwflags; dword dwdatalen; //lpcwstr pszinput = l"jaaaaaecaaadzgaaakqaagdnnl1l56bwgfjdgr3rpxtqqqn6daw3usv2emkjym4t"; //this works fine lpcwstr pszinput = l"mytest"; //doesnt work, api returns false,error code 0x0000000d // determine size of byte array , allocate memory. if(! cryptstringtobinary( pszinput, _tcslen( pszinput ) + 1, crypt_string_base64, null, &dwdatalen, &dwskip, &dwflags ) ) { dword dw = getlasterror(); //0x0000000d: data invalid throw std::exception( "error computing byte length." ); } byte *pbytebyte = null; try { ...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

iphone - Three second countdown in cocos2d -

i trying have 3 second countdown display when level beat in game. did: -(void) gamesegmentbeat { [self pauseschedulerandactions]; // overlay game opaque background ccsprite *opaquebg = [ccsprite spritewithfile:@"background1.png"]; opaquebg.position = screencenter; [self addchild:opaquebg z:10000]; // these 3 labels 3 seconds cclabelttf *three = [cclabelttf labelwithstring:@"3" fontname:@"helvetica" fontsize:100]; three.position = ccp(screencenter.x, screencenter.y); cclabelttf *two = [cclabelttf labelwithstring:@"2" fontname:@"helvetica" fontsize:100]; two.position = ccp(screencenter.x, screencenter.y); cclabelttf *one = [cclabelttf labelwithstring:@"1" fontname:@"helvetica" fontsize:100]; one.position = ccp(screencenter.x, screencenter.y); // secondspast specified in update method secondspast = 0; if (secondspast == 1) { [self addchild:thr...
Read more