Jump to content

Antoni

Members
  • Content Count

    9,798
  • Joined

  • Last visited

  • Days Won

    485

About Antoni

  • Rank
    Antoni

Profile information

  • Gender Array
  • Localización: Array

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Y a las demás personas que han intervenido ¿Que?
  2. 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
  3. Si no subes el archivo con una explicación, imposible ayudarte.
  4. 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
  5. 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.
  6. 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
  7. 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.
  8. Pues a mi me ha salido esto. PRUEBA (2).xlsm
  9. 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
  10. Yo pondría la descomposición de la fórmula en un comentario, si te interesa, lo intento.
  11. Sube tu archivo y explica lo que quieres hacer.
  12. Es que tu archivo no se puede descargar, dice que no está disponible (eliminado). Vuelve a subirlo.
×
×
  • Create New...

Important Information

Privacy Policy