Daniel Espino

A modo de ejemplo lo que se me ocurre es así: En los botones pones esto: Private Sub CommandButton1_Click() Set h = Sheets("Hoja1") Set a = h.Columns("A").Find(Range("G1").Value, LookAt:=xlWhole) If Not a Is Nothing Then Range("G2") = Cells(a.Row, 2)...

Lo único que se me ocurre y te propongo es separarlos en 4 textbox y bloquear los números cada textbox tendría algo así : Private Sub TextBox1_Change() If TextBox1 = "" Then Exit Sub If IsNumeric(TextBox1.Value) Then If Len(TextBox1) = 4 Then...

No se si te entendí bien pero supongo que es algo así: =Buscarv(max(C:C), C:E, 3, falso) Buscará el valor máximo de la columna c y te devolverá el valor correspondiente de la columna e.

Te propongo esta solución Private Sub CommandButton1_Click() UserForm2.Show End Sub Llamamos el form2 solamente. En el form 2 usa este ejemplo Private Sub UserForm_Activate() TextBox1 = UserForm1.TextBox1.Text End Sub El evento se activa al iniciar...

Intenta agregar una tilde "~" antes del carácter que quieres buscar, ¿por otro lado estas buscando resultados o fórmulas? Recuerda que puedes ser más especifico a lo que quieres

Solo me se esta forma: Sub bloquear() Cells.Locked = False Range("A1").Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Intenta así: =SI(F9="Entrada",F8+F12,SI(F9="Salida",F12-F8,""))

Es muy sencillo mira: Para que entiendas como funciona pon la fórmula en b9 y el código que quieres en a9 =Buscarv(a9, a2:b6, 2, falso) la fórmula necesita que el primer argumento sea el valor a buscar, puedes indicarlo directamente o con un valor de...

Con fórmula no se me ocurre una fórmula para detectar ese rango. Con macro puedes usar algo así: Sub sumult() n = Cells(2, 1) uc = Cells(2, 1).End(xlToRight).Column s = 0 For i = uc To (uc - n) + 1 Step -1 s = Cells(2, i) + s Next i Cells(2, 12) = s...

Supongo que es la línea de fecha de recepción, cámbiala por ésta: ActiveCell.Offset(0, 11) = Format(fecha_recepcion.Value, "dd/mm/yyyy") Si aun así te lo cambia invierte el formato: ActiveCell.Offset(0, 11) = Format(fecha_recepcion.Value, "mm/dd/yyyy")