Eduard Caballero

El macro funciona, al menos el que me has copiado acá OJO donde colocas el código. Este hace lo siguiente, busca un valor actualizado al cambiar el valor de las celdas A1 Hasta la A:10000. Al dar Enter se baja una fila por esto el offset (-1,1) y el...

Podrías colocarla así por ejemplo valor = Application.WorksheetFunction.Match(Range("$X$25"), Hoja2.Range("$A$2:$A$1709")) Cells(valor + 1, 57).Value = valor Hoja2 es el nombre ID de la hoja, puedes verificarlo en tu proyecto y ajustarla a tus...

Puedes usar la función contar. Si. Conjunto Por ejemplo puedes colocar en una celda =CONTAR.SI.CONJUNTO(A1:A4;"enfermedades";B1:B4;">5") El rango A1:A4 es donde están las enfermedades en tu caso el rango seria A1:A10457 El rango B1:B4 es donde esta...

Acá tienes Private Sub CommandButton1_Click() Dim oShell As Object Set oShell = CreateObject("Wscript.Shell") oShell.Run "http://www.ayudaexcel.com/foro/showthread.php?t=15955" End Sub

Al cambiar el valor del textbox te coloca el formato de fecha Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value &...

Acá tienes información valiosa para lo que quieres http://hojas-de-calculo-en-excel.blogspot.com/2009/02/combobox-sacandoles-provecho.html http://hojas-de-calculo-en-excel.blogspot.com/2008/12/combobox-dependientes.html

Aquí tienes el ejemplo se llama fechas y esta en mi skydrive

Prueba con esto =SI(Y(D1="";F1="");"";SI(D1>F1;3)+SI(F1<D1;0)+SI(D1=F1;1)) Cambia los ; por , Esta fórmula ve si las celdas están vacías y entonces la fiormula devuelve vacío igualmente

Eso depende de tu configuración regional. Para tu conocimiento puede funcionar con comas para aquellos donde la configuración regional se cambie.

Prueba con clearcontens ¿Pero quieres que se borre TODO lo que esta en la hoja6? Estro seria un ejemplo para borrar lo que esta en la hoja activa Range("A1:B2"). ClearContents y esto para una especifica Hoja2. Range("A1:B2"). ClearContents