Outline · [ Standard ] · Linear+ Ajutor VBA-EXCEL

Salutare Am nevoie de ajutor din partea unui cunoscator in VBA, am de editat un tabel in excel la care trebuie sa sterg anumite randuri dupa un algoritm definit : Rows("2:120").Select Selection.delete Shift:=xlUp Rows("3:121").Select Selection.delete Shift:=xlUp Rows("4:122").Select Selection.delete Shift:=xlUp ............................................. am nevoie de ajutor pentru a nu scrie acest cod de 720 de ori, orice sfat este bine venit. Multumesc!

Salutare

Am nevoie de ajutor din partea unui cunoscator in VBA, am de editat un tabel in excel la care trebuie sa sterg anumite randuri dupa un algoritm definit :

Rows("2:120").Select
Selection.delete Shift:=xlUp
Rows("3:121").Select
Selection.delete Shift:=xlUp
Rows("4:122").Select
Selection.delete Shift:=xlUp
.............................................
am nevoie de ajutor pentru a nu scrie acest cod de 720 de ori, orice sfat este bine venit.
Multumesc!

Esti sigur ca nu e EBA?

Copiaza si tu de la Ponta!

...sau de la patapievici daca vrei sa scrii din Kant... ori de la Codruta daca vrei sa scrii din referate.ro

Poti sa scrii si concluziile personale ale Codrutei ca-s tot de pe referate.ro

Pai ce vrei sa faci>? Nu e mai bine sa pui un filtru si pe baza lui sa stergi selectia pana jos>? Si pe urma Remove Filter. Da un pic de detalii.
LE: Tu vrei sa stergi randurile de la
2:120
3:121
4:122
.
.
720:838 in ordinea asta>?

This post has been edited by ionutctn: 1 Aug 2012, 16:12

Am un fisier excel ce contine 86400 randuri, doresc sa pastrez din acest document doar randurile 1,121,241,361...etc, doresc sa folosesc un script in VBA pentru a sterge automat randurile nedorite si de a muta randurile ramase in locul celor sterse, am folosit scriptul prezentat si functioneaza, numai ca as dori o cale mai simpla sa nu fiu nevoit sa scriu 720 de randuri in script.
Multumesc.

Rows("2:120").Select
Selection.delete Shift:=x|Up
Rows("3:121").Select
Selection.delete Shift:=x|Up
Rows("4:122").Select
Selection.delete Shift:=x|Up
Rows("5:123").Select
Selection.delete Shift:=x|Up
Rows("6:124").Select
Selection.delete Shift:=x|Up
Rows("7:125").Select
Selection.delete Shift:=x|Up
Rows("8:126").Select
Selection.delete Shift:=x|Up
Rows("9:127").Select
Selection.delete Shift:=x|Up
Rows("10:128").Select
Selection.delete Shift:=x|Up
Rows("11:129").Select
Selection.delete Shift:=x|Up
Rows("12:130").Select
Selection.delete Shift:=x|Up
Rows("13:131").Select
Selection.delete Shift:=x|Up
Rows("14:132").Select
Selection.delete Shift:=x|Up
Rows("15:133").Select
Selection.delete Shift:=x|Up
Rows("16:134").Select
Selection.delete Shift:=x|Up
Rows("17:135").Select
Selection.delete Shift:=x|Up
Rows("18:136").Select
Selection.delete Shift:=x|Up
Rows("19:137").Select
Selection.delete Shift:=x|Up
Rows("20:138").Select
Selection.delete Shift:=x|Up
Rows("21:139").Select
Selection.delete Shift:=x|Up
Rows("22:140").Select
Selection.delete Shift:=x|Up
Rows("23:141").Select
Selection.delete Shift:=x|Up
Rows("24:142").Select
Selection.delete Shift:=x|Up
Rows("25:143").Select
Selection.delete Shift:=x|Up
Rows("26:144").Select
Selection.delete Shift:=x|Up
Rows("27:145").Select
Selection.delete Shift:=x|Up
Rows("28:146").Select
Selection.delete Shift:=x|Up
Rows("29:147").Select
Selection.delete Shift:=x|Up
Rows("30:148").Select
Selection.delete Shift:=x|Up
Rows("31:149").Select
Selection.delete Shift:=x|Up
Rows("32:150").Select
Selection.delete Shift:=x|Up
Rows("33:151").Select
Selection.delete Shift:=x|Up
Rows("34:152").Select
Selection.delete Shift:=x|Up
Rows("35:153").Select
Selection.delete Shift:=x|Up
Rows("36:154").Select
Selection.delete Shift:=x|Up
Rows("37:155").Select
Selection.delete Shift:=x|Up
Rows("38:156").Select
Selection.delete Shift:=x|Up
Rows("39:157").Select
Selection.delete Shift:=x|Up
Rows("40:158").Select
Selection.delete Shift:=x|Up
Rows("41:159").Select
Selection.delete Shift:=x|Up
Rows("42:160").Select
Selection.delete Shift:=x|Up
Rows("43:161").Select
Selection.delete Shift:=x|Up
Rows("44:162").Select
Selection.delete Shift:=x|Up
Rows("45:163").Select
Selection.delete Shift:=x|Up
Rows("46:164").Select
Selection.delete Shift:=x|Up
Rows("47:165").Select
Selection.delete Shift:=x|Up
Rows("48:166").Select
Selection.delete Shift:=x|Up
Rows("49:167").Select
Selection.delete Shift:=x|Up
Rows("50:168").Select
Selection.delete Shift:=x|Up
Rows("51:169").Select
Selection.delete Shift:=x|Up
Rows("52:170").Select
Selection.delete Shift:=x|Up
Rows("53:171").Select
Selection.delete Shift:=x|Up
Rows("54:172").Select
Selection.delete Shift:=x|Up
Rows("55:173").Select
Selection.delete Shift:=x|Up
Rows("56:174").Select
Selection.delete Shift:=x|Up
Rows("57:175").Select
Selection.delete Shift:=x|Up
Rows("58:176").Select
Selection.delete Shift:=x|Up
Rows("59:177").Select
Selection.delete Shift:=x|Up
Rows("60:178").Select
Selection.delete Shift:=x|Up
Rows("61:179").Select
Selection.delete Shift:=x|Up
Rows("62:180").Select
Selection.delete Shift:=x|Up
Rows("63:181").Select
Selection.delete Shift:=x|Up
Rows("64:182").Select
Selection.delete Shift:=x|Up
Rows("65:183").Select
Selection.delete Shift:=x|Up
Rows("66:184").Select
Selection.delete Shift:=x|Up
Rows("67:185").Select
Selection.delete Shift:=x|Up
Rows("68:186").Select
Selection.delete Shift:=x|Up
Rows("69:187").Select
Selection.delete Shift:=x|Up
Rows("70:188").Select
Selection.delete Shift:=x|Up
Rows("71:189").Select
Selection.delete Shift:=x|Up
Rows("72:190").Select
Selection.delete Shift:=x|Up
Rows("73:191").Select
Selection.delete Shift:=x|Up
Rows("74:192").Select
Selection.delete Shift:=x|Up
Rows("75:193").Select
Selection.delete Shift:=x|Up
Rows("76:194").Select
Selection.delete Shift:=x|Up
Rows("77:195").Select
Selection.delete Shift:=x|Up
Rows("78:196").Select
Selection.delete Shift:=x|Up
Rows("79:197").Select
Selection.delete Shift:=x|Up
Rows("80:198").Select
Selection.delete Shift:=x|Up
Rows("81:199").Select
Selection.delete Shift:=x|Up
Rows("82:200").Select
Selection.delete Shift:=x|Up
Rows("83:201").Select
Selection.delete Shift:=x|Up
Rows("84:202").Select
Selection.delete Shift:=x|Up
Rows("85:203").Select
Selection.delete Shift:=x|Up
Rows("86:204").Select
Selection.delete Shift:=x|Up
Rows("87:205").Select
Selection.delete Shift:=x|Up
Rows("88:206").Select
Selection.delete Shift:=x|Up
Rows("89:207").Select
Selection.delete Shift:=x|Up
Rows("90:208").Select
Selection.delete Shift:=x|Up
Rows("91:209").Select
Selection.delete Shift:=x|Up
Rows("92:210").Select
Selection.delete Shift:=x|Up
Rows("93:211").Select
Selection.delete Shift:=x|Up
Rows("94:212").Select
Selection.delete Shift:=x|Up
Rows("95:213").Select
Selection.delete Shift:=x|Up
Rows("96:214").Select
Selection.delete Shift:=x|Up
Rows("97:215").Select
Selection.delete Shift:=x|Up
Rows("98:216").Select
Selection.delete Shift:=x|Up
Rows("99:217").Select
Selection.delete Shift:=x|Up
Rows("100:218").Select
Selection.delete Shift:=x|Up
Rows("101:219").Select
Selection.delete Shift:=x|Up
Rows("102:220").Select
Selection.delete Shift:=x|Up
Rows("103:221").Select
Selection.delete Shift:=x|Up
Rows("104:222").Select
Selection.delete Shift:=x|Up
Rows("105:223").Select
Selection.delete Shift:=x|Up
Rows("106:224").Select
Selection.delete Shift:=x|Up
Rows("107:225").Select
Selection.delete Shift:=x|Up
Rows("108:226").Select
Selection.delete Shift:=x|Up
Rows("109:227").Select
Selection.delete Shift:=x|Up
Rows("110:228").Select
Selection.delete Shift:=x|Up
Rows("111:229").Select
Selection.delete Shift:=x|Up
Rows("112:230").Select
Selection.delete Shift:=x|Up
Rows("113:231").Select
Selection.delete Shift:=x|Up
Rows("114:232").Select
Selection.delete Shift:=x|Up
Rows("115:233").Select
Selection.delete Shift:=x|Up
Rows("116:234").Select
Selection.delete Shift:=x|Up
Rows("117:235").Select
Selection.delete Shift:=x|Up
Rows("118:236").Select
Selection.delete Shift:=x|Up
Rows("119:237").Select
Selection.delete Shift:=x|Up
Rows("120:238").Select
Selection.delete Shift:=x|Up
Rows("121:239").Select
Selection.delete Shift:=x|Up
Rows("122:240").Select
Selection.delete Shift:=x|Up
Rows("123:241").Select
Selection.delete Shift:=x|Up
Rows("124:242").Select
Selection.delete Shift:=x|Up
Rows("125:243").Select
Selection.delete Shift:=x|Up
Rows("126:244").Select
Selection.delete Shift:=x|Up
Rows("127:245").Select
Selection.delete Shift:=x|Up
Rows("128:246").Select
Selection.delete Shift:=x|Up
Rows("129:247").Select
Selection.delete Shift:=x|Up
Rows("130:248").Select
Selection.delete Shift:=x|Up
Rows("131:249").Select
Selection.delete Shift:=x|Up
Rows("132:250").Select
Selection.delete Shift:=x|Up
Rows("133:251").Select
Selection.delete Shift:=x|Up
Rows("134:252").Select
Selection.delete Shift:=x|Up
Rows("135:253").Select
Selection.delete Shift:=x|Up
Rows("136:254").Select
Selection.delete Shift:=x|Up
Rows("137:255").Select
Selection.delete Shift:=x|Up
Rows("138:256").Select
Selection.delete Shift:=x|Up
Rows("139:257").Select
Selection.delete Shift:=x|Up
Rows("140:258").Select
Selection.delete Shift:=x|Up
Rows("141:259").Select
Selection.delete Shift:=x|Up
Rows("142:260").Select
Selection.delete Shift:=x|Up
Rows("143:261").Select
Selection.delete Shift:=x|Up
Rows("144:262").Select
Selection.delete Shift:=x|Up
Rows("145:263").Select
Selection.delete Shift:=x|Up
Rows("146:264").Select
Selection.delete Shift:=x|Up
Rows("147:265").Select
Selection.delete Shift:=x|Up
Rows("148:266").Select
Selection.delete Shift:=x|Up
Rows("149:267").Select
Selection.delete Shift:=x|Up
Rows("150:268").Select
Selection.delete Shift:=x|Up
Rows("151:269").Select
Selection.delete Shift:=x|Up
Rows("152:270").Select
Selection.delete Shift:=x|Up
Rows("153:271").Select
Selection.delete Shift:=x|Up
Rows("154:272").Select
Selection.delete Shift:=x|Up
Rows("155:273").Select
Selection.delete Shift:=x|Up
Rows("156:274").Select
Selection.delete Shift:=x|Up
Rows("157:275").Select
Selection.delete Shift:=x|Up
Rows("158:276").Select
Selection.delete Shift:=x|Up
Rows("159:277").Select
Selection.delete Shift:=x|Up
Rows("160:278").Select
Selection.delete Shift:=x|Up
Rows("161:279").Select
Selection.delete Shift:=x|Up
Rows("162:280").Select
Selection.delete Shift:=x|Up
Rows("163:281").Select
Selection.delete Shift:=x|Up
Rows("164:282").Select
Selection.delete Shift:=x|Up
Rows("165:283").Select
Selection.delete Shift:=x|Up
Rows("166:284").Select
Selection.delete Shift:=x|Up
Rows("167:285").Select
Selection.delete Shift:=x|Up
Rows("168:286").Select
Selection.delete Shift:=x|Up
Rows("169:287").Select
Selection.delete Shift:=x|Up
Rows("170:288").Select
Selection.delete Shift:=x|Up
Rows("171:289").Select
Selection.delete Shift:=x|Up
Rows("172:290").Select
Selection.delete Shift:=x|Up
Rows("173:291").Select
Selection.delete Shift:=x|Up
Rows("174:292").Select
Selection.delete Shift:=x|Up
Rows("175:293").Select
Selection.delete Shift:=x|Up
Rows("176:294").Select
Selection.delete Shift:=x|Up
Rows("177:295").Select
Selection.delete Shift:=x|Up
Rows("178:296").Select
Selection.delete Shift:=x|Up
Rows("179:297").Select
Selection.delete Shift:=x|Up
Rows("180:298").Select
Selection.delete Shift:=x|Up
Rows("181:299").Select
Selection.delete Shift:=x|Up
Rows("182:300").Select
Selection.delete Shift:=x|Up
Rows("183:301").Select
Selection.delete Shift:=x|Up
Rows("184:302").Select
Selection.delete Shift:=x|Up
Rows("185:303").Select
Selection.delete Shift:=x|Up
Rows("186:304").Select
Selection.delete Shift:=x|Up
Rows("187:305").Select
Selection.delete Shift:=x|Up
Rows("188:306").Select
Selection.delete Shift:=x|Up
Rows("189:307").Select
Selection.delete Shift:=x|Up
Rows("190:308").Select
Selection.delete Shift:=x|Up
Rows("191:309").Select
Selection.delete Shift:=x|Up
Rows("192:310").Select
Selection.delete Shift:=x|Up
Rows("193:311").Select
Selection.delete Shift:=x|Up
Rows("194:312").Select
Selection.delete Shift:=x|Up
Rows("195:313").Select
Selection.delete Shift:=x|Up
Rows("196:314").Select
Selection.delete Shift:=x|Up
Rows("197:315").Select
Selection.delete Shift:=x|Up
Rows("198:316").Select
Selection.delete Shift:=x|Up
Rows("199:317").Select
Selection.delete Shift:=x|Up
Rows("200:318").Select
Selection.delete Shift:=x|Up
Rows("201:319").Select
Selection.delete Shift:=x|Up
Rows("202:320").Select
Selection.delete Shift:=x|Up
Rows("203:321").Select
Selection.delete Shift:=x|Up
Rows("204:322").Select
Selection.delete Shift:=x|Up
Rows("205:323").Select
Selection.delete Shift:=x|Up
Rows("206:324").Select
Selection.delete Shift:=x|Up
Rows("207:325").Select
Selection.delete Shift:=x|Up
Rows("208:326").Select
Selection.delete Shift:=x|Up
Rows("209:327").Select
Selection.delete Shift:=x|Up
Rows("210:328").Select
Selection.delete Shift:=x|Up
Rows("211:329").Select
Selection.delete Shift:=x|Up
Rows("212:330").Select
Selection.delete Shift:=x|Up
Rows("213:331").Select
Selection.delete Shift:=x|Up
Rows("214:332").Select
Selection.delete Shift:=x|Up
Rows("215:333").Select
Selection.delete Shift:=x|Up
Rows("216:334").Select
Selection.delete Shift:=x|Up
Rows("217:335").Select
Selection.delete Shift:=x|Up
Rows("218:336").Select
Selection.delete Shift:=x|Up
Rows("219:337").Select
Selection.delete Shift:=x|Up
Rows("220:338").Select
Selection.delete Shift:=x|Up
Rows("221:339").Select
Selection.delete Shift:=x|Up
Rows("222:340").Select
Selection.delete Shift:=x|Up
Rows("223:341").Select
Selection.delete Shift:=x|Up
Rows("224:342").Select
Selection.delete Shift:=x|Up
Rows("225:343").Select
Selection.delete Shift:=x|Up
Rows("226:344").Select
Selection.delete Shift:=x|Up
Rows("227:345").Select
Selection.delete Shift:=x|Up
Rows("228:346").Select
Selection.delete Shift:=x|Up
Rows("229:347").Select
Selection.delete Shift:=x|Up
Rows("230:348").Select
Selection.delete Shift:=x|Up
Rows("231:349").Select
Selection.delete Shift:=x|Up
Rows("232:350").Select
Selection.delete Shift:=x|Up
Rows("233:351").Select
Selection.delete Shift:=x|Up
Rows("234:352").Select
Selection.delete Shift:=x|Up
Rows("235:353").Select
Selection.delete Shift:=x|Up
Rows("236:354").Select
Selection.delete Shift:=x|Up
Rows("237:355").Select
Selection.delete Shift:=x|Up
Rows("238:356").Select
Selection.delete Shift:=x|Up
Rows("239:357").Select
Selection.delete Shift:=x|Up
Rows("240:358").Select
Selection.delete Shift:=x|Up
Rows("241:359").Select
Selection.delete Shift:=x|Up
Rows("242:360").Select
Selection.delete Shift:=x|Up
Rows("243:361").Select
Selection.delete Shift:=x|Up
Rows("244:362").Select
Selection.delete Shift:=x|Up
Rows("245:363").Select
Selection.delete Shift:=x|Up
Rows("246:364").Select
Selection.delete Shift:=x|Up
Rows("247:365").Select
Selection.delete Shift:=x|Up
Rows("248:366").Select
Selection.delete Shift:=x|Up
Rows("249:367").Select
Selection.delete Shift:=x|Up
Rows("250:368").Select
Selection.delete Shift:=x|Up
Rows("251:369").Select
Selection.delete Shift:=x|Up
Rows("252:370").Select
Selection.delete Shift:=x|Up
Rows("253:371").Select
Selection.delete Shift:=x|Up
Rows("254:372").Select
Selection.delete Shift:=x|Up
Rows("255:373").Select
Selection.delete Shift:=x|Up
Rows("256:374").Select
Selection.delete Shift:=x|Up
Rows("257:375").Select
Selection.delete Shift:=x|Up
Rows("258:376").Select
Selection.delete Shift:=x|Up
Rows("259:377").Select
Selection.delete Shift:=x|Up
Rows("260:378").Select
Selection.delete Shift:=x|Up
Rows("261:379").Select
Selection.delete Shift:=x|Up
Rows("262:380").Select
Selection.delete Shift:=x|Up
Rows("263:381").Select
Selection.delete Shift:=x|Up
Rows("264:382").Select
Selection.delete Shift:=x|Up
Rows("265:383").Select
Selection.delete Shift:=x|Up
Rows("266:384").Select
Selection.delete Shift:=x|Up
Rows("267:385").Select
Selection.delete Shift:=x|Up
Rows("268:386").Select
Selection.delete Shift:=x|Up
Rows("269:387").Select
Selection.delete Shift:=x|Up
Rows("270:388").Select
Selection.delete Shift:=x|Up
Rows("271:389").Select
Selection.delete Shift:=x|Up
Rows("272:390").Select
Selection.delete Shift:=x|Up
Rows("273:391").Select
Selection.delete Shift:=x|Up
Rows("274:392").Select
Selection.delete Shift:=x|Up
Rows("275:393").Select
Selection.delete Shift:=x|Up
Rows("276:394").Select
Selection.delete Shift:=x|Up
Rows("277:395").Select
Selection.delete Shift:=x|Up
Rows("278:396").Select
Selection.delete Shift:=x|Up
Rows("279:397").Select
Selection.delete Shift:=x|Up
Rows("280:398").Select
Selection.delete Shift:=x|Up
Rows("281:399").Select
Selection.delete Shift:=x|Up
Rows("282:400").Select
Selection.delete Shift:=x|Up
Rows("283:401").Select
Selection.delete Shift:=x|Up
Rows("284:402").Select
Selection.delete Shift:=x|Up
Rows("285:403").Select
Selection.delete Shift:=x|Up
Rows("286:404").Select
Selection.delete Shift:=x|Up
Rows("287:405").Select
Selection.delete Shift:=x|Up
Rows("288:406").Select
Selection.delete Shift:=x|Up
Rows("289:407").Select
Selection.delete Shift:=x|Up
Rows("290:408").Select
Selection.delete Shift:=x|Up
Rows("291:409").Select
Selection.delete Shift:=x|Up
Rows("292:410").Select
Selection.delete Shift:=x|Up
Rows("293:411").Select
Selection.delete Shift:=x|Up
Rows("294:412").Select
Selection.delete Shift:=x|Up
Rows("295:413").Select
Selection.delete Shift:=x|Up
Rows("296:414").Select
Selection.delete Shift:=x|Up
Rows("297:415").Select
Selection.delete Shift:=x|Up
Rows("298:416").Select
Selection.delete Shift:=x|Up
Rows("299:417").Select
Selection.delete Shift:=x|Up
Rows("300:418").Select
Selection.delete Shift:=x|Up
Rows("301:419").Select
Selection.delete Shift:=x|Up
Rows("302:420").Select
Selection.delete Shift:=x|Up
Rows("303:421").Select
Selection.delete Shift:=x|Up
Rows("304:422").Select
Selection.delete Shift:=x|Up
Rows("305:423").Select
Selection.delete Shift:=x|Up
Rows("306:424").Select
Selection.delete Shift:=x|Up
Rows("307:425").Select
Selection.delete Shift:=x|Up
Rows("308:426").Select
Selection.delete Shift:=x|Up
Rows("309:427").Select
Selection.delete Shift:=x|Up
Rows("310:428").Select
Selection.delete Shift:=x|Up
Rows("311:429").Select
Selection.delete Shift:=x|Up
Rows("312:430").Select
Selection.delete Shift:=x|Up
Rows("313:431").Select
Selection.delete Shift:=x|Up
Rows("314:432").Select
Selection.delete Shift:=x|Up
Rows("315:433").Select
Selection.delete Shift:=x|Up
Rows("316:434").Select
Selection.delete Shift:=x|Up
Rows("317:435").Select
Selection.delete Shift:=x|Up
Rows("318:436").Select
Selection.delete Shift:=x|Up
Rows("319:437").Select
Selection.delete Shift:=x|Up
Rows("320:438").Select
Selection.delete Shift:=x|Up
Rows("321:439").Select
Selection.delete Shift:=x|Up
Rows("322:440").Select
Selection.delete Shift:=x|Up
Rows("323:441").Select
Selection.delete Shift:=x|Up
Rows("324:442").Select
Selection.delete Shift:=x|Up
Rows("325:443").Select
Selection.delete Shift:=x|Up
Rows("326:444").Select
Selection.delete Shift:=x|Up
Rows("327:445").Select
Selection.delete Shift:=x|Up
Rows("328:446").Select
Selection.delete Shift:=x|Up
Rows("329:447").Select
Selection.delete Shift:=x|Up
Rows("330:448").Select
Selection.delete Shift:=x|Up
Rows("331:449").Select
Selection.delete Shift:=x|Up
Rows("332:450").Select
Selection.delete Shift:=x|Up
Rows("333:451").Select
Selection.delete Shift:=x|Up
Rows("334:452").Select
Selection.delete Shift:=x|Up
Rows("335:453").Select
Selection.delete Shift:=x|Up
Rows("336:454").Select
Selection.delete Shift:=x|Up
Rows("337:455").Select
Selection.delete Shift:=x|Up
Rows("338:456").Select
Selection.delete Shift:=x|Up
Rows("339:457").Select
Selection.delete Shift:=x|Up
Rows("340:458").Select
Selection.delete Shift:=x|Up
Rows("341:459").Select
Selection.delete Shift:=x|Up
Rows("342:460").Select
Selection.delete Shift:=x|Up
Rows("343:461").Select
Selection.delete Shift:=x|Up
Rows("344:462").Select
Selection.delete Shift:=x|Up
Rows("345:463").Select
Selection.delete Shift:=x|Up
Rows("346:464").Select
Selection.delete Shift:=x|Up
Rows("347:465").Select
Selection.delete Shift:=x|Up
Rows("348:466").Select
Selection.delete Shift:=x|Up
Rows("349:467").Select
Selection.delete Shift:=x|Up
Rows("350:468").Select
Selection.delete Shift:=x|Up
Rows("351:469").Select
Selection.delete Shift:=x|Up
Rows("352:470").Select
Selection.delete Shift:=x|Up
Rows("353:471").Select
Selection.delete Shift:=x|Up
Rows("354:472").Select
Selection.delete Shift:=x|Up
Rows("355:473").Select
Selection.delete Shift:=x|Up
Rows("356:474").Select
Selection.delete Shift:=x|Up
Rows("357:475").Select
Selection.delete Shift:=x|Up
Rows("358:476").Select
Selection.delete Shift:=x|Up
Rows("359:477").Select
Selection.delete Shift:=x|Up
Rows("360:478").Select
Selection.delete Shift:=x|Up
Rows("361:479").Select
Selection.delete Shift:=x|Up
Rows("362:480").Select
Selection.delete Shift:=x|Up
Rows("363:481").Select
Selection.delete Shift:=x|Up
Rows("364:482").Select
Selection.delete Shift:=x|Up
Rows("365:483").Select
Selection.delete Shift:=x|Up
Rows("366:484").Select
Selection.delete Shift:=x|Up
Rows("367:485").Select
Selection.delete Shift:=x|Up
Rows("368:486").Select
Selection.delete Shift:=x|Up
Rows("369:487").Select
Selection.delete Shift:=x|Up
Rows("370:488").Select
Selection.delete Shift:=x|Up
Rows("371:489").Select
Selection.delete Shift:=x|Up
Rows("372:490").Select
Selection.delete Shift:=x|Up
Rows("373:491").Select
Selection.delete Shift:=x|Up
Rows("374:492").Select
Selection.delete Shift:=x|Up
Rows("375:493").Select
Selection.delete Shift:=x|Up
Rows("376:494").Select
Selection.delete Shift:=x|Up
Rows("377:495").Select
Selection.delete Shift:=x|Up
Rows("378:496").Select
Selection.delete Shift:=x|Up
Rows("379:497").Select
Selection.delete Shift:=x|Up
Rows("380:498").Select
Selection.delete Shift:=x|Up
Rows("381:499").Select
Selection.delete Shift:=x|Up
Rows("382:500").Select
Selection.delete Shift:=x|Up
Rows("383:501").Select
Selection.delete Shift:=x|Up
Rows("384:502").Select
Selection.delete Shift:=x|Up
Rows("385:503").Select
Selection.delete Shift:=x|Up
Rows("386:504").Select
Selection.delete Shift:=x|Up
Rows("387:505").Select
Selection.delete Shift:=x|Up
Rows("388:506").Select
Selection.delete Shift:=x|Up
Rows("389:507").Select
Selection.delete Shift:=x|Up
Rows("390:508").Select
Selection.delete Shift:=x|Up
Rows("391:509").Select
Selection.delete Shift:=x|Up
Rows("392:510").Select
Selection.delete Shift:=x|Up
Rows("393:511").Select
Selection.delete Shift:=x|Up
Rows("394:512").Select
Selection.delete Shift:=x|Up
Rows("395:513").Select
Selection.delete Shift:=x|Up
Rows("396:514").Select
Selection.delete Shift:=x|Up
Rows("397:515").Select
Selection.delete Shift:=x|Up
Rows("398:516").Select
Selection.delete Shift:=x|Up
Rows("399:517").Select
Selection.delete Shift:=x|Up
Rows("400:518").Select
Selection.delete Shift:=x|Up
Rows("401:519").Select
Selection.delete Shift:=x|Up
Rows("402:520").Select
Selection.delete Shift:=x|Up
Rows("403:521").Select
Selection.delete Shift:=x|Up
Rows("404:522").Select
Selection.delete Shift:=x|Up
Rows("405:523").Select
Selection.delete Shift:=x|Up
Rows("406:524").Select
Selection.delete Shift:=x|Up
Rows("407:525").Select
Selection.delete Shift:=x|Up
Rows("408:526").Select
Selection.delete Shift:=x|Up
Rows("409:527").Select
Selection.delete Shift:=x|Up
Rows("410:528").Select
Selection.delete Shift:=x|Up
Rows("411:529").Select
Selection.delete Shift:=x|Up
Rows("412:530").Select
Selection.delete Shift:=x|Up
Rows("413:531").Select
Selection.delete Shift:=x|Up
Rows("414:532").Select
Selection.delete Shift:=x|Up
Rows("415:533").Select
Selection.delete Shift:=x|Up
Rows("416:534").Select
Selection.delete Shift:=x|Up
Rows("417:535").Select
Selection.delete Shift:=x|Up
Rows("418:536").Select
Selection.delete Shift:=x|Up
Rows("419:537").Select
Selection.delete Shift:=x|Up
Rows("420:538").Select
Selection.delete Shift:=x|Up
Rows("421:539").Select
Selection.delete Shift:=x|Up
Rows("422:540").Select
Selection.delete Shift:=x|Up
Rows("423:541").Select
Selection.delete Shift:=x|Up
Rows("424:542").Select
Selection.delete Shift:=x|Up
Rows("425:543").Select
Selection.delete Shift:=x|Up
Rows("426:544").Select
Selection.delete Shift:=x|Up
Rows("427:545").Select
Selection.delete Shift:=x|Up
Rows("428:546").Select
Selection.delete Shift:=x|Up
Rows("429:547").Select
Selection.delete Shift:=x|Up
Rows("430:548").Select
Selection.delete Shift:=x|Up
Rows("431:549").Select
Selection.delete Shift:=x|Up
Rows("432:550").Select
Selection.delete Shift:=x|Up
Rows("433:551").Select
Selection.delete Shift:=x|Up
Rows("434:552").Select
Selection.delete Shift:=x|Up
Rows("435:553").Select
Selection.delete Shift:=x|Up
Rows("436:554").Select
Selection.delete Shift:=x|Up
Rows("437:555").Select
Selection.delete Shift:=x|Up
Rows("438:556").Select
Selection.delete Shift:=x|Up
Rows("439:557").Select
Selection.delete Shift:=x|Up
Rows("440:558").Select
Selection.delete Shift:=x|Up
Rows("441:559").Select
Selection.delete Shift:=x|Up
Rows("442:560").Select
Selection.delete Shift:=x|Up
Rows("443:561").Select
Selection.delete Shift:=x|Up
Rows("444:562").Select
Selection.delete Shift:=x|Up
Rows("445:563").Select
Selection.delete Shift:=x|Up
Rows("446:564").Select
Selection.delete Shift:=x|Up
Rows("447:565").Select
Selection.delete Shift:=x|Up
Rows("448:566").Select
Selection.delete Shift:=x|Up
Rows("449:567").Select
Selection.delete Shift:=x|Up
Rows("450:568").Select
Selection.delete Shift:=x|Up
Rows("451:569").Select
Selection.delete Shift:=x|Up
Rows("452:570").Select
Selection.delete Shift:=x|Up
Rows("453:571").Select
Selection.delete Shift:=x|Up
Rows("454:572").Select
Selection.delete Shift:=x|Up
Rows("455:573").Select
Selection.delete Shift:=x|Up
Rows("456:574").Select
Selection.delete Shift:=x|Up
Rows("457:575").Select
Selection.delete Shift:=x|Up
Rows("458:576").Select
Selection.delete Shift:=x|Up
Rows("459:577").Select
Selection.delete Shift:=x|Up
Rows("460:578").Select
Selection.delete Shift:=x|Up
Rows("461:579").Select
Selection.delete Shift:=x|Up
Rows("462:580").Select
Selection.delete Shift:=x|Up
Rows("463:581").Select
Selection.delete Shift:=x|Up
Rows("464:582").Select
Selection.delete Shift:=x|Up
Rows("465:583").Select
Selection.delete Shift:=x|Up
Rows("466:584").Select
Selection.delete Shift:=x|Up
Rows("467:585").Select
Selection.delete Shift:=x|Up
Rows("468:586").Select
Selection.delete Shift:=x|Up
Rows("469:587").Select
Selection.delete Shift:=x|Up
Rows("470:588").Select
Selection.delete Shift:=x|Up
Rows("471:589").Select
Selection.delete Shift:=x|Up
Rows("472:590").Select
Selection.delete Shift:=x|Up
Rows("473:591").Select
Selection.delete Shift:=x|Up
Rows("474:592").Select
Selection.delete Shift:=x|Up
Rows("475:593").Select
Selection.delete Shift:=x|Up
Rows("476:594").Select
Selection.delete Shift:=x|Up
Rows("477:595").Select
Selection.delete Shift:=x|Up
Rows("478:596").Select
Selection.delete Shift:=x|Up
Rows("479:597").Select
Selection.delete Shift:=x|Up
Rows("480:598").Select
Selection.delete Shift:=x|Up
Rows("481:599").Select
Selection.delete Shift:=x|Up
Rows("482:600").Select
Selection.delete Shift:=x|Up
Rows("483:601").Select
Selection.delete Shift:=x|Up
Rows("484:602").Select
Selection.delete Shift:=x|Up
Rows("485:603").Select
Selection.delete Shift:=x|Up
Rows("486:604").Select
Selection.delete Shift:=x|Up
Rows("487:605").Select
Selection.delete Shift:=x|Up
Rows("488:606").Select
Selection.delete Shift:=x|Up
Rows("489:607").Select
Selection.delete Shift:=x|Up
Rows("490:608").Select
Selection.delete Shift:=x|Up
Rows("491:609").Select
Selection.delete Shift:=x|Up
Rows("492:610").Select
Selection.delete Shift:=x|Up
Rows("493:611").Select
Selection.delete Shift:=x|Up
Rows("494:612").Select
Selection.delete Shift:=x|Up
Rows("495:613").Select
Selection.delete Shift:=x|Up
Rows("496:614").Select
Selection.delete Shift:=x|Up
Rows("497:615").Select
Selection.delete Shift:=x|Up
Rows("498:616").Select
Selection.delete Shift:=x|Up
Rows("499:617").Select
Selection.delete Shift:=x|Up
Rows("500:618").Select
Selection.delete Shift:=x|Up
Rows("501:619").Select
Selection.delete Shift:=x|Up
Rows("502:620").Select
Selection.delete Shift:=x|Up
Rows("503:621").Select
Selection.delete Shift:=x|Up
Rows("504:622").Select
Selection.delete Shift:=x|Up
Rows("505:623").Select
Selection.delete Shift:=x|Up
Rows("506:624").Select
Selection.delete Shift:=x|Up
Rows("507:625").Select
Selection.delete Shift:=x|Up
Rows("508:626").Select
Selection.delete Shift:=x|Up
Rows("509:627").Select
Selection.delete Shift:=x|Up
Rows("510:628").Select
Selection.delete Shift:=x|Up
Rows("511:629").Select
Selection.delete Shift:=x|Up
Rows("512:630").Select
Selection.delete Shift:=x|Up
Rows("513:631").Select
Selection.delete Shift:=x|Up
Rows("514:632").Select
Selection.delete Shift:=x|Up
Rows("515:633").Select
Selection.delete Shift:=x|Up
Rows("516:634").Select
Selection.delete Shift:=x|Up
Rows("517:635").Select
Selection.delete Shift:=x|Up
Rows("518:636").Select
Selection.delete Shift:=x|Up
Rows("519:637").Select
Selection.delete Shift:=x|Up
Rows("520:638").Select
Selection.delete Shift:=x|Up
Rows("521:639").Select
Selection.delete Shift:=x|Up
Rows("522:640").Select
Selection.delete Shift:=x|Up
Rows("523:641").Select
Selection.delete Shift:=x|Up
Rows("524:642").Select
Selection.delete Shift:=x|Up
Rows("525:643").Select
Selection.delete Shift:=x|Up
Rows("526:644").Select
Selection.delete Shift:=x|Up
Rows("527:645").Select
Selection.delete Shift:=x|Up
Rows("528:646").Select
Selection.delete Shift:=x|Up
Rows("529:647").Select
Selection.delete Shift:=x|Up
Rows("530:648").Select
Selection.delete Shift:=x|Up
Rows("531:649").Select
Selection.delete Shift:=x|Up
Rows("532:650").Select
Selection.delete Shift:=x|Up
Rows("533:651").Select
Selection.delete Shift:=x|Up
Rows("534:652").Select
Selection.delete Shift:=x|Up
Rows("535:653").Select
Selection.delete Shift:=x|Up
Rows("536:654").Select
Selection.delete Shift:=x|Up
Rows("537:655").Select
Selection.delete Shift:=x|Up
Rows("538:656").Select
Selection.delete Shift:=x|Up
Rows("539:657").Select
Selection.delete Shift:=x|Up
Rows("540:658").Select
Selection.delete Shift:=x|Up
Rows("541:659").Select
Selection.delete Shift:=x|Up
Rows("542:660").Select
Selection.delete Shift:=x|Up
Rows("543:661").Select
Selection.delete Shift:=x|Up
Rows("544:662").Select
Selection.delete Shift:=x|Up
Rows("545:663").Select
Selection.delete Shift:=x|Up
Rows("546:664").Select
Selection.delete Shift:=x|Up
Rows("547:665").Select
Selection.delete Shift:=x|Up
Rows("548:666").Select
Selection.delete Shift:=x|Up
Rows("549:667").Select
Selection.delete Shift:=x|Up
Rows("550:668").Select
Selection.delete Shift:=x|Up
Rows("551:669").Select
Selection.delete Shift:=x|Up
Rows("552:670").Select
Selection.delete Shift:=x|Up
Rows("553:671").Select
Selection.delete Shift:=x|Up
Rows("554:672").Select
Selection.delete Shift:=x|Up
Rows("555:673").Select
Selection.delete Shift:=x|Up
Rows("556:674").Select
Selection.delete Shift:=x|Up
Rows("557:675").Select
Selection.delete Shift:=x|Up
Rows("558:676").Select
Selection.delete Shift:=x|Up
Rows("559:677").Select
Selection.delete Shift:=x|Up
Rows("560:678").Select
Selection.delete Shift:=x|Up
Rows("561:679").Select
Selection.delete Shift:=x|Up
Rows("562:680").Select
Selection.delete Shift:=x|Up
Rows("563:681").Select
Selection.delete Shift:=x|Up
Rows("564:682").Select
Selection.delete Shift:=x|Up
Rows("565:683").Select
Selection.delete Shift:=x|Up
Rows("566:684").Select
Selection.delete Shift:=x|Up
Rows("567:685").Select
Selection.delete Shift:=x|Up
Rows("568:686").Select
Selection.delete Shift:=x|Up
Rows("569:687").Select
Selection.delete Shift:=x|Up
Rows("570:688").Select
Selection.delete Shift:=x|Up
Rows("571:689").Select
Selection.delete Shift:=x|Up
Rows("572:690").Select
Selection.delete Shift:=x|Up
Rows("573:691").Select
Selection.delete Shift:=x|Up
Rows("574:692").Select
Selection.delete Shift:=x|Up
Rows("575:693").Select
Selection.delete Shift:=x|Up
Rows("576:694").Select
Selection.delete Shift:=x|Up
Rows("577:695").Select
Selection.delete Shift:=x|Up
Rows("578:696").Select
Selection.delete Shift:=x|Up
Rows("579:697").Select
Selection.delete Shift:=x|Up
Rows("580:698").Select
Selection.delete Shift:=x|Up
Rows("581:699").Select
Selection.delete Shift:=x|Up
Rows("582:700").Select
Selection.delete Shift:=x|Up
Rows("583:701").Select
Selection.delete Shift:=x|Up
Rows("584:702").Select
Selection.delete Shift:=x|Up
Rows("585:703").Select
Selection.delete Shift:=x|Up
Rows("586:704").Select
Selection.delete Shift:=x|Up
Rows("587:705").Select
Selection.delete Shift:=x|Up
Rows("588:706").Select
Selection.delete Shift:=x|Up
Rows("589:707").Select
Selection.delete Shift:=x|Up
Rows("590:708").Select
Selection.delete Shift:=x|Up
Rows("591:709").Select
Selection.delete Shift:=x|Up
Rows("592:710").Select
Selection.delete Shift:=x|Up
Rows("593:711").Select
Selection.delete Shift:=x|Up
Rows("594:712").Select
Selection.delete Shift:=x|Up
Rows("595:713").Select
Selection.delete Shift:=x|Up
Rows("596:714").Select
Selection.delete Shift:=x|Up
Rows("597:715").Select
Selection.delete Shift:=x|Up
Rows("598:716").Select
Selection.delete Shift:=x|Up
Rows("599:717").Select
Selection.delete Shift:=x|Up
Rows("600:718").Select
Selection.delete Shift:=x|Up
Rows("601:719").Select
Selection.delete Shift:=x|Up
Rows("602:720").Select
Selection.delete Shift:=x|Up
Rows("603:721").Select
Selection.delete Shift:=x|Up
Rows("604:722").Select
Selection.delete Shift:=x|Up
Rows("605:723").Select
Selection.delete Shift:=x|Up
Rows("606:724").Select
Selection.delete Shift:=x|Up
Rows("607:725").Select
Selection.delete Shift:=x|Up
Rows("608:726").Select
Selection.delete Shift:=x|Up
Rows("609:727").Select
Selection.delete Shift:=x|Up
Rows("610:728").Select
Selection.delete Shift:=x|Up
Rows("611:729").Select
Selection.delete Shift:=x|Up
Rows("612:730").Select
Selection.delete Shift:=x|Up
Rows("613:731").Select
Selection.delete Shift:=x|Up
Rows("614:732").Select
Selection.delete Shift:=x|Up
Rows("615:733").Select
Selection.delete Shift:=x|Up
Rows("616:734").Select
Selection.delete Shift:=x|Up
Rows("617:735").Select
Selection.delete Shift:=x|Up
Rows("618:736").Select
Selection.delete Shift:=x|Up
Rows("619:737").Select
Selection.delete Shift:=x|Up
Rows("620:738").Select
Selection.delete Shift:=x|Up
Rows("621:739").Select
Selection.delete Shift:=x|Up
Rows("622:740").Select
Selection.delete Shift:=x|Up
Rows("623:741").Select
Selection.delete Shift:=x|Up
Rows("624:742").Select
Selection.delete Shift:=x|Up
Rows("625:743").Select
Selection.delete Shift:=x|Up
Rows("626:744").Select
Selection.delete Shift:=x|Up
Rows("627:745").Select
Selection.delete Shift:=x|Up
Rows("628:746").Select
Selection.delete Shift:=x|Up
Rows("629:747").Select
Selection.delete Shift:=x|Up
Rows("630:748").Select
Selection.delete Shift:=x|Up
Rows("631:749").Select
Selection.delete Shift:=x|Up
Rows("632:750").Select
Selection.delete Shift:=x|Up
Rows("633:751").Select
Selection.delete Shift:=x|Up
Rows("634:752").Select
Selection.delete Shift:=x|Up
Rows("635:753").Select
Selection.delete Shift:=x|Up
Rows("636:754").Select
Selection.delete Shift:=x|Up
Rows("637:755").Select
Selection.delete Shift:=x|Up
Rows("638:756").Select
Selection.delete Shift:=x|Up
Rows("639:757").Select
Selection.delete Shift:=x|Up
Rows("640:758").Select
Selection.delete Shift:=x|Up
Rows("641:759").Select
Selection.delete Shift:=x|Up
Rows("642:760").Select
Selection.delete Shift:=x|Up
Rows("643:761").Select
Selection.delete Shift:=x|Up
Rows("644:762").Select
Selection.delete Shift:=x|Up
Rows("645:763").Select
Selection.delete Shift:=x|Up
Rows("646:764").Select
Selection.delete Shift:=x|Up
Rows("647:765").Select
Selection.delete Shift:=x|Up
Rows("648:766").Select
Selection.delete Shift:=x|Up
Rows("649:767").Select
Selection.delete Shift:=x|Up
Rows("650:768").Select
Selection.delete Shift:=x|Up
Rows("651:769").Select
Selection.delete Shift:=x|Up
Rows("652:770").Select
Selection.delete Shift:=x|Up
Rows("653:771").Select
Selection.delete Shift:=x|Up
Rows("654:772").Select
Selection.delete Shift:=x|Up
Rows("655:773").Select
Selection.delete Shift:=x|Up
Rows("656:774").Select
Selection.delete Shift:=x|Up
Rows("657:775").Select
Selection.delete Shift:=x|Up
Rows("658:776").Select
Selection.delete Shift:=x|Up
Rows("659:777").Select
Selection.delete Shift:=x|Up
Rows("660:778").Select
Selection.delete Shift:=x|Up
Rows("661:779").Select
Selection.delete Shift:=x|Up
Rows("662:780").Select
Selection.delete Shift:=x|Up
Rows("663:781").Select
Selection.delete Shift:=x|Up
Rows("664:782").Select
Selection.delete Shift:=x|Up
Rows("665:783").Select
Selection.delete Shift:=x|Up
Rows("666:784").Select
Selection.delete Shift:=x|Up
Rows("667:785").Select
Selection.delete Shift:=x|Up
Rows("668:786").Select
Selection.delete Shift:=x|Up
Rows("669:787").Select
Selection.delete Shift:=x|Up
Rows("670:788").Select
Selection.delete Shift:=x|Up
Rows("671:789").Select
Selection.delete Shift:=x|Up
Rows("672:790").Select
Selection.delete Shift:=x|Up
Rows("673:791").Select
Selection.delete Shift:=x|Up
Rows("674:792").Select
Selection.delete Shift:=x|Up
Rows("675:793").Select
Selection.delete Shift:=x|Up
Rows("676:794").Select
Selection.delete Shift:=x|Up
Rows("677:795").Select
Selection.delete Shift:=x|Up
Rows("678:796").Select
Selection.delete Shift:=x|Up
Rows("679:797").Select
Selection.delete Shift:=x|Up
Rows("680:798").Select
Selection.delete Shift:=x|Up
Rows("681:799").Select
Selection.delete Shift:=x|Up
Rows("682:800").Select
Selection.delete Shift:=x|Up
Rows("683:801").Select
Selection.delete Shift:=x|Up
Rows("684:802").Select
Selection.delete Shift:=x|Up
Rows("685:803").Select
Selection.delete Shift:=x|Up
Rows("686:804").Select
Selection.delete Shift:=x|Up
Rows("687:805").Select
Selection.delete Shift:=x|Up
Rows("688:806").Select
Selection.delete Shift:=x|Up
Rows("689:807").Select
Selection.delete Shift:=x|Up
Rows("690:808").Select
Selection.delete Shift:=x|Up
Rows("691:809").Select
Selection.delete Shift:=x|Up
Rows("692:810").Select
Selection.delete Shift:=x|Up
Rows("693:811").Select
Selection.delete Shift:=x|Up
Rows("694:812").Select
Selection.delete Shift:=x|Up
Rows("695:813").Select
Selection.delete Shift:=x|Up
Rows("696:814").Select
Selection.delete Shift:=x|Up
Rows("697:815").Select
Selection.delete Shift:=x|Up
Rows("698:816").Select
Selection.delete Shift:=x|Up
Rows("699:817").Select
Selection.delete Shift:=x|Up
Rows("700:818").Select
Selection.delete Shift:=x|Up
Rows("701:819").Select
Selection.delete Shift:=x|Up
Rows("702:820").Select
Selection.delete Shift:=x|Up
Rows("703:821").Select
Selection.delete Shift:=x|Up
Rows("704:822").Select
Selection.delete Shift:=x|Up
Rows("705:823").Select
Selection.delete Shift:=x|Up
Rows("706:824").Select
Selection.delete Shift:=x|Up
Rows("707:825").Select
Selection.delete Shift:=x|Up
Rows("708:826").Select
Selection.delete Shift:=x|Up
Rows("709:827").Select
Selection.delete Shift:=x|Up
Rows("710:828").Select
Selection.delete Shift:=x|Up
Rows("711:829").Select
Selection.delete Shift:=x|Up
Rows("712:830").Select
Selection.delete Shift:=x|Up
Rows("713:831").Select
Selection.delete Shift:=x|Up
Rows("714:832").Select
Selection.delete Shift:=x|Up
Rows("715:833").Select
Selection.delete Shift:=x|Up
Rows("716:834").Select
Selection.delete Shift:=x|Up
Rows("717:835").Select
Selection.delete Shift:=x|Up
Rows("718:836").Select
Selection.delete Shift:=x|Up
Rows("719:837").Select
Selection.delete Shift:=x|Up
Rows("720:838").Select
Selection.delete Shift:=x|Up
Rows("721:839").Select
Selection.delete Shift:=x|Up
Rows("722:840").Select
Selection.delete Shift:=x|Up
Rows("723:841").Select
Selection.delete Shift:=x|Up
Rows("724:842").Select
Selection.delete Shift:=x|Up
Rows("725:843").Select
Selection.delete Shift:=x|Up
Rows("726:844").Select
Selection.delete Shift:=x|Up
Rows("727:845").Select
Selection.delete Shift:=x|Up
Rows("728:846").Select
Selection.delete Shift:=x|Up
Rows("729:847").Select
Selection.delete Shift:=x|Up
Rows("730:848").Select
Selection.delete Shift:=x|Up
Rows("731:849").Select
Selection.delete Shift:=x|Up
Rows("732:850").Select
Selection.delete Shift:=x|Up
Rows("733:851").Select
Selection.delete Shift:=x|Up
Rows("734:852").Select
Selection.delete Shift:=x|Up
Rows("735:853").Select
Selection.delete Shift:=x|Up
Rows("736:854").Select
Selection.delete Shift:=x|Up
Rows("737:855").Select
Selection.delete Shift:=x|Up
Rows("738:856").Select
Selection.delete Shift:=x|Up
Rows("739:857").Select
Selection.delete Shift:=x|Up
Rows("740:858").Select
Selection.delete Shift:=x|Up
Rows("741:859").Select
Selection.delete Shift:=x|Up
Rows("742:860").Select
Selection.delete Shift:=x|Up
Rows("743:861").Select
Selection.delete Shift:=x|Up
Rows("744:862").Select
Selection.delete Shift:=x|Up
Rows("745:863").Select
Selection.delete Shift:=x|Up
Rows("746:864").Select
Selection.delete Shift:=x|Up
Rows("747:865").Select
Selection.delete Shift:=x|Up
Rows("748:866").Select
Selection.delete Shift:=x|Up
Rows("749:867").Select
Selection.delete Shift:=x|Up
Rows("750:868").Select
Selection.delete Shift:=x|Up
Rows("751:869").Select
Selection.delete Shift:=x|Up
Rows("752:870").Select
Selection.delete Shift:=x|Up
Rows("753:871").Select
Selection.delete Shift:=x|Up
Rows("754:872").Select
Selection.delete Shift:=x|Up
Rows("755:873").Select
Selection.delete Shift:=x|Up
Rows("756:874").Select
Selection.delete Shift:=x|Up
Rows("757:875").Select
Selection.delete Shift:=x|Up
Rows("758:876").Select
Selection.delete Shift:=x|Up
Rows("759:877").Select
Selection.delete Shift:=x|Up
Rows("760:878").Select
Selection.delete Shift:=x|Up
Rows("761:879").Select
Selection.delete Shift:=x|Up
Rows("762:880").Select
Selection.delete Shift:=x|Up
Rows("763:881").Select
Selection.delete Shift:=x|Up
Rows("764:882").Select
Selection.delete Shift:=x|Up
Rows("765:883").Select
Selection.delete Shift:=x|Up
Rows("766:884").Select
Selection.delete Shift:=x|Up
Rows("767:885").Select
Selection.delete Shift:=x|Up
Rows("768:886").Select
Selection.delete Shift:=x|Up
Rows("769:887").Select
Selection.delete Shift:=x|Up
Rows("770:888").Select
Selection.delete Shift:=x|Up



2 Aug 2012, 09:02:
 Book1.xls ( 179.5k ) Number of downloads: 10


This post has been edited by LuluMOB: 2 Aug 2012, 08:02

Mamaaa, cita rabdare! Uitre aici om care se plictiseste!

Nu vrei sa verifici daca n-am gresit ceva? pe la randul 280 eram cam obosit...

SInt pe dinafara. Eu, cu comentariile

Exact ca la politica

Testat si merge. Nu mai stiu cum se afla numarul ultimului rand, de aia am stocat adresa randului intr-un sir din care am luat ultimul numar


'======Copiaza de aici================
Function Sterge()

Dim Inceput As Long
Dim Pas As Long
Dim rg As Range
Dim lngPozitieCurenta As Long
Dim strAdresa As String

Inceput = 1
Pas = 120

Set rg = Application.ActiveSheet.UsedRange
strAdresa = rg.Rows.Address
While InStr(strAdresa, "$") <> 0
strAdresa = Right(strAdresa, Len(strAdresa) - 1)
Wend


lngPozitieCurenta = Inceput

While lngPozitieCurenta < Val(strAdresa)
Rows(lngPozitieCurenta + 1 & ":" & lngPozitieCurenta + Pas - 1).Select
Selection.Delete shift = xlUp
lngPozitieCurenta = lngPozitieCurenta + 1
Wend

End Function
'==========Copiaza pana aici===========

Multumesc tuturor pentru ajutor!

Intre timp am folosit urmatorul script

Sub automatic_delete()
For x = 1 To 720
Rows(lrow + 1 + x).Resize(120).delete
Next x
End Sub

This post has been edited by kenzo103: 2 Aug 2012, 21:34