Gerson Pineda

Hola German Para mi es un placer coincidir contigo nuevamente y gracias por tus palabras, mencionarte que mis aportes trato de explicarlos ya que como sabemos aqui entran expertos, novatos, profesionales, avanzados etc... y pues todos no lo saben todo jeje Y explique el codigo a peticion de un amigo llamado Luis y a muchos mas (como tu) que creen/piensan que no deben solicitarlo, esta macro se pueden adaptar a otras de evento, como selectionchange, change etc... con solo unos leves cambios y listo, pero me parece mas efectiva con el doble click, ya que este metodo es poco utilizado dentro de las hojas de Excel Gracias amigo, "BUENAS NOCHES" y buenos dias para ti tambien Saludos

Hola a todos! Imaginemos que trabajamos con una BD y que en esta se lleva un Tracking Report (Reporte de seguimiento) por cada dia, y en el cual se controla un inventario (como maquinas de costura, como ejemplo) y estas se alquilan/rentan, ya sea por dias, semanas, meses etc... y suponiendo que dicho inventario es enorme:) Pues bien he elaboarado un ejemplo con 3 hojas, para poder utilizar esta macro de "evento", la cual se activa al darle doble click en cualquiera de las columnas "E" o "F" y que siempre y cuando existan datos, aparecera una ventana indicandonos la cantidad de inventario en tal localidad de tal cliente, tambien mencionar que cada vez que le demos doble click, en la celda adyacente se escribira automaticamente lo que aparece en el "msgbox" Y bueno con esto evitamos (la fatiga) de hacer uso del autofiltro para ver la cantidad de determinada localidad o algun cliente:), espero comprendan el objetivo de esta macro Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim rango As Range Dim uf As Long 'desactivar la actualizacion de la pantalla Application.ScreenUpdating = False 'saltar error On Error Resume Next 'buscamos la ultima celda ocupada uf = Range("E" & Rows.Count).End(xlUp).Row 'marcar el rango dinamico Set rango = Range("E2:F" & uf) 'contar segun la celda activa unidades = WorksheetFunction.CountIf(rango, Target.Value) 'limpiar si hay mas de una celda con datos If WorksheetFunction.CountA(Range("G2:G" & uf)) > 0 Then Range("G2:G" & uf).Clear End If 'correr la macro si es la columna E If Target.Column = 6 Then 'si hay datos contar inventario If Target.Value <> "" Then 'escribir en celda adyacente ActiveCell.Offset(, 1) = "Existen " & unidades & _ " unidades a cuenta de cliente " & ActiveCell.Value ActiveCell.Offset(, 1).HorizontalAlignment = xlLeft 'presentar en msgbox MsgBox "Existen " & unidades & " unidades a cuenta de cliente " _ & ActiveCell.Value, vbOKOnly, "Inventario en Honduras " _ & "(" & ActiveSheet.Name & ")" End If Cells.Columns.AutoFit 'pulsar escape SendKeys "{ESC}" End If 'correr la macro si es la columna F If Target.Column = 5 Then 'si hay datos contar inventario If Target.Value <> "" Then 'escribir en celda adyacente ActiveCell.Offset(, 2) = "Existen " & unidades & _ " unidades en " & ActiveCell.Value ActiveCell.Offset(, 2).HorizontalAlignment = xlLeft 'presentar en msgbox MsgBox "Existen " & unidades & " unidades en " & ActiveCell.Value _ & " a cuenta de cliente " & ActiveCell.Offset(, 1).Value, _ vbOKOnly, "Inventario en Honduras " & "(" & ActiveSheet.Name & ")" End If Cells.Columns.AutoFit 'pulsar escape SendKeys "{ESC}" End If Set rango = Nothing Application.ScreenUpdating = True End Sub[/PHP] Y como siempre adjunto un archivo para pruebas Saludos desde Honduras Evitar filtros utilizando CONTAR SI + Msgbox.zip Evitar filtros utilizando CONTAR SI + Msgbox modificado.zip

Hola Eduardo Gracias por el aporte, ojala sean mas jeje Saludos Luis PD califique como excelente el tema y te di una reputacion:)

Pedro esta buenisima tu idea y sigue de necio jaja y tienes toda la razon aqui no solo de Excel se aprende tambien de cultura general, bueno y hablando de General creo que German con su gran espalda soportara cualquier paliza (golpes) jajaja German Como siempre tu tan de buen humor, me has hecho reir nuevamente con tus ocurrencias jeje espero no me llamen la atencion mi jefa Saludos

jajaja me has reir por un rato, y aqui en la oficina de mi trabajo, me quedan viendo como quien dice que le pasa a Gerson!! Que mas quiciera yo mi amigo, esperemos que Sergio se anime jaja Saludos

jajaja pero es mas facil para ti, ya que las pruebas realizadas es por medio de un libro (que creaste), asi que no te fatigues tanto jeje Hey!! Antoni que grato saber que eres nuevo moderador wao! sin duda estamos en buenas manos, espero que nos ayudes aun mas con el foro jeje y pues eso felicidades mi estimado y bienvenido al club;) Pd por cierto disculpa mi ignorancia Catalan no esta dentro de Expaña? Saludos

Hola Pedro Muy bueno el aporte! gracias como siempre muy completo Saludos

Hola Antoni He probado la macro y esta excelente (solo agradecere si de tu parte adjuntas siempre un archivo "si no es mucha la molestia", para tus grandes aportes) y asi como dice Rolano evitarnos la fatiga jeje Y con tu permiso, edito el titulo de tu tema Saludos a España que gracias a ustedes (los españoles en AyudaExcel) le tengo mas cariño

Hola Antoni Querras decir pasar de formulas a valores? o estoy entendiendo mal... "eliminar" entiendo que se borran Gracias por el aporte Saludos mi estimado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h Hola a todos! De verdad me agrada este tema, ya que ustedes demuestran tres cosas, que aqui hay verdaderos maestros, que el foro es de lo mejor y que son bien agradecidos:) Saludos desde Honduras

Gracias jackpvs por tu aporte Yo lo tengo desde hace un buen tiempo, es muy buena para los que inician con Excel (es muy bueno para principiantes) Saludos

Antoni muy buena.... pero sera que le tienes miedo a las formulas/matematicas ? jeje Saludos

Antoni o a lo mejor tu te animas a crear formulas!!!

Rolano, creeme que ese fue mi pensamiento, y estaba seguro que al final nos ibas aclarar todo (como siempre lo haces) Saludos

Hola Rolano Vaya!!! por fin entiendo como se programaba antes, en Excel... es para mi una gran satisfaccion conocer este proceso antiguo de programacion, hasta que aparecio el bendito VBA, mi estimado solo me resta agradecer tu aporte y gran disposicion en atender nuestro llamado Y bueno para los que no saben la ventana inmediato se abre desde el editor VBA....menu/ver/ventana inmediato o simplemente control G Antoni estoy de acuerdo con tu comentario, pero alguien como Rolano creo que es incapaz de hacerle daño a algun usuario y mucho menos causar molestias, ya que nos ha demostrado su gran conocimiento ayudando aqui en el foro, tal como lo has demostrado tu tambien, mi estimado, gracias nuevamente por guiarnos siempre:)Saludos

Claro mi estimado Antoni (aunque estaba esperando que nos comentaba Rolano), lo subo libre de contraseña... a ver si entre todos entendemos donde se encuentran la valiosa macro o como se aplica para estos casos que tienen que ver con la seguridad de un proyecto...Pd he usado un programa externo para desproteger el archivo, aunque comentarte que el foro hay mas de dos formas de desproteger archivos excel (pega una buscadita y sino visita la pagina de Carlos Muñiz "Carlos") Saludos Eliminar archivo excel al cerrarlo.zip

Hola Rolano Al menos yo no lo veo necesario eliminar este post, es mas iba a consultarte donde esta el bendito codigo jeje, pude desproteger la hoja1 y mirar las formulas que extraen el nombre del libro, que sirve para que "Kill" elimine el libro... talvez si nos puedes dar una orientacion porque parece que es algo avanzado, que a lo mejor nos servira a todos aprender A espera de tus comentario mi estimado Rolano Saludos

Hola Dramidon Que excelente video/tutorial... muy util, gracias Saludos

Fran que seas re-bienvenido al foro Saludos desde Honduras

Hola jomacaru Me agrada que te sirva y aun mas que avances en ese campo que mencionas... Saludos

De acuerdo con fornelasa... y sigan rallando el disco jeje, que muchos seremos los beneficiados Saludos

jajaja pero no engordes... mas.... y ademas es lo menos que debemos hacer, reconocer que tu le has dado mucha vida mas al foro, desde tu llegada al mismo, asi que sigue adelante, porque yo al menos siempre te sigo con tus codigos VBA Saludos

De acuerdo con sailepaty Antoni es que a algunos les gusta los cañonazos y a otros como tu el insecticida jejeje;), por cierto la macro quedaria como aporte Saludos a todos

Hola Antoni! Que gran aporte, la verdad me dejas sorprendido con tus macros Saludos amigo

jajaja German por esta vez nuestro amigo julibaga se ha reido de ti (y te ha jugado la vuelta con esas horas de espera jajaja) y sabes me gusta hasta el buen humor que se pasa en este foro... les dire que frecuento otros foros dedicados a Excel pero como este no hay dos (con todo respeto a los otros, pero no me refiero a la calidad de respuesta, me refiero a la calidad de armonia, que tanto nos ha costado conseguir y que por ningun motivo pienso descuidar y con la yuda de uno de los grandes como German y otros mas, debemos celar siempre) Saludos amigos Dramidon/Guanche