Dante Amor

Sabiendo que existe el código me dice que el valor no existe Te refieres a un código VBA, puedes poner aquí el código. Y me lo coloca en el cuadro combinado Es un verdadero dolor de cabeza trabajar con celdas combinadas, sobretodo si es una base de...

Tu macro no tienen ninguna de las 5 condiciones, solamente elimina duplicados y eso si están ordenados por color, como en tu ejemplo. Pero te preparo una nueva. Revisando tus condiciones y tus ejemplos, me parece que no viene un ejemplo para esta...

Pon el siguiente código dentro del userform. Cambia "Hoja1" por el nombre de la hoja donde tienes los datos. Dim sh As Worksheet ' Private Sub ComboBox1_Change() Dim col As Long, lr As Long ComboBox2.Clear If ComboBox1.ListIndex = -1 Then Exit Sub...

H o l a y bienvenido a TodoExpertos. Puedes sacar los 3 mejores con una tabla dinámica. Revisa los ejemplos en las siguientes respuestas: ¿Cómo sacar el top de los más repetidos? Como hacer un filtro con ranking Si no es lo que necesitas, entonces...

Prueba la siguiente: Sub Reemplazar_Datos() Dim f As Range, c As Range ' For Each c In Range("I2", Range("I" & Rows.Count).End(3)) Set f = Range("B:B").Find(False, , xlValues, xlWhole, , , False) If Not f Is Nothing Then f.Resize(c.Value, 1).Value =...

Adiciona las siguientes líneas en el evento Initialize de tu formulario. Si no tienes el evento, entonces agrega todo: Private Sub UserForm_Initialize() If Date > "20/05/2021" Then MsgBox "Formulario caduco" End End If ' 'aquí debe continuar tu...

Se puede hacer con código VBA, no es necesario el uso de fórmulas. Si ya tienes un archivo con tu userform, comparte tu archivo en google drive y te ayudo a completar el código para filtrar los datos en un userform por nombre o por ID.

En la variable "n" asignas el número de registros. En la variable "m" quedará el total de hojas. Si tienes la función redondear hacia arriba, puede ser: Sub test1() Dim n As Double, m As Double n = 185 m = WorksheetFunction.RoundUp(n / 12, 0) End Sub...

Qué tipo de listas son. De validación de datos, Combobox de formulario, combobox de control activeX. La única manera es con controles de combobox active X.

Prueba lo siguiente: Sub PRECIO_CON_DESCUENTO_MAS_IVA() Dim copia As String ' Do While True copia = InputBox("¿De cuanto es el descuento?", "AVISO") If StrPtr(copia) = 0 Then 'Click Cancel Exit Sub ElseIf Len(copia) = 0 Then 'El campo copia está...