arico19

Con el permiso de elsamatilde, cuya función es la que tú utilizas: Sólo debes cambiar en el if la condición: "if not isnumeric(textbox4) then" por "if not isdate(textbox4) then". Además, la comprobación la realizamos al salir del campo y no en el...

Si, por ejemplo, la fecha la tienes en la posición A1 este código te valdría: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then UserForm2.TextBox2.Text =...

Usando filtro avanzado es muy sencillo. Te añado una imagen donde busco tanto en una de las columnas como en la otra el dato "Apellido2". Para ello tengo que crear antes una tabla de criterios (la coloco al lado de la tabla de apellidos) y le indico...

Ponle delante una comilla: '5-9

Utiliza en Formato - Formato condicional - Fórmula y ahí le pones: =SI(COINCIDIR($A1;$B$1:$B$20;0)<>0;1;0) Luego defines el formato (color amarillo), cierras el cuadro de diálogo y ya tienes definido el formato para la celda A1.

Si los datos a buscar los tienes en D1 y en D2, esta sería la respuesta: =indice($C$1:$C$100;coincidir(1;indice(($A$1:$A$200= D1)*($B$1:$B$100=D2);0);0))

No es posible sumar datos sólo por el formato que tengan. El formato es sólo una indicación de cómo se verá el dato, no el dato en sí.

Prueba a crear una subrutina nueva desde el editor de Visual basic: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column = 10 Then If Cells(ActiveCell.Row, 6) = "" Then ActiveCell.Delete End If End If end sub

Colocas un botón y como código al pincharlo le pones: Private Sub CommandButton1_Click() Cells(3, 1).Value = Cells(1, 1).Value / Cells(2, 1).Value End Sub Después creas otro procedimiento desde el editor de visual basic: Private Sub...

Prueba esta fórmula: =si(eserror(buscarv(c1;Hoja2!A1:L2;2;0));"No existe";buscarv(c1;Hoja2!A1:L2;2;0)).