Saltar al contenido

PAISES, ESTADOS(O PROVINCIAS O DEPARTAMENTOS) Y MUNICIPIOS(O DEPARTAMENTOS)


Recommended Posts

publicado

Hola muy buen dia o noche tengan, quiero pedirles un favor muy grande, si alguien tendrá por ahi entre sus archivos, uno donde tengan un combobox relacionado con otros comboboxes, ya que lo que requiero hacer es que en el comboboxPaises tenga la lista agregada de todos los paises del mundo, en el comboboxEstados tenga todas las listas de todos los estados de los paises del mundo, y en el comboboxMunicipios; disculpen mi mala cultura respecto a los demas paises pero mi idea es poder hacer que al poner el PAIS  en el primero combobox llene el combobox con los estados de ese pais y al poner el ESTADO en el segundo combobox llene la lista de MUNICIPIOS de ese estado,  desconozco como sean las diviciones territoriales de otros paises, y por lo menos para lo que quiero hacer (y espero mi idea sea concreta y el problema no llegue a mas alla de lo que pienso) y poniendo el ejemplo aqui en México, las divisiones territoriales son asi (ejemplo: PAIS: México; ESTADO: Veracruz; MUNICIPIO: Cordova). Y aunque mi idea respecto a la programacion ya la conozco de como relacionar listados de combobox, lo que me interesa mas es poder tener esa informacion de todos los paises, todos los estados y todos los municipios y si alguien pudiera hacerme el favor de pasarlo se lo agradeceria infinitamente. Espero me haberme dado a entender y no causar alguna molestia ni tampoco haber infrigido alguna regla. les agradezco de antemano.

dejo archivo muestra en el link,,,en el solo tengo los listados de los paises, los estados de mexico con sus municipios pero me faltan los demas, se que es una carrera maratonica pero si alguien tiene algo de esto avanzado se lo agradeceria

 

 

PAISES Y PROVINCIAS

publicado

hola JSDJSD te agradezco mucho el tiempo dedicado, pero sucede que lo que busco no es como tal la combinacion de los datos que ya tengo en los combobox si no mas bien lo que necesito es la informacion como tal, osea todos los paises con sus estados y sus estados con sus municipios, aun asi el archivo que me enviaste cumple con la funcion de relacionar el pais con el estado pero faltaria el municipio, no es lo que busco

publicado

Para que la macro funcione la tabla necesita esta como esta en el ejemplo adjunto, con eso es mas facil mas programacion como tu la tienes es muy dificil programar, la macro lee la informacion y confome tu escogas el pais la va sectorizando por estados primero, seleccionas un estado y la sectoriza por municipios, prueba y comentas, ojo el alcance de la macro solo tiene colo limites la cantidad de filas y columnas de la hoja, si tu quitas o agregas paises la macro lo tendra en cuenta la siguiente vez que la corras

PAISES Y PROVINCIAS.xlsm

publicado

Dr Hyde, no es lo que busco

creo que no me explique bien, solo necesito la informacion de los paises, estados y municipios, es decir; la cantidad de paises la cantidad de estados y la cantidad de municipios de todo el mundo, yo ya se como relacionar los combobox entre ellos, lo que yo necesito es el listado de todos los paises, todos los estados y todos los municipios para yo poderlos agrupar en los respectivos combobox

una disculpa si no me explique bien

publicado
Hace 7 horas, viejo dijo:

necesito la informacion de los paises, estados y municipios, es decir; la cantidad de paises la cantidad de estados y la cantidad de municipios de todo el mundo

1) lista de países:
https://www.countries-ofthe-world.com/all-countries.html
https://www.nationsonline.org/oneworld/countries_of_the_world.htm
http://www.worldometers.info/geography/how-many-countries-are-there-in-the-world/
https://en.wikipedia.org/wiki/List_of_sovereign_states

2) lista de ciudades por país:
- https://en.wikipedia.org/wiki/Lists_of_cities_by_country

OJO:

  • en la lista de ciudades de cada país, al final hay una lista de ciudades por provincia/estado/condado/... (indicada en rojo italicas)
  • algunas se acompañan de su "entidad federativa" (estado)
  • los municipios enunciados son solo los principales (los secundarios no aparecen en estas listas)

3) hay que hacer una buena "talacha" de depuración y arreglo :(

saludos,
hector.

publicado

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.

 

publicado

bueno evidentemente es mucha talacha poder poner todas las organizaciones territoriales de cada pais, al menos pudiera tener la lista de divisiones territoriales de cada pais Hector Miguel, te agradezco la informacion me es muy util, maestro Antoni tienes razon en cuanto no necesitar validar ninguna direccion de los paises que mencionas, pero siempre es bueno tener informacion asi, pero como se que no soy el unico que pensó esto me preguntaba si alguien ya hizo esa talacha y pues pudiera aportarla, al grado de poderla agrupar por comboboxes, algo asi, como los hipervinculos pero bueno cada quien se pone misiones :D

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
    • Podrías compartir tu solucion
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.