Luis Mondelo

Te mando un ejemplo. Nos imaginamos que tenemos el rango D2:D12 con números pero algunas celdas están en blanco y queremos obtener la media en la celda D13. Ejecuta esta macro y listo! Sub prueba1() 'Por luismondelo range("d13").Value =...

Te paso la solución con un ejemplo: En esta macro copio la hoja1 a un nuevo libro y en la hoja copiada quito los hipervínculos. Sub prueba3() 'Por Luismondelo mio = ActiveWorkbook.Name Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate...

No se lo que quieres decer con fórmula pre-existente.

Puedes hacerlo de la siguiente manera: Create un pequeño userform con un textbox y un botón y en las propiedades del textbox modifícale el passwordchar poniendo un asterisco para que aparezca ese símbolo cuando escribamos en él. Un abrazo.

Julio hay dos métodos: 1º- modificando la opción columnbound de las propiedades del listbox y poniendo en su lugar un 6 de esta manera cuando selecciones una línea del listbox te tomará siempre el valor de la columna 6 con un sentencia como esta:...

Esta sería la sentencia necesaria usando rowsource: lisbox1.rowsource = "códigos!c9:c" & sheets("códigos").range("a65000").end(xlup).row

Mándame el archivo con esa columna para verla de cerca e intentar ayudarte. [email protected]

Te mando el ejemplo: Sub prueba1() 'Por Luismondelo dato = InputBox("que dato buscamos???") rango = InputBox("donde lo buscamos???") Set busca = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then...

Estas son las 4 macros que necesitas para los 4 botones: Atención la primera fila también tienes que copiarla, en ella declaramos pública la variable fila. Public fila Private Sub CommandButton1_Click() 'boton primera fila TextBox1.Value =...

En la celda que tu quieras escribe esto: =ahora() Recuerda finalizar