Jump to content

Search the Community

Showing results for tags 'macros y vba'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Access, Word, Power Point, Outlook etc...
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Presentaciones
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests

Found 406 results

  1. Saludos cordiales mis estimado amigos... Acá para molestarles con sus valioso apoyo... He estado intentando entrar en el mundo excel-access; todo iba de maravilla, hasta que he cambiado de version de excel, y el archivo que adjunto me funcionaba bien, sin embargo, ahora que pretendo migrar información de una hoja de excel hacia una base de Access me lanza un error. Preciso que me apoyen en ayudarme a corregir el asunto en cuestión. De antemano, muchas gracias por su valioso tiempo y apoyo. EL ERROR, ME LO MARCA CON AMARILLO EN ÉSTA LÍNEA: cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "\CENTRAL_MED.mdb;" & _ "Jet OLEDB:Database Password=villatoro;" DEJO POR ACÁ EL QUERY QUE OBRA EN EL ARCHIVO DE EXCEL... LO DEJO ASÍ, YA QUE INTENTÉ EN REPETIDAS OCASIONES SUBIR EL ARCHIVO EXCEL, PERO ME MARCÓ ERROR... Sub exportaraccess() Dim cn As ADODB.Connection, rs As ADODB.Recordset, n As Long Dim nfila As String If [a2] = Empty Then MsgBox prompt:="NO HAY DATOS/INFORMACIÓN PARA EXPORTAR", Buttons:=vbOKOnly + vbCritical, Title:="FORMATO DE CARGA VACÍO" Exit Sub End If Set cn = New ADODB.Connection cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "\CENTRAL_MED.mdb;" & _ "Jet OLEDB:Database Password=villatoro;" Set rs = New ADODB.Recordset rs.Open "Datos", cn, adOpenKeyset, adLockOptimistic, adCmdTable n = 2 Do While Range("a" & n) <> Empty With rs .AddNew .Fields("FECHA RECETA") = Range("a" & n).Value .Fields("FECHA DESPACHO") = Range("b" & n).Value .Fields("AÑO DESPACHO") = Range("c" & n).Value .Fields("MES DESPACHO") = Range("d" & n).Value .Fields("DIA DESPACHO") = Range("e" & n).Value .Fields("SERIE DOCUMENTO") = Range("f" & n).Value .Fields("NO DOCUMENTO") = Range("g" & n).Value .Fields("AFILIACION SALA") = Range("h" & n).Value .Fields("CODIGO") = Range("i" & n).Value .Fields("CANTIDAD DESPACHADA") = Range("j" & n).Value .Fields("CATEGORIA") = Range("k" & n).Value .Fields("OBSERVACIONES") = Range("l" & n).Value .Fields("ESTADO") = Range("m" & n).Value End With n = n + 1 Loop With rs .AddNew .Fields("FECHA RECETA") = Range("a" & n).Value .Fields("FECHA DESPACHO") = Range("b" & n).Value .Fields("AÑO DESPACHO") = Range("c" & n).Value .Fields("MES DESPACHO") = Range("d" & n).Value .Fields("DIA DESPACHO") = Range("e" & n).Value .Fields("SERIE DOCUMENTO") = Range("f" & n).Value .Fields("NO DOCUMENTO") = Range("g" & n).Value .Fields("AFILIACION SALA") = Range("h" & n).Value .Fields("CODIGO") = Range("i" & n).Value .Fields("CANTIDAD DESPACHADA") = Range("j" & n).Value .Fields("CATEGORIA") = Range("k" & n).Value .Fields("OBSERVACIONES") = Range("l" & n).Value .Fields("ESTADO") = Range("m" & n).Value End With Set rs = Nothing cn.Close Set cn = Nothing MsgBox prompt:="LA INFORMACIÓN FUE CARGADA CON ÉXITO", Buttons:=vbOKOnly, Title:="DATOS EXPORTADOS" If [a3] = Empty Then Range("a2", Selection.End(xlToRight)).ClearContents Exit Sub End If nfila = Range("A65535").End(xlUp).Row Range("A2:M" + nfila).ClearContents End Sub CENTRAL_MED.mdb
  2. Tengo dos macro: Esta abre un archivo con los datos insertados en la celda j3, siempre que el libro ya exista con ese mismo nombre o numero. Sub DESEMBOLSO_ABRIR_REGISTRO_EXISTENTE() Ruta = "E:\AIM\" archivo = Range("J3") Workbooks.Open (Ruta & archivo) End Sub Esta otra abre un libro especifico llamado base.xlsm Sub DESEMBOLSO_ABRIR_HOJA_base() Workbooks.Open "E:\AIM\base.xlsm" End Sub Deseo unirlas para que si el nombre del archivo que pongo el "J3" existe lo abra como hace la primera macro, y si no que me abra el archivo base.xlsm. Todos están en la misma carpeta del libro E\AIM
  3. Después de una búsqueda incesante, tuve la suerte de encontrar este foro que frecuento desde el 2015 desde entonces he tratado de encontrar algo que me ayude a resolver el tema que invoco "Suma de dos celdas de rangos diferentes arrastrando el puntero". Creo que Excel y por supuesto VBA, es la más grande maravilla creada por el hombre que puede solucionar incluso temas más complicados que el mencionado, sólo que es necesario de mentes brillantes como la de MacroAntonio a quien lo admiro, lo respeto y lo vengo siguiendo desde el 2015. En todo caso con las disculpas del caso me permito proponer el tema en el archivo que adjunto y agradeceré de sobre manera vuestros aportes. SUMA DE DOS CELDAS .rar
  4. buenas noches, mi consulte es, formula para poder sacar números anteriores a un punto; pa retgdhhfhfg 5.0 mm extraer 5 lr tridfhfjsdsd 25.0 mm extraer 25 vf lkfiidfdfdf 100.0 mm extraer 100 gh prueba 16.0 mm extraer 16 como podéis observar los textos son de diferentes números de caracteres, la única coincidencia son el . que todos tienen, lo que busco es poder extraer de forma automática los números para poder sumarlos después. espero respuestas y gracias.
  5. Hola estimados, nuevamente solicitando su ayuda para poder enriquecer mis conocimiento en las macros. quisiera calcular el total de horas según dos fechas ingresadas en celdas diferentes, éste cálculo automáticamente al hacer enter y debe de calcular en todas las celdas desde el encabezado hacia abajo, adjunto archivo, gracias por su ayuda. Libro1.xlsm
  6. Amigos de ayuda excel, buenas noches, necesito que me ayuden con la programación de este macro. necesito saber como programar los botones de entrada y salida. la idea es que cada ves que ingrese una entrada se sume a las cantidades ya existentes y cada vez que ingrese una salida se reste de mis entradas, al final debe arrojarme un stock existente. Adjunto el archivo ya desarrollado con los botones, pero en la programación no esta bien ya que no funciona, agradeceria su aporte. Aparte tambien necesito ayuda, el ejercicio es el mismo pero con la diferencia que este debe tener fecha de entrada y fecha de salida, los cuales deben estar estaticos y de manera automática sin que nadie pueda modificar las fechas tanto de entrada como de salida. espero que me hayan podido entender y me puedan brindar su ayuda desinteresada. saludos a toda la comunidad de ayuda excel. Ate Jandres351 Control de Almacen.xlsm
  7. Buenas tardes, Otra vez por aqui con otra consulta.... Lo que quiero hacer es lo siguiente: Quiero que me inserte una formula de Sumar.Si en la fila 6, siempre y cuando en la columna A encuentre un valor, y siempre y cuando en la fila 3 encuentre un valor, pero saltándome una columna, es decir, en una columna N insertar formula, la columna N+1 dejar vacia, en la columna N+2 poner formula y asi sucesiamente hasta que no encuentre ningún valor. En el caso que estoy trabajando es sencillo, porque en la columna A tengo referencias y en la fila 3 tengo meses, por lo que con 12 líneas con 12 fórmulas lo hago, como veis abajo: ActiveSheet.Range("$F$6:$F" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(F$3))" ActiveSheet.Range("$H$6:$H" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(H$3))" ActiveSheet.Range("$J$6:$J" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(J$3))" ActiveSheet.Range("$L$6:$L" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(L$3))" ActiveSheet.Range("$N$6:$N" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(N$3))" ActiveSheet.Range("$P$6:$P" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(P$3))" ActiveSheet.Range("$R$6:$R" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(R$3))" ActiveSheet.Range("$T$6:$T" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(T$3))" ActiveSheet.Range("$V$6:$V" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(V$3))" ActiveSheet.Range("$X$6:$X" & Range("A" & Rows.Count).End(xlUp).Row).FormulaLocal = "=SUMAR.SI.CONJUNTO(Bot_Prod;SKU;$A6;Mes_Prod;MES(Y$3))" Pero si tuviese muchas columnas esto no sería factible. ¿como lo podría hacer entonces? Estoy aprendiendo y todavía no controlo las estructuras repetitivas... Muchas gracias por vuestra ayuda
  8. Hola a todos estoy trabajando con una database en access y excel vba pero en mi database son 200 mil registros abra una manera de hacer mas eficiente una consulta de busqueda yo uso este tipo de consulta la base de datos esta en red y cuando se conectan varios usuarios a consultar es muy lenta diria demasiado lenta en hacer una busqueda en el evento click del listbox tengo los dni y cuando doy click en un dni muestra los datos Sub Consulta_Cliente() Set rs = New ADODB.Recordset dato = Frm_Cliente.ListBox2.List(Frm_Cliente.ListBox2.ListIndex, 0) Frm_Cliente.Txtdnicli.Value = "": Frm_Cliente.Txtcliente.Value = "": Frm_Cliente.Txtcodvend.Value = "" Frm_Cliente.Txtvend.Value = "" rs.Open "Select * from Tbl_activador where NUM_DOCUMENTO='" & dato & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText If rs.RecordCount > 0 Then Frm_Cliente.Txtcliente.Value = rs!nombre_cliente Frm_Cliente.Txtcodvend.Value = rs!COD_PROMOTOR Frm_Cliente.Txtvend.Value = rs!PROMOTOR Frm_Cliente.Txtdnicli.Value = rs!NUM_DOCUMENTO endif
  9. Buenas tardes a todos, nuevamente aquí como siempre espero no se cansonsita. ante que todos felicito a todos lo que me han colaborado, y sigo muy bien los paso de todos ya que solo tengo poco estudiando excel con VBA y amo, me encata, y estoy facinada con lo que estoy aprendiendo. cada código que me pasa son conocimiento que adquiero de ustedes muchas gracias y mi dios me los bendiga a todos. bueno aquí lo que necesito, deje un ejemplo para que visualicen lo que exijo: explico el proceso para que no tengamos muchas dudas: sencillo como esto con los dos listbox que deje uno carga las fechas que están en la hoja y el otros listbox es pasa lo que esta en el listbox1 al listbox2 done el listbox2 sumara toda la celda D2 en adelante pasa saber el volumen por las fechas que busco y el rencuento seria asi tengo 3 fechas 10/10/2016 11/10/2016 12/10/2016 listbox1 me da las fehcas paso a listbox2 estas 10/10/2016 12/10/2016 la cual en el boton sumara la Columna D2 y me dara el volumen y me dara el recuento que seria la cantidad si es posible sera una ayuda mas Ejemplo ListBox.xlsm
  10. Buenas tardes, Tengo dos hojas en las que el único elemento en común es la fecha. Necesito, desde la hoja ORIGEN copiar el valor total (fila TOTALES) de esa fecha (indicada en PICOS) en la hoja DESTINO (Fila 30 - PICADAS PROMOCIONES). El proceso hay que repetirlo para cada una de las fechas con datos en ORIGEN. En el fichero adjunto va también la hoja RESULTADO en la que indico lo voy buscando. En la hoja ORIGEN marco en rojo los valores necesarios. Muchas gracias. Copia_Datos.xlsx
  11. Buen Dia /Noche a todos. Tengo una duda y si alguien me puede ayudar para crear una macro. Tengo un archivo en donde varios numeros de parte estan juntos en una sola celda, solo delimitadas por un espacio. Necesito separar los numeros de parte en celdas separadas y copiar el titulo #-Parte en todas las columnas donde haya información. Utilize el grabador de macros para poder separar los numeros de parte, pero no tengo idea de como copiar el titulo hasta la ultima columna con informacion: Esto es lo que tengo del codigo para separar los numeros en columnas: Sub Macro1() ' ' Macro1 Macro ' ' Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _ TrailingMinusNumbers:=True End Sub Adjunto el archivo con un ejemplo y como queda al final haciendolo manualmente.Muchas Gracias a todos. Copia Archivo.zip
  12. Buenos días a todos, Tengo una consulta si me pueden colaborar, es la siguiente: Tengo un archivo el cual en varias celdas ingreso el nombre de la persona y en otros el nombre de tratamientos o equipos Deseo que cuando ingrese el nombre en dicha celda, ya sea en minúsculas o mayúscula quede convertido La primera letra en Mayúscula, ejemplo: 1. "anibal zuluaga" -----> "Anibal Zuluaga" 2. "ANIBAL ZULUAGA" -----> "Anibal Zuluaga" Que esto suceda después de dar "Enter" En el Ejemplo serian las columnas "B,C,E,F,H,I" las cuales ingreso el nombre. Adjunto Archivo. Ejercio Ttos Duplicados-M-Con Ventana.xlsm
  13. Buenas tardes. Vuelvo a hacer una consulta para ver si me orientan en la construcción de un Formulario para ingresar datos en una matriz. La idea es crear un formulario, por el que mediante de un Combobox busque en la columna B el nombre del empleado, para así captar el número de fila, y con dos Textbox, introducir la fecha inicial y la fecha final, para acotar las columnas donde introducir el dato por medio de otro Combobox. Como no domino mucho las macros he empezado dando en la celda B2 el número de fila y en las celdas B3 y B4 las columnas, luego en la celda B5 el dato a copiar y con la siguiente instrucción me introduce el dato en el rango seleccionado. "Range(Cells(Fila, InColum), Cells(Fila, FinColum)) = Range("B5").Value". El problema me ha surgido cuando lo mismo lo intento hacer desde un formulario, logro que me busque el nombre del empleado en la columna B, para así dar a una variable la fila donde debe introducir los datos, el problema me surge cuando intento localizar o acotar las columnas desde el inicio al final del rango. estas pretendo que las localice, mediante dos Textbox, en los que introduzco dos fechas y las ha de buscar en el rango ("C9:AG9"), donde estan los días desde el 1 de enero al 31 de enero. De este modo si el trabajador que esta ubicado en la fila 12 por ejemplo y he de poner vacaciones "V" desde el 3 de enero al 20 de enero por ejemplo, metiendo en el formulario su nombre, en el combobox1, fecha de inicio en el textbox1, fecha final en textbox2 y el dato en el Combobox2, me introduzca en el rango correspondiente una "V" en cada celda. Gracias por leer este mensaje y espero que me puedan orientar como continuar con la construcción del Formulario. Subo un archivo para que vean lo que llevo hecho y sepan lo que pretendo hacer. seleccionar rango.zip
  14. ya hice el resto pero no logro poner en el boton de sumar, que sume la columna 4 donde esta el volumen 0,163 cuando lo suma da es 0 ultRegistros ADr2.xlsm
  15. Encontrar factor de multiplicación en excel Existen tres valores los cuales tengo a disposición estos son Toneladas, Valor toneladas y numero de suscriptores, al realizar la multiplicación de estos me da un valor a cobrar como lo muestra el archivo anexo, pero para eso debo hacer las operaciones individuales, lo que se requiere es que yo pueda sumar la toneladas, los suscriptores y multiplique por una factor que me de el mismo resultado como si lo hiciera individual. Se aclara que los datos varían, por lo cual el resultado final es diferente. Anexo archivo para mayor comprensión. Pregunta hallar factor.xlsx
  16. tengo este código pero no logro que me salga el msgbox el código mas el dato con máximo valor ejemplo en este caso seria así con el código Private Sub CommandButton30_Click() Sheets("Eucalipto").Select Dim Dir$ Dir = Cells(Range("A2:A64000").Find(Application.WorksheetFunction.Max(Range("D2:D64000"))).Row, 1).Address MsgBox "El valor máximo está en: " & Dir End Sub el rango del código es A2:A y el valor esta en D2:D alguna forma de sacarlo en listbox o textbox o como se pueda realizar, la cosa es saber cual es el mayor valor entre todos
  17. en el combobox1 al colocalr el codigo que tengo asigado busque es esa hoja ejemplo E-TTA es Salida E.TTA. asi me dara las estibas que estan en esa hoja a combobox3 asi puedo saber cuanta estibas tengo a tener el numero de estiba esto tendra que llenar los campos que estan vacio asi poder sacarlo de esa hoja y saber cuanta me estan quedando en la hoja. asi saber cuanta estan registrada y las que no estan registrada asi me dara un valor exacto de lo que tengo en la hoja ojo cuando le demos al combobox3 esto llenara los texbox siguiente las Dimenciones Tpieza y a darle carcular esto lleve a la misma medicion que tengo en la hoja al registrar saque ese estiba y me diga cuanto me estan quedando de ese hoja por eso puse un logo para saber cuanto me van quedadno si tengo exitencia o ya no tengo... espero haber sido claro solo me falta eso entre otras cosa para terminar lo que quiero. ejemplosacaryfiltrar.xlsm
  18. Hola escribia debido a que tengo una planilla a la que debo agregarle tantas filas como indique el numero de filas realice una macro que es ' ' Macro1 Macro ' ' Acceso directo: CTRL+q 'macro para seleccionar una fila y copiarla hacia abajo Dim numFilas As Long 'selecciona el numero de la celda numFilas = Cells(2, 4) 'Validar si el número de filas indicado que no sea cero If numFilas > 0 Then 'Insertar filas Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select Selection.Copy Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 2).Insert Shift:=xlDown End If End Sub Mi consulta es como puedo hacer para que inserte segun la linea que indica el numero de filas a repetir, sin que la macro este ligada solamente a la celda(2,4) Y ademas los molesto consultando como puedo copiar una celda desde una hoja x segun una condicion, por ejemplo si se repiten 6 columnas copiar estas 6 filas, si se repiten 5 veces copiar 5 filas, que sea un rango fijo. Espero no haber enredado tanto, Ojala me puedan ayudar, Saludos, Libro de macros v1.xlsm
  19. saludos comunidad, estoy haciendo una tabla con filtros y un formulario, lo que deseo es una ayuda, como hago para cuando seleccione una celda cuya fila la calculo con activecell.row ya podría ser cualquiera de la tabla, el contenido pase a un text box de un formulario, gracias
  20. Buenas tardes. recurro a vosotros nuevamente. Me gustaría que me orientarais para poder continuar con el proyecto que he empezado. No domino mucho el tema de las macros y me gustaría que me orientarais para poder desplazarme horizontalmente por una matriz. Me explico: Tengo una hoja "CONFIGURACIÓN" donde he puesto los nombres de los registros que tengo (Trabajadores) desde la columna "J" a la columna "OO" he puesto un año completo 1-enero-año x al 31-enero-añox+1. Lo primero que quiero generar son las libranzas segun los grupos. Por ejemplo para el grupo más sencillo que sería los que trabajan de lunes a viernes. Nos situaríamos en 31/12/16 (celda I12) y pulsar "Generar grupo de libranzas", desde el 1 de enero hasta el 31 de enero del año siguiente que esta en la fila 10. Luego en una segunda parte se pulsaría "Generar Libranza" para que copie el rango correspondiente y lo pegue a los trabajadores de ese grupo. (Esto si se hacerlo). Mi problema es que no se desplazarme a lo largo del rango "J:OO". Lo he intentado con la función offset pero no lo he conseguido, Gracias por leer este mensaje. subo un archivo para que se entienda mejor. Libro2.zip
  21. Hola, me gustaría me ayudasen con lo siguiente. Tengo una hoja con entre 80 y 100 filas (se van añadiendo y eliminando según se completan) y arriba en varias columnas una suma (puede haber celdas con una cantidad o celdas vacías). Lo que quiero hacer es que cuando cambie de color una de esas celdas, se reste la cantidad del total. Podría simplemente eliminar esa cantidad y solucionado, pero necesito que siga estando visible. Gracias de antemano y si alguien me puede ayudar se lo agradecería. Muestra.xlsx
  22. Hola buenos días de nuevo a todos os quiero hacer una pregunta ya que mirando no encuentro explicaciones, en un calendario cuando cambias la fecha y el día se mueve de lugar si le pones un comentario, por ejemplo el di 13 es el cumpleaños de Mireia y es Martes, si cambias el año pues de Martes pasa a Miércoles, pero el comentario sigue en Martes y no corresponde ya al día, esta es mi pregunta hay alguna forma de que el comentario siga al día caiga donde caiga y ademas señalizado con formato condicional, os envío de un calendario que he encontrado una parte para que se vea el funcionamiento
  23. Saludos amigos del foro, acudo a ustedes para que me puedan ayudar en algo que me he estancado, lo que he hecho es un cronograma para ir colocando un check cada vez que el tema de clase ya lo he dado, pero hay ocasiones que el tema no se da y debe pasarse a la siguiente vez o fecha. cuando esto ya se ha completado se entenderá que los checks se quedan alli... para restaurar todo o mas bien,... para quitar los checks en un nuevo periíodo quiero poder hacerlo con un solo boton que puede estar en A4 . Esta hoja se trata de registrar el avance académico de cumplimiento de los temas de las clases dadas. Espero haberme echo entender y les agradezco por su colaboración, subo el archivo para que lo vean. Quitar checks a todos para empezar nuevo control.xlsm
  24. Buenas Tardes, espera puedan ayudarme... resulta ser q tengo 3 listas de precios de diferentes empresasLista 1: lista de precios referenciaLista 2: lista de precio empresa 1Lista 3: lista de precio empresa 2ahora bien, la lista 1 y 2 logre unirlas debido a que los codigos de sus articulos son iguales, mediante un formato condicional resalte los articulos repetidos entre ambas listas y los ordene para que coincidieran en la misma fila, hasta alli todo bien...las lista 3 me presenta el siguiente problema los codigos de los articulos son totalmente diferentes, aun asi la descripcion de los articulos es semejante no totalmente igual, quisiera saber si hay una forma ya sea por alguna formula o formato o macro de excel poder hacer que los articulos coincidan entre si y poder compararlos con las otras 2 listas...ESPERO PUEDAN AYUDARME.. SALUDOS
  25. Buenas, Estoy tratando de colocar un código para que cuando se habrá una hoja concreta del libro salte un mensaje (MsBox), pero no me funciona. El codigo le estoy colocando en la misma hoja (Hoja 7) pero no se si tengo que colocarle en el ThisWorkbook y en el código referirme a la hoja 7 (Sheet). Gracias
×
×
  • Create New...

Important Information

Privacy Policy