santiagomf

Supongo que estas accediendo a los datos con el Query y por eso no puedes cambiar el nombre de la tabla a la que accedes. La solución está en traerte los datos a través de un sencillo procedimiento en Visual Basic donde te permita cambiar el nombre...

Si presentas un cuadro de texto, hasta que no pulsen 'aceptar' (o una de las opciones que pongas), no se cerrará el mensaje. Lo que quieres es fácil de hacer con un formulario. Entra en el editor de Visual Basic, inserta un formulario nuevo, le crear...

He estado viendo lo que quieres y lo más sencillo es crearte una función y después utilizarla. Te he preparado esta: Option Explicit Function BuscaGanadorPorra(ByVal nGolesLocal As Integer, ByVal nGolesVisitante As Integer, _ ByRef rangoResultados As...

Supongo que te servirá esta macro. Tienes que entrar en el editor de Visual Basic y copiarla: Option Explicit Sub borrarFilasConCiertoValor() Const nColBuscar = 2 ' Poner el número de la columna donde buscaremos el dato (A=1, B=2, etc...) Const...

En la celda C1 de la hoja1 pon la siguiente fórmula: =SI(ESERROR(BUSCARV(B1;Hoja2!$B$1:$C$500;2;FALSO));"No encontrado";BUSCARV(B1;Hoja2!$B$1:$C$500;2;FALSO)) He puesto el 500 como la línea máxima donde buscar. Si son más o menos lo decides tu (no sé...

No sé si he entendido correctamente lo que quieres. Espero que sí. Te he preparado una macro para que la grabes y ejecutes. Es la siguiente: '------------------------------------------------------------------------------------------------ Option...

Prueba con esta macro. Creo que hace lo que quieres (tienes que poner el nombre de la página que contiene el listado). Option Explicit Sub borrarCabecerasPaginaListado() Const nombreHojaListado = "Hoja1" ' Tienes que poner el nombre real de la página...

Tienes la propiedad "ListStyle" que, si la pones a 1 te presenta botones de opciones y si la pones a 0 los quita. Creo que es lo que buscas.

Por lo que veo parece que quieres encontrar el folio en la página 'consecutivo' y modificar sus datos con los que aparece en la página 'reemplazar'. Si es eso, la macro que has puesto funciona, aunque tendría alguna cosilla que corregir (¿para qué...

Prueba con este código. Option Explicit Sub agruparCeldasIguales() Dim maxCol As Integer Dim maxLin As Long Dim nCol As Integer Dim i As Integer Dim j As Integer Dim miHoja As Worksheet Set miHoja = ActiveSheet ' Buscamos la última celda de datos y...