Macros y programación VBA

Hola, buenas noches, Tengo el ejemplo adjunto, el cual me gustaria puedan colaborarme con lo siguiente: 1. al estar en la hoja Ordenes, en la columna BC cualquier fila y escriba la palabra Proceso se copie a la pestaña Proceso. 2. cuando me encuentre en la pestaña proceso columna BC cualquier fila y escriba la palabra Pendiente se "corte" y peque en la pestaña Pendiente. 3. y cuando me encuentre en la pestaña Pendiente columna BC cualquier fila y escriba la palabra Cerrado se "corte" y peque en la pestaña Cerrado. Muchas Gracias por su amable apoyo. Saludos, ejemplo copiar a pestanas.zip

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…

Estimados: Como están, necesito saber si alguien de este foro sabe utilizar macros para extraer datos del programa MS project o viceversa, para ser más específico, necesito generar una macro para extraer del MS Project el "PV o CPTP" acumulado por corte de fecha (Ej. cada quincena o semanalmente, meses, etc.) y así con los datos extraidos construir una Curva S, se que hay una forma, he estado buscando por la web y no he encontrado nada, si alguien conoce acerca del tema, pasenme el dato. Saludos.

buenas tardes, tengo el siguiente código: '---------------------------------------------------' '--OPTION EXPLICIT--------------------------' '---------------------------------------------------' ' Option Explicit Dim tWebBrowser As Object ' '---------------------------------------------------' '--NAVEGADOR (CONSULTAR SALDOS '--BANCARIOS)---------------------------------' '---------------------------------------------------' ' Private Sub Worksheet_Activate() Range("C10").Select If Range("D3").Value <> "" Then If IsNull(Range("D3").Value) Then Range("D3").Value = "Banco online sin comisiones para Particulares y Negocios - ING DIRECT…

Lo que necesito es calcular las celdas en verde. Dado que, como yo cuento fechas entre 2 meses con rangos de 19 al 18, hay días que se pierden entre fechas, Por ejemplo, Los días antes de ese 19 (>19) pertenecerían al periodo anterior. Los días después de este 18 (<18) pertenecerían al periodo posterior. Y esos días también son importantes. Les agradezco de antemano. Problema.zip

tengo unos comprobantes de pago en PDF y una lista de empleado con código de empleado en EXCEL. no se si abra o se podrá hacer un marco que extraiga un comprobante por el código de empleado para así poder imprimir comprobantes específicos y no todos lo que están en el PDF. no se si me he explicado. adjunto pdf y listado. saludos. Comp Pago 1Bis Enero 10002 Ambiente.pdf Lista de Empleados.rar

Hola a toda la comunidad, ando en una terrible confusión de esta división y agradecería mucho me ayuden. Adjunto el archivo. El problema esta en cuando intento registrar una joya y pongo su peso y su precio por gramo, este ultimo me automatiza los cálculos para los demás textbox, pero lo que no logro que me de un resultado esperado en el textbox "Precio de vta. x gramo" (este textbox resulta de la división del precio total / el peso). Por ejemplo pongo 10 en el PESO y en PRECIO GR. pongo 100, los demas textbox escriben el resultado automaticamente y supuestamente me deberia mostrar en el precio de vta. total 1180 (resultado de la multiplicacion PESO * PRECIO GR. * IGV…

Buenas tardes compañeros. Soy nuevo en el lenguaje VBA, pero tengo unos proyectos que me gustaria mucho poder optimizar. ojala puedan ayudarme, les comento. Tengo un documento, en la hoja 1 hay una tabla con fecha inicio, fecha fin , nivel a ,nivel b y rango. en la hoja 2, columna A y B tengo una serie de fechas con sus respectivos valores. en la columnda D tengo las fechas de días inhabiles del calendario de la empresa... Lo que necesito es una FUNCION que: 1. cuente los días laborales entre dos fechas seleccionadas ( como si hicieramos un días.lab, seleccionando nosotros las fechas ) 2. si hay días inhabiles entre semana, que los cuente y que les asi…

Buenas, mi nombre es Larry, soy de Venezuela, actualmente diseñe un archivo para realizar nomina, actualmente lo utilizo por quincena (son dos periodos de pago) lo que aquí llamamos 15 y 30 (en referencia a los periodos de pago). La hoja funciona muy bien, pero hay muchos procesos que se deben hacer manual, en ese aspecto no se mucho sobre macros y quisiera saber si me podrían ayudar, para la automatización del libro. Características del Libro: -Hay una hoja para los datos de la empresa, sirve para los encabezados. - Tengo una Hoja donde están todos los Datos y Calculos de los trabajadores, nombre, identificación, computos de pagos, etc esta hoja se al…

Hola a todos, por favor si alguien me puede ayudar con lo siguiente: Tengo un reporte de varias boletas de pago, cada boleta tiene un número de DNI Necesito que en base al criterio de la celda número de DNI (celda color verde), de la hoja “BOLETAS”, haga una búsqueda en la hoja1 Columna “A” y si coincide con el número de DNI de cada boleta, que copie el cargo (columna C) que le corresponde y la ubique debajo de la celda Cargo (celda color rojo) de la hoja “BOLETAS”. De la misma forma con los datos de la columna D de la hoja1, se hace una búsqueda en base al número de DNI y de coincidir con lo asignado en cada boleta de la hoja “BOLETAS”, se debe copiar los …

Buenas tardes. Necesito ayuda con el archivo adjunto. Tengo un archivo donde realizo un control sobre las cuentas de varios empleados (+ de 50 en total), donde al apretar el botón de "CTROL CTAS. EMPLEADOS", automáticamente se copia el primer numero de cuenta del Excel, se activa otro programa llamado "Emulación 3270", se realizan un par de acciones donde dentro del programa se pasa por diferentes opciones para luego pegar el numero de cuenta, y lo pega en el programa Emulación donde luego imprime la pantalla con "F6", vuelve a la pantalla de inicio del programa y empieza nuevamente con el siguiente numero de cuenta, así sucesivamente hasta que llega a la celda …

hola expertos buen dia , estaba analizando si existira algun codigo que me grabe o guarde los movimientos que realice en un tablero de ajedrez les agradezco las ideas que me ofrezcan

Hola a todos, queria hacer una consulta, se puede cambiar el color de fondo de un TextBox que está situado en el UserForm1 desde el UserForm2

Hola amigos. Sinceramente llevo tiempo intentando solucionar este problema y me da que es cuestion de concepto que algo hago mal. Anteriormente lo consulte, pero por razones de salud no fue hasta ahora que retomé el proyecto. Sin ir mas lejos es: Después de validar en un if then la condicion de vacio de un textbox y por ello retornar el foco a al textbox (txt.textbox.setfocus) en cuestión, lo devuelvo para darle color con textbox. backcolor y todo, ok perfecto. Se que llego correctamente porque lo colorea pero no aparece titilando el cursor por lo que entiendo que no "está disponible".... ¿cual puede ser el motivo?...Está enable=true, locked=fal…

Hola Buenas Noches. Ante todo un cordial saludo a los foristas de ayudaexcel. En un libro con macros que estoy desarrollando, me he visto en la necesidad de importar archivos con texto plano y desplegarlo en una hoja de excel bajo el siguiente criterio: - debe estar formateado en codificación UTF-8 - el contenido se irá guardando en filas sucesivas. - se deberá conocer el número de filas que se generarán una vez vaciado el contenido del txt en la hoja. de lo señalado llevo bastante adelantado, pero mi problema es que al usar uno que otro método, entonces se dejan de cumplir uno de los criterios señalados. utilizando por ejemplo, la impor…

buenas noches, tengo una macro para navegar por paginas web, la cual siempre me ha funcionado bien, pero siempre me ha costado dar con los objetos web he intentado con las siguientes sentencias sin éxito para el color: c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-hhw-c116")(0).innerText y para el valor 1,99 c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-xsn-c116")(5).innerText c.Value = htmlDeRespuesta.getElementsByClassName("col-xs-2 price")(0).innerText c.Offset(0, 3).Value = htmlDeRespuesta.getElementsByClassName("tableHere")(0).innerText pero no he podido dar con el valor de ninguna form…

Aviso que se cómo crear controles en tiempo de ejecución, con nombres específicos para cada uno de ellos; sin embargo quiero saber: Como crear en tiempo de ejecución, eventos en controles, creados también en tiempo de ejecución. Emplear el evento click y doble click a varios controles creados en tiempo de ejecución, específicamente en TextBox. Tengo otra duda es posible de alguna manera utilizar o crear el evento click derecho, veo que predeterminado está click izq, pero el click derecho nada.

Buenos días a todos; -¿Sería posible cargar una imagen de una Url en una hoja?. He estado viendo algo por la web pero no es justo lo que yo necesito. Adjunto macro de ejemplo. Saludos y buen día. MImgUrl.xlsm

Buenas? Tengo una duda, no se si si hay alguna forma de hacerlo? Pongo en situación, un formulario con textbox grande con la propiedad multilinea nada mas inicializarse se carga con un enorme texto desde una única celda de mi hoja de excel apareciendo la barra de desplazamiento en el textbox, y para desplazarse debes seleccionar esa barra y mover el rato arriba o abajo para ver todo el contenido. ¿Hay alguna forma de qeu pille el desplazamiento con la rueda del ratón ? con los listbox y los combobox no tengo problemas para que al rueda del raton se desplace pero con el recuadro del textbox no consigo que la barra se mueva?

Buenas tardes, me pueden ayudar no me pone el Si y la Hora en el codigo ELECCIONES1.xlsm

Buenas tardes Tengo un listbox donde recojo dos tiempos distintos. Uno es el tiempo estimado y el otro es el tiempo real dichos datos estan en la celda en formato [hh]:mm el problema está cuando cargo en un listbox dichos datos. Si es menor a 24h se muestra sin problemas con cdate Me.ListBox.List(Me.ListBox.ListCount - 1, 19) = CDate(HojaBase.Cells(i, "AA").Offset(0, 0)) 'TIEMPO REAL Me.ListBox.List(Me.ListBox.ListCount - 1, 20) = CDate(HojaBase.Cells(i, "AB").Offset(0, 0)) 'TIEMPO ESTIMADO pero si los valoren superan las 24h no muestra el tiempo y si una fecha (ADJUNTO IMAGEN). Que tengo que hacer para que …

Hola de nuevo a todos. Primero quiero agradecer la ayuda que me han otorgado en otras ocasiones, acudo a ustedes por ayuda, para solucionar un problema que tengo. Tengo un userform para capturar mediciones, se le agregan comodines para no repetir en las capturas todos los numeros y asi acelerar las mediciones y capturas, todo funciona en el userform, mi problema es que agrege 2 combobox para ASIGNAR el lugar donde deseo se guarden las mediciones de ese grupo y el segundo combobox repite lo mismo, pero para otro lugar donde se desea sea agregado en la tabla de excel. Como mencione todo fuciona pero, al guardar lo almacenado en el Listbox no me respeta la ubicacio…

Hola buenas tardes. Tengo un archivo con el que extraigo información de diferentes hojas del mismo libro a una plantilla llamada contenido. Yo en la plantilla indico el nombre de la hoja con la que trabajare y de ahí me trae toda la información de datos contenidos en diferentes columnas. En la columna D17= coloco el No. 1 y en automático inicia el ciclo de poner los datos que se encuentran en las hojas. una vez que termina inicia con el consecutivo 2 y así hasta el último. El problema que tengo es que me pone un consecutivo más. es decir, si terminara en la 17 se sigue con el 18 o si yo tecleara otro número, vuelve el ciclo. Pensé en poner …

Hola a todos: Tengo lo siguiente en el libro de VBA: [DBOX]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("B4:H14,B6:H6")) Is Nothing Then ActiveCell.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Value End If End Sub [/DBOX] Lo que quiero es que al introducir un dato en cualquiera de esas celdas me sume ese valor con el dato y me deje ese dato en la misma celda. Lo he intentado de otras maneras pero me genera una especie de bucle y no he podido solucionarlo, y las que les describo me datos diferentes. Si de favor pueden ayudarme. Gracias.

Hola buen día. Gracias a todos por su ayuda, dsisculpen es que tengo una base de datos de la cuál quiero tomar algunos datos y pasarlos a otra hoja, eh intentado resolver con fórmulas pero las verdad no eh podido, se ve muy mal con fórmulas, lo que quiero hacer es que la hoja llamada "Basa de datos", me pase los datos a la hoja llamada "Pagos realizados", pero solo me pase las celdas que están en color verde en la hoja "Base de datos", que me pasara solo el Nombre, Fecha, Seudonimo, Producto, Método o Forma de pago, Costo de Producto y Costo de envió. La verdad ya no se como hacerlo con macro, ojala me puedan orientar un poco, gracias por su ayuda. Esta es la macro que…