Buen dia: Gracias por leer mi duda, no soy muy bueno en macros, pero he avanzado un poco en este formato que les pongo por laayuda de este foro(leyendo por aqui y por alla y pegando codigos a los userform)... El problema es que llevo ya algunos dias y no doy con los codigos del segundouser form.. El primer Userform es para llenar un formato de entrega de mercancia (ese ya esta) aunque me gustaria agregarle un boton donde envie por correo la hoja activa(este todavia no investigo ni trabajo en el), pero ademas cuado en este userform1 es que cuandole doy alboton "corregir", me salen las opciones de correcion en otro user form, estas se llenan, pero no se como hacer para q…

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…

Por favor, esta tarea es sumamente importante y me sería de mucha utilidad que respondiesen lo más pronto posible. El punto es que he creado un proyecto VBA, y me piden que a través de código encripte el libro, vale decir que al hacer clic en un botón me mande un mensaje "MSGBOX" (Desea Difrar el Documento?), con dos opciones "SI y NO" y si este selecciona la opción SI, me lance un Input Box, pidiendo al usuario una contraseña Alfa Númerica. Y al cerrar y volverla a abrir este solicite dicha contraseña para poder trabajar en el libro. Y por ultimo usando otro botón tenga la opción de desencriptar el libro. Y una ultima duda sobre la propiedad picture, ¿se puede hacer r…

Hola amigos, estoy haciendo un trabajo y necesito que unos valores que están en el rango(a:a) de la página 1 de mi libro, se copien en los labels de un formulario para realizar una posterior factura. Os adjunto una imagen con el problema en concreto, a ver cual es el fallo, porque me estoy volviendo loco ya jeje. He probado ya poniendo Label1.text=range(x).text y tampoco me ha servido. Gracias de antemano. Un saludo.

Buenos días al foro. Antes que nada, gracias por todas las ayudas y guías que me han brindado. Gracias por dedicar su tiempo en leer nuestras preguntas para darnos una solución. Últimamente me ha tocado codificar cerca de 200 productos de ingeniería, compuestos de planos y documentos según la codificación de mi país, PDVSA. El trabajo es verdaderamente arduo, generalmente se hace a mano, delegando partes del trabajo en varias personas, lo cual incrementa el error de codificación, básicamente en la escritura del mismo. La revisión es más tediosa aun y aunque ya tenemos practica codificando, siempre aparecen los problemas de codificación de productos en plena ejecución …

Estimados que tal: Necesito su apoyo para poder "acomodar" un excel. Hace unos dias publiqué un tema de como hacer que un listbox Control Activex se llene segun la fecha de hoy, y debo dar las gracias al usuario Macro Antonio por haberme ayudado. Sin embargo, necesito que alguien me apoye modificando el excel que el me brindó. Su excel en la Hoja1 esta la tabla y el listbox, lo que quiero es que solo el listbox esté en la Hoja2, y la tabla en la Hoja1. Adjunto su excel. Gracias! Llenar Listbox.xls

Buenos días Foreros, necesitaría ayuda sobre este tema que se me plantea. Estoy creando un documento en el cual necesitaría que la Macro Asociada para visualizar una celda activa en el encabezado o pie de página, fuese igual para todas las hojas de mi libro. Si no me explico bien, que el encabezado que tengo en una hoja, sea el mismo para todas las hojas os adjunto el excell y a ver si podeis echarme una mano. Muchas graias por todo. Saludos compis PLANTILLA LISTA DE DOCUMENTOS FORO.xls

cordial saludo, quisiera que me ayudaran con el siguinte caso, tengo un archivo en donde extraigo los datos del programa de la empresa que trabajo, pero esta consulta sql me los agrupa y no me los muestra de forma individual. Private Sub UserForm_Activate() Dim Db As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim SQL As String Dim i As Integer Call InicializarVariables Db.Open CONSTRING For i = 0 To 365 Me.cmb_Fini.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD") Me.cmb_FFin.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD") Next i Me.cmb_Fini.ListIndex = 180 Me.cmb_FFin.ListIndex = 0 SQL = …

cordial saludo estimado, tengo un archivo en excel con una consulta sql en el editor de visual basic para extraer informacion de la base de datos de un programa de la empresa donde laboro. Hoja1.Range("A10:U20000").Clear Hoja1.Range("A10:U20000").Interior.Color = &HF5F5F5 Hoja1.Range("A10:U20000").Font.Color = &H8000000D Hoja1.Cells(4, 1) = "Intervalo:" & Me.cmb_Fini & "-" & Me.cmb_FFin Hoja1.Cells(5, 1) = "Linea de Producción:" & Me.cmb_LProd SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,min(P.Fecha_Pprog) Fecha_Pprog,Sum(P.Cantidad_Pprog) Cantidad, OT.descrip_to…

Hola este es mi primer post saludos a todos, tengo un trabajo que necesito realizar y no encuentro una función que me ayude, quería ver si me podían ayudar. Lo que necesito es lo siguiente: Tengo un rango de datos que cambian en tiempo real, los bajamos de Reuters una terminal financiera. En una celda el valor cambia constantemente entre S y B. Lo que quiero hacer es una macro o una función que me ayude a sumar cuantas veces el valor de la celda es S y cuantas veces el valor de la celda es B esto para yo poder analizarlo. Que función podría utilizar? Gracias y saludos

Buenas Tardes, actualmente me encuentro en proceso de desarrollo de una macro que evalúa ritmo cardíaco por los criterios de evaluación Frimat y Chamoux. En base a esto he hecho varias actualizaciones. Para la última actualización requiero de realzar lo siguiente: Desde una columna de datos determinada, los cuales se van registrando automáticamente mediante un botón desde una celda hacia la misma columna en una misma hoja llamada "Registro", deseo traspasar estos datos a una hoja "Histórico" en una columna determinada de forma que cuando vuelva a registrar los datos en la hoja "Registro", los anteriores permanezcan guardados en la hoja " Histórico" pero los nuevos da…

La siguiente macro me permite ordenar datos segun el apellido paterno, lo que quisiera saber es como hacer para aumentar mayor ordenes, por ejemplo que ahora ordene como el apellido materno, como lo adinaria Sub macro22() If [L2] = "ascendente" And [L5] = "Paterno" Then For x = 2 To 40 For y = x + 1 To 41 If Cells(x, "E") > Cells(y, "E") Then Variable = Cells(x, "E") Cells(x, "E") = Cells(y, "E") Cells(y, "E") = Variable Variablea = Cells(x, "F") Cells(x, "F") = Cells(y, "F") Cells(y, "F") = Variablea Variableb =…

ola amigos veran, inserte un modulo para convertir los numeros en ltras pero me pedia actializar valores lo cual no pude hacer, al querer quitar los vinculos me di cuenta que al poner =pesos me seleciona una gran cantidad de celdas y no se como quitar eso por ejemplo si pongo =A1+A2 ESTA BIEN EL PROBLEMA ES SI PONGO =PESOS ES COMO DECIR =A1,A2,A3

Buenas tardes. Soy nuevo en el foro y después de leer las normas y buscar, creo que no infrinjo nada. Soy enfermero aficionado al excel. Estamos diseñando una base de datos para un estudio en el hospital y llevo desde el domingo "enrocado" en un par de cosas que no consigo que me salgan ni a la de tres....desesperadito estoy... No se como puedo subiros el archivo que pesa 147 kb... Gracias!

tengo esta macro y lo único que necesito es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que tengo por favor espero su ayuda urgente muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se…

Buen dia! Por favor solicito urgente ayuda en varias macros que tengo para una misma hoja. la primera que presento se refiere a una macro de busqueda en multiples hojas es vital para la actividad que realizo. El detalle es este: Option Explicit Private Sub Worksheet_Activate() End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect([Codigo], Target) Is Nothing Then Exit Sub If Not [bAuto] Then Exit Sub Buscar End Sub La segunda que quiero incorporar es una que me asocie una base de datos a selecionar la celda. Cuando la aplico sola responde perfecto pero al intertar incorporarla me da un error . este es su codigo Private Sub Wo…

Soy novato en el tema, y espero que alguien me pueda ayudar. Cree un formulario que carga datos en una hoja de excel, en esa hoja se hacen calculos y me los tiene que devolver en el forms. y no logro hacerlo Ejemplo En el Combobox24 pongo "nuevo" en el Textbox128 pongo "500" en el Combobox21 pongo "efectivo en el Combobox16 pongo "Pase Libre" en el combo box4 pongo "1 mes" En el Combobox23 pongo "nuevo" en el Textbox129 pongo "500" en el Combobox20 pongo "efectivo en el Combobox17 pongo "Pase Libre" en el combobox pongo "1 mes" en el textbox que se llama nuevopeso1 me tendria que poner 1000 esto se calcula en la hoja 1 B4 y no logro que se me actualice. Si a…

Hola alguien me podria ayudar a crear una userform para este archivo de antemano GRACIAS por su ayuda Tesss2013 - Copy.xls

Hola , alguien porfavor me puede ayudar con esto? Tengo un USERFORM Listado que me muestra registros, al seleccionar uno de ellos quiero modificar en otro USERFORM através de un botón modificar, lo que necesito es que ese USERFORM me traiga los datos que había seleccionado para poder modificarlos Listado Modificar Proyecto-ISR-2607.xlsm

Buenas, me ha servido mucho esta pagina, les comento que he logrado desarrollar un proyecto para el cual he logrado que dado un formulario pueda cargar una planilla para utilizarla como base de datos, poder imprimir el formulario, dado el boton cancelar que me limpie el formulario, pero lo que no puedo lograr es que mediante el boton buscar dado un dato me vuelva a cargar el formulario con el que trabaje, dejo el archivo para quien pueda me brinde una mano, desde ya muchas gracias y espero que se entienda lo que pido. La busqueda podria estar dada por responsable o por nombre de la empresa y que me permita elegir cual formulario imprimir.- Microsoft SkyDrive - Access fil…

Hola ante todo, muchas gracias por permitir mi ingreso al foro. Tengo un ejercicio q no logro resolver y quisiera ver si pueden ayudarme. El ejercicio dice: "Realizar una macro que ingrese dos números en dos celdas que de el usuario y por ultimo dejar el máximo en una celda tambien ingresada por el usuario" En visual basic escribi: Sub Macro1() ' ' Macro1 Macro ' ' Acceso directo: CTRL+j ' Dim Numero1 As String Numero1 = InputBox("Ingrese Numero1", "Datos") ActiveSheet.Range("H1").Value = Numero1 Dim Numero2 As String Numero2 = InputBox("Ingrese Numero2", "Datos") ActiveSheet.Range("H2").Value = Numero2 End Sub Hasta ahi logro ingr…

Saludos, Tengo una macro con un formulario de registro en excel, necesito que los campos de número sean numéricos y no de texto como se encuentran en la hoja "TABLAS" estos son los nombres de las columnas que necesito con formato número: (FACTURA-VALOR-DESCUENTO-AVERIA-RETENCIÓN-RETEICA-PAGO), también requiero que en la columna "PROVEEDOR" me deje registrar en la filas nombres repetidos, puesto que la macro no deja repetir nombres en esta columna. Adjunto archivo con la macro. Gracias por su colaboración. Hugalex10 LibroDiario JM.rar

Buenas Tardes Grupo, necesito la ayuda para organizar un archivo txt, tengo una macro la cual en idas pasados me ayudaron a realizarla y pues funciona, pero si la ejecuto para otro archivo lo separa pero no como lo necesito y pues no se si alguien me pueda ayudar poniendo comentarios a la macro que ya tengo para entender el código o si tienen otra opción se los agradezco, para que me logren entender esta macro separa inventarios, pero si la utilizo para separar ventas no me sirve por que me corta la información. Gracias. MAcro Extraer.rar

Buenas tardes, espero puedan ayudar... De ante mano muchas gracias. -Tengo una macro que me copia la hoja en la cual trabajo y la renombra (Perfecto)** Lo que necesito: -Mensaje Yes/No "¿Desea guardar e Imprimir esta solicitud?" -No: sigo trabajando, Yes: Copia hoja, guarda e imprime. -Y por ultimo que limpie las cerdas de la hoja matriz. Estas: Range("D10:F10,A13:A28,C13:F28").Select Range("D10:F10,A13:A28,C13:F28,A49:A64,C49:F64").Select Selection.ClearContents Observación: deseo bloquear la hoja pero con lo que tengo ya trabajado, me da un error. GRACIAS POR SU AYUDA Macro que copia y renombra: Sub Botón4_Haga_clic_en() Dim hoja As Worksheet Dim existe …

Hola saludos a todos espero me puedan ayudar. Necesito que este código haga el proceso de deshabilitar o quitar un comando (botón) de la barra de herramientas de acceso rápido que cree para ejecutar una macro y ya terminada la macro se quite. utilicé el siguiente código Sub EliminarComandoBarraAccesoRapido() Application.CommandBars("Quick Access Toolbar").Controls("Conectar SQL").Delete End Sub Pero me muestra el siguiente error Espero me puedan ayudar por favor. Gracias.