Elsa Matilde

Generalmente el problema radica en que 'asumen' que el dato se encontrará y por eso hacen un Find con Activate. Cells.Find(what:=celda).Activate 'EN ESTA LINEA Pero si nos vamos un poco más arriba, la secuencia empieza en una hoja (ws), con una...

¿Qué significa '...abra el libro y compruebe las fechas ...'? ¿Se ejecuta ya algún proceso de comprobación? Si todavía no lo hay, te enviaré una macro que al momento de la apertura recorra la col B buscando fechas con 2 días de diferencia con...

Hay varias maneras de proteger el libro contra escritura. A continuación te resumo algunas ideas, pero te invito a mirar el video N° 37 de mi canal (Protección de libros y hojas). 1- Abrir el libro con contraseña de escritura ... pero la persona que...

No pude descargar el libro. De todos modos tampoco estaría la macro para revisarla y ver las celdas con desplegable. Entiendo que hay celdas bloqueadas y otras no. Por lo tanto al proteger la hoja solo podrás escribir o modificar aquellas...

Para que te busque la primer fila libre según col A, coloca esa letra en la siguiente instrucción: Hoja2. Cells(Rows.Count, "A").End(xlUp). Offset(1) = CDbl(TextBox1) Ahora, si tendrás 2 controles y colocarás su contenido en A y B la macro buscará la...

Creo que lo más apropioado sería que la macro se ejecute al abrir el libro. Por lo tanto coloqué el código en el evento Open del objeto Libro. En tu imagen no se ven los encabezados de fila. Tendrás que ajustar las instrucciones donde dejé los...

Primero seleccioná la hoja y luego obtené el fin de rango de esa hoja: Sheets("Base").Select FilaIngresar = [a1000000].End(xlUp).Row + 1 Te invito a mirar el video N° 11 de mi canal (Mejoras en el código VBA). Quizás puedas evitar el ME...;) Sdos. Elsa

Utiliza la función de conversión VAL para pasar contenido de un TextBox a valor numérico: If Val(TextBox1) <> Year(Now()) Then Sdos. Elsa http://aplicaexcel.com/manuales

Debes anteponer el nombre del control ListBox1: ListBox1.List(ListBox1.ListCount - 1, 1) = Format(resul, "#,00") 'col 1 ListBox1.List(ListBox1.ListCount - 1, 2) = Format(resul, "#.00") + 10 'col 2 Dejo como ejemplo las instrucciones para pasar...

Te dejo la macro ajustada para los rangos en col A y G: Private Sub Worksheet_Change(ByVal Target As Range) 'modificada x Elsamatilde If Target.Count > 1 Then Exit Sub If Target.Value = "" Or Target.Column <> 1 And Target.Column <> 7 Then Exit Sub...