Elsa Matilde

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...

Recibidas las muestras. Ya me ocuparé en el día de hoy. Sdos. Elsa http://aplicaexcel.com/funciones

Ya te envié consulta a tu correo, para que me envíes una hoja de modelo: - Cuáles son los rangos en dónde estarán las celdas de color (tenés varios rangos en el libro anterior) - ¿Necesitás qué seleccione todas las de color? ¿O alguna que coincida...

Para reconocer cuál es el control seleccionado utiliza la comparación así: Private Sub CommandButton1_Click() Dim I As Integer Dim A As Integer A = 0 I = 1 For I = 1 To 4 If Me.Controls("OptionButton" & I) = True Then A = A + 1 End If Next...

La parte del código que colorea las celdas con diferentes tonos quedó así. En un módulo dejé una pequeña rutina que lista los colores (en hoja1) del 1 a 20, como para que puedas cambiar los tonos. Set busco = ho2.Range("A:AA").Find(nro,...