Esto lo hice con un macro con referencia relativa, son cifras en la misma fila (196) , solo se debe ir avanzando hacia la derecha cada cuatro columnas. Creo que debería definir una variable que vaya acumulando los valores de cada celda, un bucle en donde se vaya avanzando. Pero no se cómo hacerlo. Muchas gracias.. ActiveCell.FormulaR1C1 = _ "='Flujo ingreso'!R[196]C[-3]+'Flujo ingreso'!R[196]C[1]+'Flujo ingreso'!R[196]C[5]" ActiveCell.Select Muchas gracias!!!

Buenos días. Necesito a ver si podéis ayudarme con una duda. Tengo un Excel que recupera datos de una multitud de archivos Excel. Lo que hace es que busca según un listado en una hoja y abre los Excel que encuentra que su nombre comience por los dígitos del listado. pero estos Excel que abre tienen macros, eso ralentiza su apertura y cuando abre por ejemplo 10 libros se queda bloqueado todo el Excel. No se si algún método para abrir un Excel desde otro pero que no ejecute las macros del libro que va a consultar para que así no haya demora y no ralentice este proceso. Por ejemplo abrirlos en modo lectura o algo así. Yo uso estas líneas con el método Open...,…

Saludos, necesito ayuda con una macros que funciona bien, pero ahora que ingreso datos en la columna "P", no lo muestra en la columna "Z". adjunto archivo, agradezco su ayuda. macros.xlsm

Saludos a todo el equipo recurro a uds para resolver una macro para llenar un listbox que depende de un combo box, el combo se carga a travez de la propiedad row source( verduderia,panaderia,carniceria) y a cada item de este combo le corrresponden datos ubicados en una tabla por linea o sea : verduleria lechuga limones bananas zapallo panaderia pan pizza facturas vizcochoz carniceria lomo costilla matambre higado Deseo que cuando en el combo elija panaderia se llene el…

Buen día y con el gusto de saludarle nuevamente expertos recurro a ustedes para solicitar su valiosa colaboración en el mejor de los sentidos ya que tengo un textbox al que le quiero poner un formato de hora HH:MM para que al momento de escribir obligue al usuario final a poner ese formato de tiempo exactamente, he intentado hacerlo pero en mi programación veo muchos errores, por ejemplo cuando le doy con las teclas direccionales para seleccionar y me posiciono en el espacio 3 y le doy una letra este la acepta; bueno de antemano el textbox no debe aceptar letras, unicamente números y en el espacio 3 el signo de dos puntos (:) pero como lo digo al hacer eso lamentablemente…

Hola buenas tardes, Tengo un problema que no me deja iniciar el UserForm y no se a que se debe.... Me salta el siguiente error La verdad que no se porque me pasa esto ya que estaba trabajando con el formulario y de repente no me deja iniciarlo. Dejo el archivo adjunto Un saludo, VBA3.xlsm

Requiero que en la celda C4 de la Hoja "Datos" se copie el resultado de concatenar el dato de la celda A4 con el de la celda B4 A su vez, que el dato de la celda C4 de la Hoja "Datos" se copie como valor en la primera celda vacía que se encuentre en el rango que inicia a partir de la celda A4 de la Hoja "Facturas" cuando pulse un botón que ejecute la macro. Y, por último, que al copiar el dato de la celda C4 de la Hoja "Datos" en la Hoja "Facturas" se valide que el dato no se duplique o que ya se encuentra registrado. Ahora, si hay la posibilidad de omitir la concatenación de datos de las celdas A4 y B4 en la celda C4 de la Hoja "Datos" y realizarla directamente en la c…

Buenas noches. Estimados es para pedirle su apoyo en optimizar mi trabajo, explicó en el adjunto y también quiero agradecer el apoyo de cada uno de ustedes, del esfuerzo y la dedicación que le ponen al contribuir sus conocimientos incondicionalmente. Saludos. P543a.xlsm

Buenas tardes!!! Escribiendo para pedir de su ayuda, tengo un formulario que tiene un combobox que tiene los nombre de lista de departamentos al seleccionar uno me muestra en un listbox lo que contiene los articulos de ese departamento, pero si yo selecciono otro departamento del combobox, me pone la lista del nuevo y me borra la anterior y yo quiero ver todos las lista que seleccione anexo ejemplo LISTA 2021.xlsm

Hola! cómo estáis? Me está sucediendo algo que no comprendo: Cuando en una macro se ejecuta la siguiente línea: Hoja2.Range("b7").Formula = "=iferror(index(Tabla1[nombre],match(1,((Tabla1[F. Entrada]<=$G$1)*(Tabla1[F. Salida]>=$G$1)*(Tabla1[Nº hab]=A5)),)),"""")" Hoja2.Range("b7").Formula = "=iferror(index(Tabla1[nombre],match(1,((Tabla1[F. Entrada]<=$G$1)*(Tabla1[F. Salida]>=$G$1)*(Tabla1[Nº hab]=A5)),)),"""")" en la celda en cuestión aparece esta fórmula: =SI.ERROR(INDICE(Tabla1[nombre];COINCIDIR(1;((Tabla1[@[F. Entrada]]<=$G$1)*(Tabla1[@[F. Salida]]>=$G$1)*(Tabla1[@[Nº hab]]=A5));));"") Es prácticamente igual que la que aparece e…

Hola a tod@s, He creado un codigo para poder modificar los datos de mi tabla y mi listbox. El codigo funciona bien pero el problemas es que me crea un duplicado del registro al modificarlo. Saben porque me sucede esto? Saludos, 111.xlsm

Hola. Tengo un formulario con la propiedad ShowModal = false. Esta propiedad me permite hacer click en cualquier celda pero necesito también poder desplazarme con las teclas arriba y abajo dentro de la hoja. Muchas gracias

Tengo una tabla con varias columnas, las dos columnas que me interesan son FacturaIngr y Trimestre. Consulto con el registro de la FacturaIngr y los datos me los pasa a un formulario, hasta aquí todo correcto. El problema es que no se como hacerlo para que encuentre esa fila que quiero que busque por FacturaIngr y por trimestre, ya que la FacturaIngr se puede repetir. Gracias Este procedimiento de código de VBA es solo para consultar con el registro de FacturaIngr y es perfecto. Como se haría con el registro FacturaIngr y trimestre, o sea cuando consulte y encuentre la fila con esa FacturaIngr y el trimestre me los pase a un formulario que tengo ya creado. …

Vuelvo a recurrir en su ayuda una vez mas , tengo un txt en el formulario que deseo llenar con la eleccion de dos combobox, la idea es concatenar esos dos valores en uno solo para volcarlo a mi txt y posterior registrar junto con los demas txt en mi base de datoscomo seria la forma?

tengo una aplicacion con 11 hojas(1 hoja de inicio con 10 botones quiero que al abrir la aplicacion solo se muestre la hoja de inicio 1 pero con todas las solapas ocultas inclusive la solapa de hoja inicio , como lo puedo hacer , mi thisworkbook puse: Hoja1.Visible = xlSheetVeryHidden Hoja2.Visible = xlSheetVeryHidden Hoja3.Visible = xlSheetVeryHidden Hoja4.Visible = xlSheetVeryHidden Hoja5.Visible = xlSheetVeryHidden Hoja6.Visible = xlSheetVeryHidden Hoja7.Visible = xlSheetVeryHidden Hoja8.Visible = xlSheetVeryHidden Hoja9.Visible = xlSheetVeryHidden Hoja10.Visible = xlSheetVeryHidden Hoja11.Visible = x…

MOSTRAR EL VALOR DE CELDA C10 EN TEXTBOX 6 EN USERFORM gracias saludos libro alumno maestro.xlsm

Buenas noches. Soy nuevo en este foro y con conocimientos escasos de excel (usuario). En primer lugar pido disculpas si he cometido error al publicar el mismo tema en otro foro, pero ahora mismo estoy muy atascado y quisiera sacar este proyecto adelante (personal y sin ánimo de lucro). Estoy confeccionando un calendario perpetuo basado en una plantilla que encontré, y lo quisiera hacer muy completo. El Santoral y los Festivos ya los tengo, aunque me queda pulir. El problema se me plantea a la hora de insertar las 4 fases lunares desde la carpeta Luna, solo las cuatro, en sus correspondientes celdas, respectivas a las fechas (calendario a la vieja usanza). Después vendrían…

Buenas tardes a tod@s. Adjunto un archivo que registra Entradas y Salidas de material de obras. En la parte del registro de ese mismo archivo tengo persona que entrega y persona que retira en la que aparecen unos desplegables de usuarios. En esos desplegables pues elegimos al usuario que sea . Pero, necesitaba saber si hay posibilidad de que al introducir un usuario, solicitase una contraseña y según la contraseña aparezca el nombre del usuario que le corresponda nada mas. O sea, que filtre por usuario según la contraseña que se indique en la celda y oculte los demás usuarios. Si no es con desplegable me puede valer cualquier otra opción. …

Hola a tod@s En el siguiente código lee información del archivo "ConsultaSQL.txt": Sub opentxt() Dim fileName As String, textData As String, textRow As String, fileNo As Integer Dim CodCliente As String fileName = "C:\Users\PC\Usuario\ConsultaSQL.txt" fileNo = FreeFile CodCliente = UserForm.TextBox1.Value Open fileName For Input As #fileNo Do While Not EOF(fileNo) Line Input #fileNo, textRow textData = textData & textRow Loop Close #fileNo End Sub Sin embargo, necesito que mediante un Textbox ingresar el código del cliente y este insertarse en la SQL que se encuentra en el archivo .txt para que haga el filtro correspondiente. El objetivo …

Hola a todos, Me gustaría que al pulsar una tecla o un atajo de teclado, se le aparezca un mensaje en un MsgBox al usuario de la aplicación ofimática. No sé muy bien cómo plantear el problema. Se me ocurre lo siguiente, pero no funciona: Sub MostrarMensaje() If Application.OnKey Key:="{c}" Then MsgBox "Hola mundo" End Sub Alguien tiene una idea mejor? Gracias.

Hola , muy buen dia para todo .tengo una consulta que no se como resolver Private Sub BotValidar_Click() Dim usuario As String Dim Pass As Variant Dim HojaVisible As String Dim UsuarioExistente Dim DatoEncontrado Dim Rango As Range UsuarioExistente = application.WorksheetFunction.CountIf(Sheets("Auxiliar").Range("O:O"), Me.TxtUsuario.Value) Set Rango = Sheets("Auxiliar").Range("B:B") If Me.TxtUsuario.Value = "" Or Me.TxtPass.Value = 0 Then MsgBox " Por favor introduce usuario y contrasenia", vbExclamation Me.TxtUsuario.SetFocus 'se valida que el usuario exista en la tabla ElseIf UsuarioExistente = 0 …

Hola amigos como estan! ando con una inquietud hace días que me mire todos los videos que encontre y no logro resolver un punto importante en mi proyecto. Tengo dos Archivos excel: Datos - Abastecimientos2 y Autorizaciones., ambos archivos tienen una hoja llamada "Datos" En el archivo de Datos - Abastecimientos, en la Hoja datos, van ingresando datos a los cuales se le agrega el valor = "Prespuestado" una vez que se hice la busqueda de precios. Lo que estaba intentando con el modulo 1 es que me busque todos los datos de esa hoja y me copie solo las filas que cumplen la condicion de tener la palabra "Presupuestado". y me las pegue en la Hoja Datos…

Hola. Esoty intentando que al abrir un libro se abra un formulario y queria que: o bien el excel se oculta, pero que se puedan utilizar al m ismo tiempo otros libros o bien que la ventana del excel se cambie al tamaño del formulario para ocultarlo detras del formulario y, ya puestos ? que al mover el formulario la ventana cambie la posicion tambien. He estado mirando por varios foros y no he visto nada que se ajuste a mis "pretendiones". Igual es que no se puede hacer :-(. Gracias MJ

Hola a tod@s, Tengo un fichero de Excel para realizar un registro de entradas y salidas y me esta funcionando en cuanto a la parte de cumplimentar en la hoja de Excel directamente. Intentare explicarme lo mejor posible. Pero lo mejor es probarlo.Se trata de una tabla en las que estarían las entradas y salidas de productos de las distintas obras que tenemos (que se llama "Registros" en la hoja REGISTRO) y en la que añadimos y quitamos artículos que pueden entrar o salir según necesidades para llevar un control.Hay otra tabla donde tenemos todos los productos (que se llama "Productos" en la hoja PRODUCTOS).Y una tercera hoja donde tenemos pequeñas tablas para los despl…

Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido mi código actual Private Sub Form_Load() Dim LastRow As Long Dim i As Integer Dim XL As Object, xlSpread As Object Const xlLastCell = 11 Dim Row As Long, Col As Long Set XL = CreateObject("Excel.Application") XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx"…