Antoni

Y a las demás personas que han intervenido ¿Que?

Esta macro carga valores únicos ordenados: Sub CargarCombo1() With Hoja12 Application.ScreenUpdating = False .Columns("E").Copy .Columns(Columns.Count) .Cells(1, Columns.Count).Delete .Columns(Columns.Count).RemoveDuplicates Array(1) .Columns(Columns.Count).Sort key1:=.Cells(1, Columns.Count) ComboBox1.List = Range(Cells(1, Columns.Count), Cells(Rows.Count, Columns.Count).End(xlUp)).Value .Columns(Columns.Count).Clear End With

Si no subes el archivo con una explicación, imposible ayudarte.

Un día va desde las 00:00:00 hasta las 23:59:59. A ver si así lo ves más claro. ConteoTiempoEnFORMULARIO_FechayHorA.xlsm

Si no subes tu archivo y explicas EXACTAMENTE lo que quieres, ni en 3 días, ni en 3 meses, ni en 3 años vas a tener una respuesta satisfactoria.

A ver ahora. PRUEBA (2) (1).xlsm

Otra forma: Sub DíaSemana() Dim Día As Variant, x As Long Application.ScreenUpdating = False Día = Array("", "Lunedi", "Martedi", "Mercoledi", "Giovedi", "Venerdi", "Sabato", "Domenica") For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("B" & x) = Día(Weekday(Range("A" & x), vbMonday)) Next End Sub

No entiendo cual es el objetivo que persigues, solo en España hay mas de 20.000 entidades de población, no quiero ni imaginarme los que deben haber en China, en Rusia o en la India. No hablemos ya de la organización territorial de cada país, solo un ejemplo, yo vivo en España en el submunicipio de Bertamiráns, concello de Ames, provincia de La Coruña, comunidad autónoma de Galicia. En mis ya casi 70 años de vida, jamás he necesitado validar ninguna dirección de Afganistán, Angola, Siria, Ubdekistán, Myammar,... y así con el 99% de los países del mundo.

Pues a mi me ha salido esto. PRUEBA (2).xlsm

Creo que es lo que has pedido, cada vez que cambies el valor de cualquier celda de la columna O(15) se creará/actualizará un comentario con los componentes del resultado. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 15 Then Set cmt = Target.Comment If cmt Is Nothing Then Target.AddComment Set cmt = Target.Comment End If If Trim(Target) = "" Then cmt.Delete Else If Target > 0 Then cmt.Text Text:=cmt.Text & "+" & Target & Chr(10) Else cmt.Text Text:=cmt.Text & Target & Chr(10) End If Application.EnableEvents = False Target.Formula = "=" & cmt.Text Application.EnableEvents = True End If End If End Sub Descomponer fórmula.xlsm

Yo pondría la descomposición de la fórmula en un comentario, si te interesa, lo intento.

Abre el adjunto y pulsa sobre la flecha azul. Ejemplo.xlsm

Sube tu archivo y explica lo que quieres hacer.

¡Excelente!, Gracias por compartirlo,

Es que tu archivo no se puede descargar, dice que no está disponible (eliminado). Vuelve a subirlo.