tag:blogger.com,1999:blog-8253525174733356300.post475634665130104147..comments2024-03-16T00:16:47.805+01:00Comments on témporaExcel: Automatizar una tarea cuando una celda cambia en ExcelTémpora Consultoreshttp://www.blogger.com/profile/09000632812723289961noreply@blogger.comBlogger142125tag:blogger.com,1999:blog-8253525174733356300.post-89348351065167502302022-04-23T17:17:03.746+02:002022-04-23T17:17:03.746+02:00En este caso lo hago con calculate pero cuando abr...En este caso lo hago con calculate pero cuando abro la hoja se me activa sin cambiar el valor, ya despues si me funciona bien pero quisiera que no me hiciera la acción cuando abro el libro:<br />Aqui dejo el código <br /><br />Option Explicit<br />Dim fecha_actual As Date<br /><br />Private Sub Worksheet_Calculate()<br /><br />Static anterior_valor As Variant<br /><br />If Range("$K$4").Value <> anterior_valor Then<br />anterior_valor = Range("$K$4").Value<br />fecha_actual = Date<br />Range("$I$4").Value = fecha_actual<br /><br />End If<br />End Sub<br /><br />Si me pudieran ayudar se los agradeceríaAnonymoushttps://www.blogger.com/profile/16602674146502208183noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-85788348157829345422022-02-25T21:05:59.608+01:002022-02-25T21:05:59.608+01:00Gracias!!!Gracias!!!Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-60258019139981618442021-11-19T19:45:26.354+01:002021-11-19T19:45:26.354+01:00Hola Excelente articulo.
Me gustaría que me ayudar...Hola Excelente articulo.<br />Me gustaría que me ayudaran en una variación del código.<br />Necesito que cuando exista algún cambio en una columna, el macro me genere una columna completa nueva en la posición anterior a la columna donde se origino el cambio con los valores antes de haber cambiado.<br />La idea seria como una matriz que valla creciendo automáticamente al introducir valores nuevos. Es posible?Argh888https://www.blogger.com/profile/10470435791696879578noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-38337182240384267112021-11-19T19:42:11.591+01:002021-11-19T19:42:11.591+01:00Este comentario ha sido eliminado por el autor.Argh888https://www.blogger.com/profile/10470435791696879578noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-21242090057896871542021-08-09T22:45:53.724+02:002021-08-09T22:45:53.724+02:00Excelente información. Muchas gracias.
Hay alguna ...Excelente información. Muchas gracias.<br />Hay alguna manera de automatizar la colocación de un evento.<br />Quiero decir, como se puede hacer que un código coloque de manera automática un evento en una celda determinada, en las primeras 50 hojas de un libro.Anonymoushttps://www.blogger.com/profile/16904257934492314957noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-1297690170154164622021-07-23T19:18:16.132+02:002021-07-23T19:18:16.132+02:00buen dia, disculpe tengo un problemita,.. como pue...buen dia, disculpe tengo un problemita,.. como puedo hacer para que en una celda de excel me escriba en automatico una dato, dependiando de lo que escriba en otra celda, ... por ejemplo, por tengo dos cendas, A1 y B1, si en la celda A1, escribo "5" quiero que en la celda B1 me escriba un codigo por ejemplo "1MH354" , si escribo en A1 el numero "7", ps en B1, me escriba otro codigo, "1MX358" y asi sucesivamente, pero tambien deseo poder escribir libremente en la celda B2, aunque no asigne valores a la celda B1......<br />como puedo hacer eso? ya he intendado y no me saleAnonymoushttps://www.blogger.com/profile/13648274129987317064noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-13511720123502405172021-01-25T19:39:54.537+01:002021-01-25T19:39:54.537+01:00Tengo una macro con un if y un activecell en el cu...Tengo una macro con un if y un activecell en el cual hago una comparación de 1 y 0 con el 1 pinta rojo y con el 0 pinta verde el problema es que no me toma en cuenta la celda en la que me encuentro si no en la siguiente cuando doy un enterAnonymoushttps://www.blogger.com/profile/09892372194466408657noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-85372304404851559252020-12-04T18:56:47.894+01:002020-12-04T18:56:47.894+01:00En la macro del botón que introduce la hora actual...En la macro del botón que introduce la hora actual, introduce un código que solicite una contraseña para que solo tu puedas terminar de ejecutar la macro.<br />Saludos.Témpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-82517790676270243272020-12-04T17:14:59.241+01:002020-12-04T17:14:59.241+01:00Buenas tardes, he creado un botón de comando (Ingr...Buenas tardes, he creado un botón de comando (Ingreso/Egreso) para que introduzca la hora actual al darle click. Ahora quisiera poder bloquear la celda para que no puedan modificarla si vuelven a hacer click en el botón. Logré bloquearla si intentan modificarla manualmente pero no logro hacerlo si utilizan nuevamente el botón. Agradeceré cualquier aporte. SaludosAnonymoushttps://www.blogger.com/profile/04995306125068717455noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-48401534132543293212020-11-10T05:07:05.003+01:002020-11-10T05:07:05.003+01:00No entiendo nada pero funciono perfecto! Te super ...No entiendo nada pero funciono perfecto! Te super agradezco por la ayudaLukashttps://www.blogger.com/profile/13788986098396820716noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-89673568668027848672020-11-09T19:44:27.290+01:002020-11-09T19:44:27.290+01:00Mira a ver si te sirve así:
Sub Prueba()
Rang...Mira a ver si te sirve así:<br /><br />Sub Prueba()<br /> Range("K1:K15").Copy<br /> <br /> With Cells(23, 4)<br /> If .Value = "" Then<br /> .PasteSpecial _<br /> Paste:=xlPasteAll, _<br /> Operation:=xlNone, _<br /> SkipBlanks:=False, _<br /> Transpose:=True<br /><br /> Else<br /> Cells(1048576, 4).End(xlUp).Offset(1, 0).PasteSpecial _<br /> Paste:=xlPasteAll, _<br /> Operation:=xlNone, _<br /> SkipBlanks:=False, _<br /> Transpose:=True<br /><br /> End If<br /> <br /> Application.CutCopyMode = False<br /> <br /> End With<br />End Sub<br /><br />Saludos.témporaconsultoreshttps://www.blogger.com/profile/06618873410147904806noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-57972841989977870962020-11-06T16:07:30.162+01:002020-11-06T16:07:30.162+01:00Hola! Muchas gracias por la pronta respuesta. Una ...Hola! Muchas gracias por la pronta respuesta. Una vez que envié el mensaje seguí investigando y note que no copie todo el código macro y es super importante, pido disculpas. <br /><br />Probé el código mencionado y funciono perfecto pero me falto aclarar que necesito que al momento de pegar la información en la celda "D23" sea con el pegado especial de Transponer. Intente adaptarlo pero no hubo caso.. <br /><br />Ahora volví a grabar la macro y quedo de la siguiente manera, lo único que hay que agregar es lo del pedido inicial. <br />Muchas gracias de verdad por esta ayuda, es enorme.<br /><br /><br />Sub PRUEBA()<br />'<br />' PRUEBA Macro<br />'<br /><br />'<br /> Range("K1:K15").Select<br /> Selection.COPY<br /> Range("D23").Select<br /> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _<br /> False, Transpose:=True<br /> Range("K1:K15").Select<br /> Application.CutCopyMode = False<br /> Selection.ClearContents<br /> Range("K1").Select<br />End SubLukashttps://www.blogger.com/profile/13788986098396820716noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-80834655824107738282020-11-06T09:43:44.292+01:002020-11-06T09:43:44.292+01:00Hola Lukas. La macro que has puesto en tu mensaje ...Hola Lukas. La macro que has puesto en tu mensaje no hace lo que dices. Debería ser:<br /><br />Sub prueba()<br /> Range("K1:K15").Select<br /> Selection.Copy<br /> Range("D23").Paste<br />End Sub<br /><br />O mejor, con una sola línea:<br /><br />Sub Prueba()<br /> Range("K1:K15").Copy Destination:=Range("D23")<br />End Sub<br /><br />Y para tu necesidad de incremento de fila, debería ser:<br /><br />Sub Prueba()<br /> Range("K1:K15").Copy<br /> <br /> With Range("D23")<br /> If .Value = "" Then<br /> .PasteSpecial<br /> Else<br /> .End(xlDown).Offset(1, 0).Select<br /> ActiveSheet.Paste<br /> End If<br /> End With<br />End Sub<br /><br />Saludos<br /><br /><br /><br /><br />témporaconsultoreshttps://www.blogger.com/profile/06618873410147904806noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-48034027319001967612020-11-05T22:05:42.793+01:002020-11-05T22:05:42.793+01:00Range("K1:K15").Select
Selection.Cop...Range("K1:K15").Select<br /> Selection.Copy<br /> Range("D23").Select<br /><br />Hola, soy muy nuevo en tema macros y quisiera saber si pueden ayudarme con el código mencionado. Como verán lo que hace es seleccionar los datos de las celdas "K1:K15", y luego los copia en la celda "D23". Lo que preciso hacer es que una vez activado el macro, para la siguiente vez, automáticamente pase de "D23" a "D24" y así sucesivamente cada vez que se utilice el macro ya que si no, siempre se copia los datos en el mismo lugar eliminando el anterior valor puesto. Gracias!Lukashttps://www.blogger.com/profile/13788986098396820716noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-83410466950148252532020-05-24T17:28:37.708+02:002020-05-24T17:28:37.708+02:00Debe ser un código introducido en el módulo de la ...Debe ser un código introducido en el módulo de la hoja en cuestión<br />SaludosTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-83472555325386717472020-05-24T17:28:01.158+02:002020-05-24T17:28:01.158+02:00Private Sub Worksheet_Change(ByVal Target As Range...Private Sub Worksheet_Change(ByVal Target As Range)<br /><br /> Dim vRng As Range<br /> Set vRng = Range("I:I")<br /> <br /> If Not Intersect(Target, vRng) Is Nothing Then<br /> MsgBox Range("R" & Target.Row).Value<br /> End If<br /><br /><br />End SubTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-13118376397624247222020-05-17T04:55:34.310+02:002020-05-17T04:55:34.310+02:00Hola, buenas noches
necesito una macro para que al...Hola, buenas noches<br />necesito una macro para que al ingresar datos en la columna I me de un msgbox con los datos de la columna R (los datos esta columna son resultados de formulas) de la misma fila donde se ingresaron los datos de la columna I. muchas graciasAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-85280430588261602892020-05-07T11:04:35.409+02:002020-05-07T11:04:35.409+02:00Pues...
Private Sub Worksheet_Change(ByVal Target...Pues...<br /><br />Private Sub Worksheet_Change(ByVal Target As Range)<br />Dim vRng as Range<br />Set vRng = Range("B:B")<br />If Not Application.Intersect(Target, vRng) Is Nothing Then<br /> Call MACRO74<br />End If<br />End Sub<br /><br />SaludosTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-36666383435775198552020-05-07T05:50:28.125+02:002020-05-07T05:50:28.125+02:00Hola. como hago una macro en donde en la columna B...Hola. como hago una macro en donde en la columna B:B tengo formulas del tipo "SI(" Y CUANDO SE MODIFIQUEN ESTAS FORMULAS AUTOMATICAMENTE "disparen" el evento de llamar a otra macro (ej: MACRO74) JUANEXCEL202020https://www.blogger.com/profile/12784111081217244459noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-21207605626300163772019-09-24T08:54:35.992+02:002019-09-24T08:54:35.992+02:00Buenos días
No es posible ayudar de forma útil y c...Buenos días<br />No es posible ayudar de forma útil y correcta con un código si no se sabe la situación de las celdas que cambian y las celdas con las que hay que comparar los cambios.<br />Debes dar algún detalle más.<br />Saludos.Témpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-12905998850206724382019-09-20T20:50:27.632+02:002019-09-20T20:50:27.632+02:00Buenos días,
Necesito una ayuda, cómo podría hacer...Buenos días,<br />Necesito una ayuda, cómo podría hacer para que se ejecute la acción (en este caso es ingresar el timestamp de cuando se realiza el cambio en la celda), pero solamente cuando el valor de la celda es diferente al anterior. Es decir, si una celda se edita ingresando el mismo valor, que el timestamp se mantenga, y solo si cambia de valor cambie el timestamp.Anonymoushttps://www.blogger.com/profile/08672499697071410908noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-18811733281006324262019-09-07T08:48:16.208+02:002019-09-07T08:48:16.208+02:00Disculpa, ¡vaya fallo!, no te he dicho la direcció...Disculpa, ¡vaya fallo!, no te he dicho la dirección de email. E:<br />josempomares@temporaconsultores.comTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-67930834430886074792019-09-07T03:37:47.065+02:002019-09-07T03:37:47.065+02:00Te lo agradezco estas siendo de gran ayuda. Es un ...Te lo agradezco estas siendo de gran ayuda. Es un proyecto personal para presentar en el trabajo y veras que aún falta implementar con muchos datos, pero te harás una idea enseguida de lo que pretendo. ¿Como puedo adjuntar el archivo?<br />Un saludo.Fidel Oliveshttps://www.blogger.com/profile/01616824257877792512noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-12923425069231872312019-09-07T00:21:34.315+02:002019-09-07T00:21:34.315+02:00El código (a pesar de que me funcionó) tiene algo ...El código (a pesar de que me funcionó) tiene algo que hay que cambiar... pero para hacerlo más rápido, te ruego que me envíes el archivo, si es posible.<br />Estas cosas son difíciles sin tener el archivo delante y ver las circunstancias exactas. En cualquier caso, creo que ya se donde está el error.<br />Por cierto, para saber por qué te da ese error de subíndice (error9), deja tu código para saber el motivo y tb te lo diré.<br />Saludos.Témpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-89856393698668843852019-09-07T00:12:30.641+02:002019-09-07T00:12:30.641+02:00Gracias por la rápida respuesta, pero en Applicati...Gracias por la rápida respuesta, pero en Application.GoTo Worksheets("HojaPlano").Range(vStr_celda) no puedo ponerle el nombre de la hoja, pueto que cada hoja a partir de la tercera y hasta la 32 son planos donde buscar, renombradas con PL-1001, PL-1002 y así sucesivamente.<br />El caso que he podido que funcione bien, pero no se porque a veces me da error "9", el codigo que utilizo es:<br />Sub Localiza()<br />On Error GoTo ErrorHandler<br />' Insert code that might generate an error here<br />Sheets(Sheets("Localitzador").Range("E5").Value).Select<br />Range(Sheets("Localitzador").Range("F5").Value).Select<br />Exit Sub<br />ErrorHandler:<br />' Insert code to handle the error here<br />MsgBox ("No se puede localizar el Tag")<br />Resume Next<br />End Sub<br /><br />Su formula me funciona asi solo para la hoja del plano PL-1001<br />Application.GoTo Worksheets("PL-1001").Range(vStr_celda)<br />He probado de sustituir el nombre de la hoja por la variable vStr_nomHoja, pero lamentablemente no funciona.<br /><br />Gracias de nuevo por su atención y su tiempo.Fidel Oliveshttps://www.blogger.com/profile/01616824257877792512noreply@blogger.com