Gerson Pineda

Y despues de la gran bienvenida de petercien1 no me queda mas que mencionarte que en este foro aprenderas mucho mas y te haras mas amigo que enemigo de Excel Saludos mi estimado petercien1

Hola petercien y esta demas que me solicites el permiso jeje, me alegra verte de nuevo por aqui, no te pierdas por tanto tiempo porfavor que tu eres de los primeros que mire por aqui cuando me ingrese al foro Saludos y que estes bien tu y los tuyos igualmente

Me alegra que sea de utilidad para ti mi estimado! Saludos

Hola a todos Si mal no recuerdo, aqui en el foro hay varios aportes/respuestas con el tema de extraer unicos, pero con la nota que son formulas matriciales, pues bien a esta formula solo le hice una pequeña modificacion para que sea formula NO matricial y sin columna auxiliar Espero sea de mucha utilidad, especialmente a los formulianos (y tengan cuidado con el terrible llamado Macroniano "Macro Antonio" antes Antoni;)) Saludos desde Honduras Extraer unicos NO matricial.zip

jaja Antoni es que use tu archivo para las pruebas Saludos a los dos y que esten bien

Hola tube Mucho mas corto y muy bueno, gracias Saludos

Hola Luis Tienes razon ahora si me funciona, gracias mi estimado Saludos

Mi estimado fornelasa tu (y como la gran mayoria) si entiendes el enfoque de este foro. ah! y gracias por tus aportesSaludos

Gracias Antoni, lo active pero no me funciona, ahora no se a que se debe! Saludos

Hola Rolano Que excelente y buenisimo esta tu aporte Tengo una duda que complemento o libreria debo activar para que me funcionen las funciones nativas de VBA?, es decir por ejemplo Right me daba error, y lo solucione con VBA.Right, pero que hago para usarlas sin declararlas Saludos

Hola En primer lugar "Gracias" julibaga por darle importancia a este tema, que para mi es lo mas correcto, ya que queda como historial y aclaracion a todos nosotros Particularmente no exijo que me den las gracias pero si exijo que se cumplan las normas, porque? pues porque para eso fueron creadas para cumplirlas, toda casa tiene normas y esta llamada AyudaExcel no es la excepcion Las normas no fueron creadas solo para los que tiene un gran conocimiento sobre la navegacion de foros y de Excel, sino para los que menos tienen, este foro es dinamico porque hay usuarios dinamicos y esa linea no se debe perder, lamento que algunos no entiendan o comprendan porque este foro es de los mejores, maxime si forman parte del mismo Y para finalizar: los que rehúyen a normas (en cualquier ambito) rehúyen a la disciplina, y los que rehúyen a una disciplina rehúyen al aprendizaje Estimados amigos/usuarios/miembros/todos cumplamos las normas y seguiremos siendo dinamicos y activos como hasta hoy Saludos a todos

Antoni El enfoque de mi comentario no es sobre el aprendizaje es sobre el modo estricto de aportar Esto es relativo, no siempre lo que es facil para algunos sera igual para otros... Saludos

Antoni Que excelente esta el codigo, muy bueno y puede servir para aplicaciones completas (y poder restringir un area), pero algunos aportes de tu parte carecen de archivo adjunto y segun mi criterio pierden interes y atencion, y pasando al codigo yo lo prefiero en un modulo estandar ya con el evento no puedes hacer nada una vez el area queda restringida Espero no lo tomes a mal si no como una reflexion (recuerda hay usuarios que si entenderan tus codigos y otros que no, para estos ultimos es que es interesante ver el archivo y su funcionamiento) Saludos mi estimado amigo

Wao! Luis sencillamente excelente, y pues darte las gracias por este aporte y por los que vendran Tambien ya sabes si en algo te puedo servir solo avisame ok Saludos

Hola Tac Seas rebienvenido al foro y sigue tambien las recomendaciones de mi amigo German Y ojala en un futuro ayudes mucho... Saludos

Muy bueno German! gracias amigo Saludos Fleming/Antoni

Hola Fleming, pues a quedado en manos de Luis, esperemos que se haga realidad pronto! y con tu permiso, paso tu tema a Ideas y Aportes Saludos German

Sencillamente estupendo logroastur, gracias por compartir tan gran aplicacion Saludos

Muy bueno Fleming, de nuevo gracias por tus aportes Hey German! y el seudonimo de Victor cual seria? "Niño tutorial" o "Niño aporte" jeje no se tu diras Saludos a los dos y que esten bien

jajaja German no me ofende y ya note que te gustan los seudonimos Muy bueno este dicho, me lo guardo para mi blog, claro si me das tu permiso? Saludos

Pues que seas bienvenid@ al foro {German esta vez me adelante jeje} Saludos

Hola German! Que agradable (para mi) como siempre leer tus intervenciones/ayudas/aportes/sugerencias (y ha sido una casualidad ver este post) en el foro, eres sutil y muy cordial, de verdad que le das mucha vida a este sitio, y no me queda mas que felicitarte por los 1,000 mensajes!, en hora buena mi amigo Saludos y que sigas asi...

Hola master Rolano, esta muy bueno el video, gracias! Saludos

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