Hola! Qué tal? Estoy intenando hacer una mini base de datos en Excel para mi trabajo (Debe ser en Excel si o si y el libro se usará para compartir) Quiero aclarar que soy principiante en tema de VBA y me manejo un poco con Macros pero no es mi fuerte, estoy aprendiendo. Solo necesito un formulario para ingresar datos (Lo cual hice un invento para que funcione ya que no puedo utilizar Tablas y luego compartir el libro) pero se me está complicando la parte donde debo buscar a los pacientes para luego agregar información, les dejo el archivo para ver si me pueden tirar unas ideas. La idea del proyecto es la siguiente: Trabajo en un Consultorio Médico que tiene su parte de Od…

Buenas, adjunto un fichero de ejemplo donde tengo en la columna A el id. Lo que hago es filtrar por Id = 1 y exporto a csv, luego por id = 2 y exporto a csv, etc. ¿Hay alguna forma de automatizar esta descarga con macro independientemente del nº de Ids distintos que haya? Gracias! Ej_Exportar.xlsm

Hola, tengo el siguiente código asignado a un Botón de "Eliminar" dentro de un Formulario en Excel, quisiera agregarle la parte de confirmación, donde me pregunte "Confirma eliminar el registro" Si - No, y ahí me perdí un poco, agradecería mucho su ayuda. ------------ Private Sub BT_Eliminar_Click() Me.BT_Agregar.Enabled = True Dim FILA As Object Dim Linea As Integer Dim NumeroFila As String NumeroFila = Me.TextRolPatente Set FILA = Sheets("Basedatos").Range("B:B").Find(NumeroFila, LOOKAT:=xlWhole) Linea = FILA.Row Range("B" & Linea).EntireRow.Delete MsgBox "El registro fue eliminado" Me.TextRolPatente = Empty Me.T…

Tengo la siguiente fórmula con la intención que detecte los cambios en las celdas y registre la fecha en la columna B El problema es que me inserta la fecha en cuanto pincho la celda, y solo quiero que la inserte cuando haga algún cambio. No sé que hago mal. uf = Range("C" & Rows.Count).End(xlUp).Row If Not Application.Intersect(Target, Range(Cells(8, 3), Cells(uf, 59))) Is Nothing Then Range("B" & Target.Row) = Date Range("BH" & Target.Row) = Target.Address Gracias.

explico rápido... tengo un formulario de una base donde capturo los datos de salidas de comisión este cuenta con 2 combobox, en el combobox1 de "DAS DE COMISIÓN" selecciono 1 dia ,2 dias ,3 días o 4 días dependiendo los días de comisión,y en el combobox 2 me debería de cambiar los precios dependiendo la zona, al seleccionar el combobox 1 el dia se van llenando los textbox de alimentación y hospedaje.. es decir..(1 día solo el textbox de "alimentación" del día 1(se llena solo la alimentación por que es solo un dia, no habria hospedaje ), ....... 2 días de comisión, el textbox de alimentación del primer día,hospedaje del 1er día y alimentación del segundo día ....,3 días,…

Hola a tod@s, hace unos días pedí ayuda y se me dió una solución perfecta, pero al aplicar la macro si las celdas tienen fórmula no funciona. Lo que necesito conseguir es que se calculen las celdas consecutivas del mismo color. En una columna tengo celdas con números, celdas con color (algunas de ellas consecutivas) y necesito que en la columna de al lado me salga el recuento de cada grupo de celdas consecutivas. Todas las celdas tienen una fórmula dentro (por eso muestra números o colores) Adjunto excel con las celdas con fórmula para que sea más fácil. Gracias de antemano por vuestra ayda y saludos Contar celdas consecutivas mismo color si celdas ti…

Hola, Me han pasado un fichero, donde las cantidades vienen con ' delante, sería así: '0,234 '123456,03 He utilizado este código para quitarle el símbolo porque necesito sumarlo, pero en algunos casos se queda así 0.234 y no me deja reemplazar el punto por la coma, solo quitárselo y quedarme con 0234 Os paso un fichero de ejemplo, por si se os ocurre otro modo de cambiar el formato. Muchas gracias! With Worksheets("Hoja1") For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row If Cells(i, "A").Value Like "'*" Then Cells(i, "A").Value = Right(Cells(i, "A").Value, Len(Cells(i, "A").Value) - 1) End If Next End Wi…

Buenas, Estoy investigando si es posible crear en excel con vba los niveles de jerarquía en un conjunto de datos. Algo así como simular la fórmula PATH que hay en Power BI. Cuando busco solo encuentro temas relacionados al path de la ruta del archivo etc. No a nivel datos, como pongo en el ejemplo en la columna en amarillo. ¿Hay algún modo de hacer esto con VBA? Gracias por la ayuda! ej_path.7z

Buenas, tengo un fichero con un montón de registros (yo os paso un ejemplo). Donde los datos vienen estructurados por orden de la siguiente manera: A, A1, A2 / a veces solo A y A1; y otras solo la A Por ejemplo: Clave Nivel Cantidad 1 A 50 1 A1 25 1 A2 25 Y lo que quiero es esto: Clave Nivel Cantidad A1 A2 1 A 50 25 25 1 …

Hola a tod@s, he buscado en el foro pero no encuentro exactamente lo que necesito. Tengo en una columna grupos de celdas del mismo color y me gustaría obtener el resultado de cuántas seguidas hay y su número, en una misma columna. Ejemplo: si hay 3 celdas seguidas de color, obtener un 3, si hay 4 obtener un 4, etc Adjunto un excel con el ejemplo por si es más fácil. Muchas gracias de antemano por vuestro tiempo y sabiduría!! Ejercicio contar celdas consecutivas mismo color.xlsx

¡¡Hola!, buenos días. Tengo un archivo que tomé de la comunidad para realizar un reporte por material y calcular de cada uno sus proporciones utilizadas. Lo anterior lo realiza de manera correcta, lo que busco es que de todos los materiales utilizados me arroje una tabla con los totales. El problema es que los materiales los tengo divididos en columnas y me es algo difícil saber cómo sumarlos correctamente. Adjunto el archivo de ejemplo. De antemano muchas gracias por su ayuda. Cálculo_Materiales.rar

Estimados recurro nuevamente con otra consulta, Estoy trabajando con access y ahora quiero incorporar clave a la BD, no logro crear una cadena de conexión valida, copio código donde abro la base y carga un combobox, Ingresa siempre a If cn.State <> 1 , no reconoce la clave prpporcionada Saludos. Private Sub CargarComboFormRubrado() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Dim rutaBaseDatos As String Dim contraseña As String ' Obtengo la ruta donde se encuentra el archivo de Excel actual rutaBaseDatos = ThisWorkbook.Path & "\Rbo.accdb…

Hola de nuevo, seguimos con formateos. En la macro que adjunto al añadir un numero a la columna "E" de mi tabla "Tabla" a través del evento "Worksheet_Change" de la hoja me lo transforma en formato hora es decir, si pongo 0.5 el formato devuelto es 00:30:00. Lo que me gustaría saber si el código es del todo correcto o se puede mejorar ¿? Saludos. Horas.xlsm

Buenos días a todos; -Con la macro que adjunto paso el valor formateado con dos decimales a la celda pero veo que si voy a la barra de fórmulas me siguen apareciendo más de dos decimales. Hay alguna otra solución? Me interesa que solo sean dos decimales porque después estos datos los paso a Access y me está cargando todos los decimales. Saludos Formato.xlsm

Estimados buenas tardes, Estoy teniendo problemas con el menú contextual ingresando datos en formulario , eventualmente se abre y esto ocasiona problemas Hay alguna manera de desactivarlo en el formulario para que no aparezca? Adjunto imagen para que lo ubiquen Saludos Gracias

necesito mover un conector o linea segun este un rango de celdas vacios o sea se me deberia quedar sin mover en la esquina de la celda AE12 y solamente bajar en la columna B mientras esten las filas vacias de forma automatica. Probe con este codigo y lo he tratado de modificar pero no lo logro. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row = 2 And Target.Column = 1 Then Call SizeCircle("Linea1", Val(Target.Value)) End If End Sub Sub SizeCircle(Name As String, Diameter) Dim xCenterX As Single Dim xCenterY As Single Dim xLinea As Shape Dim xDiameter As Single Dim wksN…

Buenas tardes, entro a la zona de macros porque imagino que será la solución a mi problema. Tengo un archivo con listas "encadenadas", dependiendo del lo que elija en la columna 1 me salen las opciones para la columna 2 y, de igual modo, dependiendo de esta última las opciones de la columna 3. Me gustaría que al borrar, o cambiar, el contenido de la columna 1: se borraran los datos de las columnas 2 y 3. Igualmente, que al borrar o cambiar el contenido del desplegable de la columna 2, se borrara el contenido de la columna 3. Ayer conseguí hacerlo (y no lo he guardado 🙈) para una fila, pero si quiero que sirva para todas ellas... no doy con la solución.…

Hola a todos y todas; Estoy teniendo problemas para filtra un listbox. Quería que este se filtre a medida que se escriban caracteres y estos pueden estar al principio medio o final. Con el botón funciona pero solo me muestra un resultado y quiero que en el evento change del txt vaya haciendo el filtro a medida que escribo. Ya he probado de varias maneras y no logro saber donde me estoy equivocando. Buen día a todos. MFiltrar.xlsm

Buenas noches a todos, saludos cordiales, aquí de nuevo solicitando de sus conocimientos. Estoy tratando de armar un Sistema contable, y se va logrando gracias al Ingeniero en Sistemas JSDJSD de este gran foro, saludo maestro. Ya se logró el Inventario, Mayor y Libro Diario. Ahora arme el Balance Comprobación, solo con fórmulas en Excel, jalando las cuentas en el Libro Diario y, en el Balance de comprobación ahí figura todas las cuentas, es decir en el principio están todas las cuentas del BALANCE GENERAL, y en la fila 149 comienza las cuentas del ESTADO DE RESULTADO; A base de eso arme el Estado de Resultado y Balance General con fórmulas muy senci…

Hola comunidad!! En esta oportunidad les traigo un problema que tengo hace rato! Actualmente tengo una planilla que tiene 4 botones, para que corran debes ingresar una contraseña. La misma esta a la vista, es decir, no puedo colocar asteriscos en lugar de las letras. Por lo que estuve leyendo, con el metodo que utilizo para colocar la contraseña, no me permite. La verdad quise cambiarlo pero no puedo, no me sale. Alguien me podria dar una mano? Es decir, necesito que cuando acciono el boton, salte un msgbox solicitando contraseña pero que la misma no se vea cuando la escribo. Copio una parte del codigo que utiliza este metodo de contraseña; …

Hola! Como estan? Estoy necesitando ayuda con lo siguiente, tengo una hoja que se encuentra bloqueada excepto 2 columnas, luego de accionar distintos botones, se vuelve a bloquear TODA la hoja excepto esas 2 columnas. Pero el problema que estoy teniendo, es que uno de los botones, imprime la hoja con el codigo Print.Out y si no encuentra impresora cargada, arroja un error y se DESBLOQUEA TODA la hoja. Se me ocurrio un If, pero no se como insertarlo, tal vez hay otra forma. Copio parte del codigo y explico: Es una planilla de stock que genera un remito, la planilla de stock se envia a distintas personas pero NADIE deberia poder alterar los valore…

Buenos días, quisiera que me ayudar para ver que le falta a mi macro para que omita las filas en blanco y siga a la siguiente fila para que extranga los datos de ela ultima fila. Adjunto la macro Set jhcrudo = Sheets("CRUDO") jhcrudo.Activate jhcrudo.Cells(1, 1).Select jhcrudo.Cells(1, 1).End(xlDown).Select Fila = ActiveCell.Row For v = 1 To 5 jhcrudo.Cells(Fila, 1).Select jhcrudo.Cells(Fila, 1).End(xlDown).Select Fila = ActiveCell.Row Next v jhcrudo.Cells(Fila, 1).Select jhcrudo.Cells(Fila, 1).End(xlUp).Select Fila = ActiveCell.Row Fila2 = Fila Target = 1 While Target = 1 jhcrudo.Activate If jhcrudo.Cells(Fila, "C") = "R1" Then…

Hola a todos! como estan? recientemente me he sumando al foro, aunque lo he seguido hace mucho, son siempre mi referencia para cualquier duda o consulta asi que feliz de poder sumarme... Ahora tengo un problema que me esta rompiendo la cabeza hace dos semanas, y me atasque. Tengo una base de registros con mas de 170000 filas, cada registro puede tener mas de una fila, la base esta en la hoja 1. Luego en la hoja dos tengo dos tablas, una a la izquierda que tiene esos mismos registros y su codigo U (ubicacion), sin duplicados. Otra tabla mas a la derecha que agrupa los Codigo de Usos de cada registros segun la categoria sea Seccional, Division o Cent…

Buena noche foristas. Es un gusto saludarles y solicitarles su apoyo en lo siguiente. Hace un tiempo obtuve el apoyo de @JSDJSD para una macro que agrega una fila de totales y subtotales en la hoja CUADRO. En esta hoja se importa información de la hojas DATOS. En la actualidad me funciona bien, en la hoja CUADRO cuenta con 2 columnas denominadas DAP y VOLUMEN. Al final se suman los totales, pero mi deseo es que en la fila Total aparezca la Suma de VOLUMEN (que lo hace muy bien), pero en la columna DAP, obtenga el PROMEDIO de las filas SUBTOTALES, que es lo que aún no logro modificar. Si pudieran apoyarme, se los agradecería. La macro es esta: Sub E…

espero me puedan ayudar... Necesito obtener el Link de un archivo específico (conocido) del cual se conoce su ubicación dentro de una carpeta de Google Drive, esto mediante macros en excel. Agradezco mucho sus aportaciones Saludos Daniel