¿Como puedo mejorar esta macro?
Esta Macro demora horas la ejecuto y tarda muchísimo, me pueden ayudar
2 respuestas
Respuesta de Tor Cheer
1
Puede compartir una copia de su archivo para entender mejor y buscas una forma más eficiente
Respuesta de Luis Alejandrogarcia Orduz
Sub eliminarfilas() Do While ActiveCell.Value <> "" If ActiveCell.Value = "AREPA DE MAIZ AMARILLO SANTANDEREANA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BOLA PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE A LAS FINAS HIERBAS" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE DESMECHADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE OREADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CECINA PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATAS DE CERDO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHORIZO ARGENTINO 500 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHORIZO FINAS HIERBAS 500 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHORIZO MIXTO (CERDO Y RES)" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHULETA DE CERDO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA DE CERDO AHUMADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA DE CERDO BABY BACK" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA DE CERDO CARNUDA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CAPON RELLENO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHICHARRONCITO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA DE RES P.V." Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "DES.COMES.COLAS" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "DES.COMES.HUESO COGOTE" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "DES.COMES.LENGUA R" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "DES.COMES.MANO DE RES" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "ENTRECOT PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FAJITAS Y/O JULIANAS DE CERDO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FILET MIGNON" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "GOULASH ESPECIAL DE RES L-M" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "HAMBURGUESA DE RES X 5 X 600 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO CERDO CYC" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO DE CERDO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MEDALLONES LOMO FINO L-M" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA DE CERDO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA DE RES P.V 450 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA ESPECIAL 0.4 KG" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA SABOR TOCINETA 500 G." Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MURILLO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FAJITA ESPECIAL DE RES L-M" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO DE CERDO " Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MEDIA BONDIOLA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PA LA FRIJOLADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PA LA MILANESA BLOQUE" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PERNIL DESPOSTADO BLOQUE" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PIERNA CERDO TROPICAL 1.0" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PINCHO LOMO FINO L-M" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PINCHO MIXTO * 3 UND X 750 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "RELLENAS X 5 UND X 480 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "ROAST BEEF L-M" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "SALSA DE CIRUELA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "SOBREBARRIGA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "SOBREBARRIGA HORNEADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "STEAK DE BONDIOLA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "STEAK DE LOMO FAZENDA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "ALETA PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PUNTA ANCA 250-300 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "TIRA DE ASADO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PUNTA ANCA L" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PUNTA ANCA P" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PIERNA CERDO TROPICAL 0.5" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PEZUÑA PICADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO SOLO CANON" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PECHO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FANTASIA DE POLLO 1.0" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MEDALLONES DE SOLOMITO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PALETERO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FANTASIA DE POLLO 0.5" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO ANCHO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO DE CERDO " Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "DES.COMES. HUESO CTE" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "RIBEYE - BIFE ANCHO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "SOBREBARRIGA K" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "RIB EYE CON HUESO L 600-800 G." Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "OSOBUCO DE RES 250-300 GR R" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PUNTA DE ANCA K" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BIFE PARRILLERO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO CANON K" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA PICADA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHICHARRON/ TOCINETA PQNA CON PIEL" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATAS SIN HUESO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATAS PREMIUM K" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "TIBON 300-350 GR R" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "STRIPLOIN-NEW YORK STEAK" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "RIB EYE CON HUESO C 400-480 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO CANON K" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHULETA CON TOCINO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATAS 300-350 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATA PREMIUM 300-350 G." Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE MOLIDA 98-2 L-M -" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BIFE CHORIZO 600" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PIERNA REDONDA SIN HUESO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA DE RES *500gr TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLIDA DE RES *250gr TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "LOMO FINO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "COSTILLA DE RES * 500 G. TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE PARA SUDAR *500GR TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE PARA ASAR *500gr TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE PARA ASAR *250gr TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "AREPA DE MAIZ BLANCO CON QUESO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BIFE CHORIZO 600" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "FILETE DE 1/2 PECHUGA X 3 UND" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BAND CONTRAMUSLO SIN RABADILLA X 4 V" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CADERA PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE COGOTE PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CHATA PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "GROUND BEEF ANGUS CHOICE 500 GR" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MOLLEJAS RES" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "MORRILLO PREMIUM" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "PUNTA ANCA ASADOS" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "TIBON 400-550 GR R INS" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "TRIP TIP - COLITA CADERA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "BANDEJA POPULAR DE POLLO" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CORAZONES BANDEJA" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If If ActiveCell.Value = "CARNE PARA SUDAR *250GR TAT" Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select Else End If ActiveCell.Offset(1, 0).Select Loop End Sub