Jump to content

AlexanderS

Moderators
  • Content Count

    1,323
  • Joined

  • Last visited

  • Days Won

    53

AlexanderS last won the day on March 5

AlexanderS had the most liked content!

About AlexanderS

Profile information

  • Gender
    Hombre
  • Localización:
    Costa Rica

Converted

  • Campos
    ,

Recent Profile Visitors

4,984 profile views
  1. Hola @vaguilarpau, debes saber que muchos de los colaboradores de este foro no manejamos Autocad y con la prácticamente nula información que brindas (sin archivos de ejemplo) es imposible ayudarte. Por otra parte hay demasiada información en internet sobre como extraer información de Autocad a excel, así que te recomiendo buscar la información intenta armar algo tu y si tienes dudas en el progreso no dudes en preguntar. https://www.google.com/search?client=opera&hs=zEC&sxsrf=ALeKk00fSRsaQ8W2TZ2GwDKm9XudZg3uxQ%3A1586186466930&ei=4kiLXuysOLGb_QatzY6oCw&q=autocad+to+excel&oq=autocad+to+e&gs_lcp=CgZwc3ktYWIQAxgAMgUIABDLATIFCAAQywEyBQgAEMsBMgUIABDLATIFCAAQywEyBQgAEMsBMgUIABDLATIFCAAQywEyBQgAEMsBMgUIABDLAToECAAQRzoECAAQQzoCCAA6BAgAEBM6CAgAEBYQHhATShQIFxIQNy0xNDBnMjQ1ZzEyOGc3OUoNCBgSCTctMWcxZzFnN1DeMFjeVWDRXGgBcAN4AIAB7wGIAfoHkgEFMC42LjGYAQCgAQGqAQdnd3Mtd2l6&sclient=psy-ab Saludos
  2. Hola @enrsolgon2, puedes probar asi: .RowSource = "Hoja!A1:C" & Sheets("Hoja").Range("A1").End(xlDown).Row Saludos
  3. Hola @Enid86, si lo que buscas es saber si la variable "vehiculo" se encuentra dentro de la matriz "listacalidad", puedes utilizar esta linea: If UBound(Filter(listacalidad, Vehiculo)) >= 0 Then Esto buscara dentro de la lista cuantas veces aparece el vehículo, si no aparece devuelve un -1, si aparece devuelve un numero mayor o igual a 0 dependiendo de las veces que se repita dentro de la lista. Saludos a ambos @Sergio, @Enid86
  4. A mi me funciona correctamente siempre, igualmente puedes probar las opciones de JSDJSD y Antoni. Saludos.
  5. Hola @lidavq, he probado el cogido y funciona sin problema, deberás subir un archivo de ejemplo con el error para comprobar. Te adjunto el archivo donde realice la prueba. Saludos. Test.xlsm
  6. Hola @Joaquin Wertmuller, como trabajas con tablas, se te facilita mucho la utilización de Autofiltros, puedes probar el adjunto. Comentas Saludos. Registro ventas (1).xlsm
  7. Que tal @Xogas, excel no es capaz de abrirse por si solo, las macros solo funcionan cuando excel ya esta abierto. Te recomiendo buscar alguna aplicacion para programar tareas o usar las tareas programadas de Windows https://www.solvetic.com/tutoriales/article/3441-como-abrir-y-configurar-programador-tareas-windows-10/ Saludos
  8. Hola, debes indicar el nombre de la hoja donde están los datos, por ejemplo si los datos estuvieran en la "hoja2": Rango_Datos = "[Hoja2$" & Sheets("Hoja2").Range("A2").CurrentRegion.Address(0, 0) & "]" Saludos
  9. Hola @lphant, se puede solo debes definir el rango de tus datos, mira el adjunto. Saludos. Libro1.xlsm
  10. Hola, click derecho en la segmentación -> "Configuración de segmentación de datos", y en las opciones seleccionas la siguiente opción: Saludos
  11. Hola @nickmartinez, por el momento lo que se me ocurre es esto. Saludos ejemplo.xlsx
  12. Puedes establecer un nombre para el campo y si lo quieres dinámico puedes utilizar un DESREF en el nombre, ademas creo que el cells o range no te van a funcionar sin el .Address Si necesitas ayuda mas precisa sube un archivo de ejemplo. saludos.
  13. Creo que ahora si quedo, lo hace por linea y con la segmentación, prueba el archivo y me comentas. saludos. Macro monedas - copia.xlsm
  14. Puedes subir el archivo?, solo para ver como lo tienes acomodado y ver si puedo modificar la macro para que funcione como lo quieres.
  15. Hola @sergiobendrao@hotmail.com, debería funcionar bien si pones los países como filas, eso no afecta la macro. Con lo otro efectivamente utilice el filtro de país para poder crear el evento de cambio en la hoja, con la segmentación directamente es mas difícil ta que no existe un evento que detecte un cambio en la selección. Con lo del error al tener cuando el filtro pais dice "Todas" se puede corregir asi: Private Sub Worksheet_Change(ByVal Target As Range): On Error Resume Next If Application.Intersect(Target, Range("B1")) Is Nothing Then Set divisa = Sheets("Hoja1").Range("Tabla1[País]").Find([B1], , , xlWhole).Offset(0, 1) If divisa Is Nothing Then divisa = "" Range("A4").CurrentRegion.NumberFormat = Replace("_([$-]* #,##0.00_)", "-", divisa) End If End Sub Y para que se aplique en celdas especificas debes cambiar esta linea: Range("A4").CurrentRegion.NumberFormat = por Range("E4:F14").NumberFormat = Saludos.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png