vanializ

Elsa Matilde respondió: Te ajusto la última instrucción, agregando una variable para poder verlo con más claridad: val1=Range("AB1").Value ActiveSheet.ListObjects("Tabla21").Resize Range("$Y$1:$Y$" & val1) PD) Mi mejor recomendación: el manual Programación VBA, este mes con...

juanbauzam respondió: Si me envías tu archivo te ayudo pues hay que ver cual es la disposición de los datos y la forma de presentación. Mi e-mail es [email protected]

paramisolo respondió: Por lo que veo en la macro te muestra lo que tu le has pedido, en la linea ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3, Criteria 1:=ComboBox1 le esta pidiendo en la macro que te muestre esa Tabla, después le pides que te busque el...

Elsa Matilde respondió: En la rutina de la función, donde definís el rango debés establecer también la hoja. Set rgRange = Sheets("Hoja2").Range("A1:A65536") Además modificá la primer línea de la primer rutina, porque cuando selecciones 2 o + celdas para borrarlas (siempre...

Elsa Matilde respondió: El msgbox debe incluir celda.value además del address, si lo querés mantener: msgbox "celda vacía " & celda.address & " " & celda.value