Estimados, Logre hacer un código para poder agrupar mis datos, pero solo lo he conseguido realizar para la columna : "J" Y lo que no he podido realizar es colocar un Activecell.offset, para que me identifique la columna anterior, y vuelva a correr la formula. En caso haya una forma más abreviada para mi macro seria de gran ayuda. Adjunto el archivo con la macro realizada. CORRER COLUMNAS A LA IZQUIERDA.zip

Hola a todos. Con la siguiente problemática en el adjunto se encuentra una relación con indices de inflación. las cuales necesito para todos mis archivos, ya que son indices que utilizo con mucha frecuencia. Ya que siempre necesito el indice de determinado año y de determinado mes. Esto lo determino con la función buscarv hasta ahora, pero ahora este archivo va a estar disponible para muchas personas las cuales muchas manejan el excel a nivel básico. Lo que necesito es mediante un listbox en un userform me muestre los indices y también un botón para que el indice seleccionado me lo pega en cualquier celda. Espero haber sido claro de antemano muchas gracias. Indices_…

Buenos días; Tengo un pequeño problema con la macro que estoy haciendo, quien me puede ayudar??. La macro lo que hace es mandar un correo electrónico cuando la celda B contigua a la celda C en la que se está escribiendo contiene texto. Este paso le hace bien, el problema es que antes de mandar el correo hago un filtro en la columna E, al filtrar me salta un mensaje antes de mandar el correo diciendo “ esta hoja de calculo contiene filas o columnas ocultas que el destinatario puede mostrar. ¿ desea continuar ?”, como podría quitar este mensaje para que enviara el correo directamente sin tener que aceptar nada. Gracias y un saludo,

Buenas tardes. He estado mirando y habría un libro que podría servirme de referencia (optimizacion rev4. xlsm - de aprovechamiento de barras), pero no llego al nivel de vba tan alto... Necesito algo para aprovechar paneles de 11,90ml, con límite de resto mínimo variable, y que luego me de aproximaciones por módulos también variables (son 2 tipo de material: 1 con resto mínimo de 3m y facturación cada 0'50m y mínimo 3m, y el otro material con resto mínimo de 3'15m, facturación cada 0'35m y mínimo 3'15m) Necesito el aprovechamiento máximo de cada panel y lo que tendría que facturar, y número de paneles a usar. En general suele ser para como mucho 10 medidas difere…

Al ejecutar esta macro sobre los datos de la hoja1 funciona perfectamente, sinembargo requiero modificar la coneccion o asignacion de variables deforma que al convertir los datos de la Hoja1 en una Tabla Ver Hoja"TABLA" a la que denomino por el administrador de nombres "TDatos" sea posible ejecutar la misma consulta. anexo la consulta inicial sobre los datos de la hoja1 que entrega el resultado en la hoja2 " Sub ConectarExcel()" y abajo la correspondiente sobre los datos en la hojaTabla en la que el mensaje es que no encuentra el objeto "TDatos". el archivo es Xls dado que no pude subir el xlsm Gracias Sub ConectarExcel() Dim Conexión As Object, rs As Object Set Conex…

Hola, buenas. Mi pregunta es la siguiente; tengo un formulario con preguntas en las que quiero que me contesten mediante la utilizacion del comando checkbox. En cada pregunta tengo 5 checkbox y quiero que cuando la propiedad value de un checkbox cambie, los otros se desactiven para que no puedan seleccionar mas de una respuesta (checkbox.enabled=true). el problema es que tengo muchas preguntas y imaginaos que tengo que implementar 10 lineas de codigo para cada checkbox, teniendo 5 checkbox por cada pregunta y un monton de preguntas. La pregunta es, se podria implementar algun tipo de codigo a nivel de modulo o clase para no tener que hacer esto en cada checkbox de los c…

La macro es la siguiente: Sub Envio() ' ' Envio Macro ' Envio de hoja con datos variables ' archivo = "C:\Consorcios\Aviso.xls" Workbooks.Open archivo For i = 5 To 7 Workbooks("HojaInformativacopia.xls").Activate periodo = Cells(1, "L") nombre = Cells(i, "E") importe = Cells(i, "J") deuda = Cells(i, "Q") Total = Cells(i, "O") direccion = Cells(i, "S") Workbooks("Aviso.xls").Activate Range("D9").Value = nombre Range("I9").Value = importe Range("I10").Value = deuda Range("I11").Value = Total Workbooks("HojaInformativacopia.xls").Activate Workbooks("Aviso.xls").SendMail direccion Next Workbooks("…

Hola amigos Os cuento, con el fin de agilizar un poco mi trabajo, he creado un libro para asignar codigos de datos en diversas hojas, abajo os dejo el ejemplo. Dentro del libro hay una combobox con el título de posición que carga una serie de datos en la Columna A de la hoja 1, y una serie de botones para copiar estos codigos en las hojas 2 y 3 respectivamente. sin embargo me he quedado estancado en los siguientes puntos: -Al pulsar el botón escribir, eliminar dato de la combobox "posición" Me gustaría poder eliminar los datos según se añadan para evitar equivocaciones con datos repetidos -Cargar en las combobox de hojas todos los datos a partir de la palabra "Rec…

Buenos días: Supongamos que tenemos un UserForm que contiene 1 TextBox y 5 botones (CommandBottom 1, 2, 3, 4 y 5). Mi pregunta: ¿Sería posible una macro que al apretar en cualquiera de los 5 botones me copiase en el TextBox el valor de una propiedad (Por ejemplo: Caption) de dicho botón, pero sin generar un código VBA para cada botón? es decir, una macro genérica que reconozca el botón presionado y copie una propiedad definida en dicha macro. Un saludo. Macro inteligente.xls

En un archivo de excel se tienen unos registros de barcos que hacen maniobras en un puerto marítimo, dichas maniobras son asistidas por personas, se requiere en una celda llevar un conteo consecutivo automático de cada maniobra que corresponda a cada persona en el lapso de un mes, al finalizar el mes se reinicia el conteo nuevamente, cada una de estas maniobras tiene una duración en tiempo, es decir, por ejemplo inicia a las 12:00 y puede finalizar a las 13:10. Me permito contextualizar la consulta: por ejemplo iniciando el mes, se registra una maniobra con una persona, a esa persona en la celda del conteo le corresponde el 1, si se registra otra persona a esa le correspo…

Hola, es mi primer pregunta en este sitio web, pero he leído muchas respuestas que me han ayudado a aprender mucho. Tengo un formulario que almacena datos de unos usuarios, y necesito que se mediante un botón se pueda tomar una foto (donde una web cam y también de otros dispositivos) y la guarde en el disco. Estoy trabajando en un formulario creado en excel y uso vba para la programación. Muchas gracias por adelantado.

Hola, les comento mi inconveniente, tengo una tabla con 11 columnas, la cual estoy filtrando mediante un textbox con macro, pero cuando quiero filtrar una segunda columna manteniendo el filtro en la primera, este último se borra, osea que no puedo tener las 2 columnas filtradas al mismo tiempo, aclaro que no tengo conocimiento en macros, solo adapté mi hoja a un ejemplo que vi en la web, el codigo que uso en el text box es este: Private Sub TextBox1_Change() Application.ScreenUpdating = False With Range("AH1").CurrentRegion filas = .Rows.Count col = .Columns.Count End With Set CLIENTE = Range("D2").Resize(filas, col) With CLIENTE .Au…

Buenos días a todos; -Llevo un buen rato a vueltas con un error y no consigo saber donde me estoy equivocando. Me explico un poco: Tengo un formulario creado con una serie de textbox y unos botones de desplazamiento para mostrar los registros. Para mostrar los registros hago una consulta a una BD de Access y por medio de la consulta me los devuelve a los textbox. ¿Lo que no sé es porque no me respeta los campos vacíos?. Adjunto macro de ejemplo. Saludos gracias anticipadas . Consulta.zip

Buena tarde, estimados tengo el siguiente código el cual tiene dos recordsets, el primero corre sin problemas ya que llena las tablas temporales y ejecuta el SP, el problema que tengo es que en la clausula Where del segundo recordset necesito utilizar la variable que declaro en el primer recordset. alguno tiene idea de como se hace esto. Gracias Cells.Clear Dim oConn1 As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Set oConn1 = New ADODB.Connection oConn1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Contraseña.Text & ";Persist Security Info=True;User ID= " & Usuario.Text & "; Initial Catalog =" …

Hola! Necesito una macro para ajustar celdas combinadas de manera automatica. Ojala me puedan ayudar. Adjunto un archivo con lo que necesito. La informacion es ingresada a las celdas combinadas desde un formulario. pero al abrir el archivo no logro ver toda la informacion ya que la informacion ingresada tiene varias lineas. Gracias de antemano. Ajustar_Celdas_Combinadas.rar

hola a todos.Amablemente les pido me compartan de su conocimiento en esta macro. En la macro que elabore intento llevar un inventario para el manejo de archivo;como se daran cuenta en la la hoja llamada carpeta se hace diligencia de los datos que se desean guardar en diferentes campos de la hoja caja e inventario cuando se de click en el boton guardar. como podaran apreciar esta macro hace la tarea de enviar los datos a las hojas coresnpondientes pero no limpea el los datos al momento de guaradar si se desea ingresar otro registro ni tampoco registra los datos de manera ordenada como se desea (que los enliste uno debajo del otro en ambas hojas). Ademas es muy lenta ya …

Buenos días a todos; No me deja adjuntar la macro y por eso os pongo un enlace de un video. La macro consta de dos formularios con el siguiente código para el ComandButton1 del Form1. Private Sub CommandButton1_Click() UserForm2.Show UserForm2.CommandButton2.Visible = True End Sub Al ComadButton2 en el Form2 tiene la propiedad visible como false. Como se ve en el video cuando ejecuto la macro la primera vez no me muestra el botón "Mostrar" en cambio si la vuelvo a ejecutar si lo hace. ¿No se porqué? Siento no poder subir la macro para mayor entendimiento. Un cordial saludo. Video

Hola Estimados Amigos Foristas!!!tengo un archivo en donde Necesito ordenar los Nombres de la Columna B de la hoja (1) del rango B5:B44; En orden numérico de menor a mayor con una macro o ya sea con alguna Formula en el archivo pongo el ejemplo en como debe de quedar..les agradezco por su ayuda... PRO. PRUEBA.xlsm

Buenas Tardes, Escribo para saber si alguien me puede ayudar con el problema que estoy teniendo. Actualmente tengo una macro que hecha en Excel donde mediante formularios la información se va almacenando en las mismas hojas del libro de Excel. El problema que presento es que necesito que esta macro que funciona muy bien, pueda ser utilizada por 2 más personas a la vez, por lo tanto me gustaría saber si existe alguna forma de traspasar todos los códigos que tengo en vba a access para que así pueda quedar como multi usuario. Ojalá alguien me pueda aconsejar como puedo proceder con este cambio. Gracias.

Hola buenos días! Primero que nada quiero agradecer por la ayuda que he recibido en este foro, me ha sido muy útil, y me ha hecho llegar a un archivo de ordenes de compra que me ha servido mucho en el trabajo. Mi problema es el siguiente, anteriormente solo había una persona en el área de compras, pero ahora van a ser dos, y necesito que el archivo que adjunto pueda ser modificado por las dos personas (si es posible al mismo tiempo), y que se guarden los datos que las dos generen. Básicamente en mi archivo hay una hoja donde se captura la orden de compra, a la hora de generarla, le asigna automáticamente el número de orden, checándolo en otra hoja llamada índice donde …

Actualizar vinculación según una celda y autocompletar. Lo primero es lo primero: FELICIDADES por el trabajo que estáis realizando! Ayudáis a mucha gente Lo segundo mi problema; Tengo un libro que una de las celdas está vinculada a otro excel el cual se genera por un software externo y crea la excel con una terminación tal que así: 10111-30_Etot.xls año(10)mes(11)primerdia(1)-ultimodia(30)_Etot.xls desde el dia 1 al 30 solo cambia la fila de la celda vinculada es decir(lo realizo pinchando y arrastrando): fecha fórmula celda vinculada 01/01/2012 ='C:\Documents and Settings\jcli\Mis documentos\Inge\Program\Plant\[121…

Buenos dias. Necesito pegar los datos de la ultima fila ( o mediante un formulario) las veces que me indique la celda K7, indique esta pegar 20 veces, 25 veces o 120 veces en forma descendente a partir de la primera celda en blanco. Aqui les dejo la macro para copiar la info (pero me falta la macro para pegar) Range("d100").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy With Sheets("DATOS").Range("D" & Rows.Count).End(xlUp).Offset(1) .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With End Sub Muchas gracias!!! BVA.zip

Muy buenas a todos! En primer lugar daros la enhorabuena por este gran foro que me está sirviendo de gran ayuda y me está ayudando a desarrollar mis conocimientos de Excel. Os escribo porque quiero generar un macro que realice una hoja resumen con datos de otras hojas. A ver si me explico... Tengo un fichero de Excel en el que diariamente voy controlando la ejecución en horas de varios procedimientos. Para cada semana del mes, tengo una hoja en Excel en la que detallo de LUNES a DOMINGO lo que dura cada procedimiento (en horas) cada día. Al final (columna I) totalizo lo que cada procedimiento se ha ejecutado a lo largo de la semana. Tal y como he dicho, tengo una hoja …

Hola a todos, soy novata programando con VBA, por favor me pueden ayudar? Sub Captura_Datos6() Sheets("Reporte-DR").Select Range("A9").EntireRow.Insert (Me salta error acá) Sheets("DRENAJE DE COMPRESORES").Select Range("C9").Copy Sheets("Reporte-DR").Select Range("A9").PasteSpecial xlPasteValues Sheets("DRENAJE DE COMPRESORES").Select

Hola a todos, Tengo un libro excel que tiene dos hojas La 1 llamada asistencia en donde tengo el detalle del control de asistencia de todos los trabajadores y en la 2 llamada Report Diario en donde resumo toda la informacion por categorias de la primera hoja estoy aprendiendo macros y encontre la Macro Match para coincidir una fecha y mediante eso poder traer los datos de esa fecha y me esta arrojando el siguiente error '1004' no se puede obtener la propiedad Match de la clase WorkSheetsFuction. agradeceria enormemente me pudieran ayuda subire el archivo para mayor claridad de mi duda. Atte. Macros 2014