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…

Despues de mucho tiempo vuelvo a saludarles ,tengo un problema, la verdad me estoy pasando mucho tiempo tratando de hacer un reporte como lo muestro en la hoja "Ejemplo",sin embargo a las justas puedo hacer como llega en la hoja "Infor",alguien me pude ayudar a crear tablas como lo muestro en la hoja "ejemplo"?,la cantidad de tablas dinamicas que deben de crearse esta en función a los valores que figura en la columna A .En el libro solamente hay dos valores(encabezado "PC") 14 y 15 ,pero pueden haber mas y se debería crear como tantos valores a haya en el acolumna A. las tablas deberian de ser iguales a la que figura en la hoja ejemplo y la cantidad de tabals deb…

hola amigos de excel buen dia, he tenido un inconveniente con la siguiente macro que me ayudaron hacer en este foro, lo que se necesita que haga la macro es que cuando le realize el pago en el formulario, vaya a la hoja de base de datos y me resalte la celda que tenga la fecha de hoy, pero solo las personas que estan clikqueadas en el listbox que simbolizan que pagaron la cuota, y segundo que cuando se haya paga el total de las prestamo sea eliminado y de la base de datos y se guarde en un historico de prestamos y me relacione la informacion que esta en esa hoja, saludos espero me pueden colaborar Historico.rar

Tengo una tabla dinámica con una columna que se llama servicio los cuales los nombres de los servicios son A6,50,64,69 como le puedo decir mediante una condición if que si existe el servicio ejecute la instrucción visible false y si no que no lo haga que cheque el otro servicio ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("SERVICIO").CurrentPage _ = "(All)" With ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("SERVICIO") .PivotItems("A6").Visible = False .PivotItems("50").Visible = False .PivotItems("64").Visible = False .PivotItems("69").Visible = False .PivotItems("(blank)").V…

hola a todos, un poco chock con este problema, a ver: tengo un contador en el evento onchange de un textbox que cuenta del 1-13 caracteres digitados, pero quiero que si el usuario retrocede por un error, el contador disminuya el o los retroceso y al volver el usuario a escribir comience a incrementar nuevamente. osea como si el evento onchange contara todo menos el pulso de la tecla retroceso. La verdad quisiera decirle que tengo un ejemplo mejor que esta explicación pero no, no he encontrado nada en ningún foro que me ayude y espero que aquí si, gracias…

Buenas tardes: A ver si alguien me puede ayudar... Necesito que en la hoja de ART (articulos) hacer un contador para saber que stock de articulos tengo. Cuando concreto un pedido confirmo, se cargan en la hoja de ventas. Que podria hacer para que en la hoja de articulos me salga algo que me indique le quedan 2 articulos de sus 30 de madera Pino. Me explico? Les dejo el ejemplo a ver si algun craneo me puede ayudar. Saludos desde Argentina PROYECTO_PEHUEN EJEMPLO.rar

Que tal amigos expertos, hoy he estado repasando un código para descargar la información en dos hojas de un libro de excel. La descarga de los datos en las hojas es simultaneo y es casi perfecto ya que en su mayoría textbox(1-n) y combobox 1 hacen su tarea correctamente, el problema es que el combobox2 no lo hace del todo bien.Digo esto porque el comobobox2 solo descarga la información en una hoja,(SALIDAS), y no en dos que sería lo ideal.La verdad no logro percibir cual es el error en el código,ya que los textbox y el combobox1 tienen la misma lógica y si llevan a cabo su tarea. Espero puedan ayudarme amigos expertos.De antemano les doy las gracias por su ayuda.Reciban …

Buenas queridos amigos, espero me puedan dar una luz a lo siguiente : tengo un formulario que tiene un multipaginas y en cada pagina hay un listbox que llama datos de hojas diferentes , al dar doble clik en cada registro del listbox lanza otro formulario con label y textbox y me actualiza los label de acuerdo a la pagina activa . Pero cuando quiero actualizar un dato de cualquier textbox me esta cambiando los titulos de la columna del listbox. No me esta actualizando el campo correcto?? Adjunto archivo. quedo pendiente y mil gracias.. Actualizar listbox en dobleclick.zip

Buenos días. Estoy iniciándome en el mundo de la programación con macros, de manera forzada, porque intento hacer una tabla para cálculo de riego, ya que la necesito para mi trabajo pero tengo un problema. Lo que intento hacer es que en una columna, la cual son los días del año, se coloque un valor x, durante un número de casillas y, a partir de una determinada celda de la columna, no se si me explico. Si la plantación se inicia el día 20 de enero, por ejemplo, que empiece a rellenar a partir de esa celda con el valor x durante un número y de celdas. Tanto x, como y y como la celda de inicio cambiará. A ver si me podéis echar una mano, que estoy bastante atrancado y mi n…

Buenos días En un formulario tengo varios checkbox que los uso para señalar si requiero un equipo o no. Ahora me de vuelve verdadero o falso , pero necesitaría una solución para que me devolviera si o no. sl2

Hola a tod@s. Tengo el siguiente código: Sub ProductoFabr(ByVal FilaDSK As Long, ByVal FilaSHM As Long) Application.ScreenUpdating = False Dim ObjExc As Object Set ObjExc = CreateObject("Excel.Application") ObjExc.Visible = False ObjExc.Workbooks.Open Filename:="\\ServidorA\Producto\Pedidos.xlsx" .... En sub Sucede que tengo Office 2016 (32bits) con la licencia no original. La macro se ejecuta con normalidad hasta que necesito extraer información de otro libro "Pedidos" que se encuentra en la otra PC, es ahí donde la macro se detiene y muestra un mensaje, tipo mensaje emergente, que menciona lo siguiente : "Hay un problema con…

Hola estimados, me gustaría que me puedan ayudar con una macro para poder pasar datos a otra hoja con una condición. En la Hoja1 tengo una data, la cual me interesa solo la columna Modelos, cada vez que seleccione un modelo de mi data, lo pueda pasar a la hoja2 en la columna modelo, la selección es una celda a la vez, cuando copie y/o pase el dato de la celda a la hoja2, me vaya ingresando una tras otra hasta la celda C10, una vez que llegué a dicha celda, no me permita copiar mas y me salga un mensaje "ya no puede pasar otro dato, rangocompleto". Asimismo, en la hoja1 si yo selecciono otra celda que no este dentro de la columna Modelo, no me permita copiar, a…

buenas compañeritos del foro veran tengo un incoveniente con un codigo, el textbox recibe un numero decimal el problema es que solo me reconoce el numero cuando uso la coma y no el punto, quisiera saber si puedo validar que reconozca el numero cuando uso coma o cuando uso punto If BSUP >= 0.1 And BSUP <= 0.9999 Then HUERTO = "X" Else: HUERTO = "" End If si escribo 0.5612 no trabaja el codigo pero si escribo 0,5612 ahi si trabaja. gracias de antemano a la persona de buen corazon que me pueda ayudar. saludos desde ecuador

buenas expertos tengo este libro y en el tengo un formulario llamado verform que lo que hace es comparar dos hojas cualquiera y marcar las celdas coincidentes entre ambas con color amarillo y mi problema es el siguiente comparo la hoja programa4cifras con la hoja chance y me marca las celdas coincidentes en hoja programa4cifras en amarillo, pero quisiera hacer lo siguiente que al comparar la hoja programa4cifras con hoja semana me marcara las celdas con otro color diferente dejando el primer proceso de celdas marcadas en amarillo intacto porque necesito hacer un analisis mas profundo de estos numeros prueba1.xlsm

que tal resulta que tengo una macro que lo que hace es poner una letra en la celda segun el color de la celda pero el problema es que tarda mucho en ejecutarse ya que son muchas celdas, solo para pedir si alguien me puede decir como hacer que se ejecute mas rapido aqui dejo el programa, saludos. Sub prueba() Application.ScreenUpdating = False Dim celda As Range Range("h:h").Select For Each celda In Selection If celda.Interior.Color = RGB(255, 255, 255) Then celda = "V" End If Next Application.ScreenUpdating = True For Each celda In Selection If celda.Interior.Color = 255 Then celda = "R" End If Next Application.ScreenUpdating = True For Each celda In Sele…

Tengo un gráfico de barras Me gustaría crear una macro que me ditinguiese las 3 ultimas barras que tienen información. Ejemplo, Tengo una columna por mes Si el último valor con información fuese septiembre, me gustaría recalcar Julio, Agosto y Septiembre Este gráfico, se crea a partir de valores importados, por lo que me gustaría poderlo hacer mediante una Macro. No se cómo hacerlo y una de las soluciones "cutres" pero "efectivas, sería crear un cuadro semitransparente por encima para difuminarlas un poco. No sé como crear la forma y situarla donde quiero encima del gráfico. Muchísimas gracias de antemano.

Buenos días. Quiero crear una macro en la que me descargue las urls de mi columna A, con el nombre de mi columna B, a la ruta de la columna C. La descarga de la url me gustaría que fuera con estilo, imágenes, etc., es decir, como cuando das al botón derecho y clicas en "Guardar página web". Tengo esta macro, pero no descarga las urls con estilo. ¿Pueden ayudarme, en qué me equivoco? Muchas gracias Descargar urls.xlsm

Buenos dias, Mi problema es que tengo un formato con diferentes macros pero me sucede que quiero que determinadas celdas que están combinadas Asi: B35:d47 luego E35:G47 luego H35:J47 si ingreso un texto que me exceda ese tamaño se ajuste automaticamente. [TABLE=width: 847] [TR] [TD=colspan: 3][/TD] [TD=colspan: 3] [/TD] [TD=colspan: 3] [/TD] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [/TABLE]

Hola buenas tardes, primero que nada me presentaré mi nombre es Adán Garrido y llevo aproximadamente un año trabajando en excel, no me considero un experto ya que no he entrado al mundo de las macros y de la programación en VBA. El motivo de este tema como pueden leer en el titulo es para agilizar una tabla de excel, el funcionamiento se los explicare continuación junto con el archivo de excel. El formato es sobre la captura de tiempos y materiales de una empresa, mas específicamente del área de carpintería, la tabla principal consta de un apartado para la información del producto, después esta la tabla de tiempos y al final la tabla de captura de materiales, la mas "com…

Buenas, necesito saber como puedo unificar hojas de varios libros, tengo que trabajar varios libros que me llegan ( 4 ) con el mismo numero de hojas cada uno y mismos nombres, y necesitaria unificarlas todas en el mismo libro para extraer los datos. Saludos.

Buenas tardes, Tengo una macro creada con el botón para grabar. Me ha funcionado bien pero hay un pequeño error que salta en algunas ocasiones. Como se ve, tengo una formula extensa, y al llegar a la parte que citare abajo, si es que la formula para buscar no encuentra el dato "Original" manda un error. ¿Cual seria la forma de decirle que si no encuentra ese "Original" simplemente continúe con la formula?, saltándose esa orden de buscar. Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.…

Hola amigos.En la hoja1 hay un botón que abre un formulario parecido a un editor de textos (para facilitar la comprensión del problema, ese editor de textos, que es un InkEdit, ya contiene algo de texto).La intención, ahora, es situar el cursor en el lugar que se desee dentro del texto del InkEdit y pulsar el botón "Introducir hora".Ese botón abre una ventana con un textbox que permite teclear una hora (o cualquier texto). Al pulsar el botón "Añadir" se añadirá el texto que hemos tecleado, en el lugar en el que pusimos el cursor dentro del InkEdit.Hasta aquí, todo bien.Lo que no estoy consiguiendo es que, una vez pulsado el botón "Añadir" y el texto se haya añadido, el cu…

Hola a todos, gracias de nuevo por ayudarme. Tengo una macro que me crea una carpeta según el nombre de una celda en éste caso D1: Dim Nom_Carpeta As String Nom_Carpeta = Range("D1").Value MkDir "C:\HPRPACIENTES\" & Nom_Carpeta Lo que quiero es crear una macro que me permita mover esa carpeta a otro lugar. En resumen tendría que poder mover la carpeta (cuyo nombre es igual a D1) a otro lugar. Gracias y espero que puedan ayudarme

Que tal Foro como les va?, mi consulta es la siguiente, tengo una tabla donde cargo datos hay varias filas que llevan un mismo numero madre como un id lo que yo quiero es hacer que cuando busque por este numero madre o ID me traiga solo las filas que contengan ese numero y las ponga en textbox de un userform, para que pueda modificar esos datos o eliminar. Espero que puedan ayudarme. Saludos. busqueda por ID.rar

Esta simple macro es de Macro Antonio. Sub NoCopiarObjetosAlCopiarHoja() Application.CopyObjectsWithCells = False Hoja1.Cells.Copy Hoja2.Range("A1") Application.CopyObjectsWithCells = True End Sub[/CODE] Necesito si posible; ¿Se podria agregar para que copie (de preferencia Guarde como:) la hoja activa? SIN objetos, SIN formulas y SIN codigo en la hoja (si existiera), dejando [color=#FF0000][b]todo lo demas[/b][/color]. Cuando mensiono [color=#FF0000][b]"todo lo demas"[/b][/color] me refiero a imagenes, datos, valores ect