Gerson Pineda

¡Por aquí andamos!

Hola @ROVER1965 Te adjunto dos tipos de soluciones, la primera es celda por celda con la funcion SUMAR.SI.CONJUNTO y la segunda es una sola formula de Excel 365. Ya nos comentaras. CONSULTA SOBRE FORMULAS EXCEL.xlsx

¡Hola! Después de un buen tiempo ausente... @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos. Extraer piezas - gramos 365_GP.xlsx

Pedro que excelente trabajo, pero hasta que disponga de 2010 lo experimentare completamente... pero el video no te deja mentir, con es de las manecillas Saludos master

nuganda Este foro no es para consultas (porfavor lee los apartados importantes, como anuncios, recomendaciones y nosrmas), crea un tema en el lugar correspondiente referenciando este tema Saludos

A cualquiera le pasa amigo Saludos

Hola Pedro, gracias por entenderlo jeje, en definitiva el codigo es completamente mejorable, siguiendo con tu idea, se puede crear un Combobox o Lista Desplegable, para escoger tal prefijo que deseamos utilizar en ese momento, es decir no ingresar a la macro a cambiarlo si no desde una hoja y que la macro busque el dato en la hoja o lo tome del combobox Saludos

Hola Rafael, gracias por tus palabras (pero yo tambien sigo aprendiendo:)) Hola verzulsan si te fijas en la macro, el dato debe ser numerico y diferente de vacio, siendo asi, si escribes 1 te escribira al inicio "AyudaExcel 1" como repito espero sea util y si no pues hice el intento jeje Saludos amigos!

Hola Si! podra ser algo contradictorio el titulo del tema, pero es algo asi:) Suponiendo que somos digitadores de algun inventario y que ciertos codigos/numeros (de materia prima o prendas terminadas o lo que sea...), comienzan con el mismo caracter o caracteres, pues bien elabore (se me ocurrio) esta pequeña macro de evento para que puedan probarla y pues hacer cambios a conveniencia y uso Se puede usar en todo el libro o una hoja en especifico Para todo un libro Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next 'If Target.Column = 3 Then If Not Intersect(Target, Range("A3:A12")) Is Nothing Then If VBA.IsNumeric(Target) And Target <> "" Then Target = "AyudaExcel" & Target End If End If 'End If End Sub[/PHP] Para una hoja en especifico [PHP]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next 'If Target.Column = 7 Then If Not Intersect(Target, Range("G3:G12")) Is Nothing Then If VBA.IsNumeric(Target) And Target <> "" Then Target = "AyudaExcel" & Target End If End If 'End If End Sub[/PHP] No he visto algo similar aqui en el foro, espero entiendan el objetivo, que les guste y sirva de algo Saludos desde Honduras Macro de evento.zip

Hola karlmay Pues es un placer tenerte aqui, y me agrada que de entrada declares que deseas ayudar... sin duda que encontraras siempre a quien darle una mano de ayuda Saludos a nuestro gran Welcoman del foro!!!

Saludos master Never... en verdad me agrada lo que mencionas, no porque estes un poco de mi lado, pero es que debemos ponernos siempre del lado de los que menos saben de este hermoso mundo llamado Excel, pero porfavor que no intenten (Microsoft) engañarnos con explicaciones ortodoxas, que lo unico que segun ellos, es de dar una mejor comprension, cuando no es asi, el usuario comun, jamas entendera ni se imaginara que EXTRAER se asemeja ahora MED Pedro muchisimas gracias por tus aclaraciones sobre esta funcion, aunque nos hallamos salido un poco del tema principal Saludos

Pedro disculpame, no habia entendido tu intencion del asunto! Y a lo referente sobre los renombres a algunas funciones, estoy totalmente en desacuerdo con estos cambios, es realmente incomprensible y no entiendo porque se tomo esa decision, como puedes cambiar algo tan utilizado y logico, es mas facil entender a que se refiere con EXTRAER que con MED??? no se si soy el indicado en criticar esto, pero la verdad por esas razones ni me asomo con esa version (que podra traer mas novedades/mejoras/funcionalidades pero no creo aceptar algunos cambios) Saludos y un abrazo Pedro

Pedro Supongo que apartir de 2010 se utiliza MED? y pues para los que aun no disponemos de esa version, podemos utilizar algo como esto: Sub separador() MsgBox "Separador de decimal del sistema: " & Application.International(xlDecimalSeparator) _ & Chr(10) & Chr(10) & "Separador de miles del sistema: " & Application.International(xlThousandsSeparator) End Sub[/PHP] Saludos

Pedro Que buen aporte, especialmente para aquellos que siguen esta area de monedas y como dice un amigo de por aqui, cuando sea grande quiero ser como tu jejeje Saludos mi estimado y como siempre con gran calidad y explicites, tus aportes

Rafael Muy bueno y util, pues de nuevo gracias! sigue asi, sigue asi jeje Saludos

Hola jackpvs Como dice German, estamos aqui para ayudarnos (maxime cuando seguimos las reglas del foro), llevo un buen tiempo aqui y juntos hemos resuelto casos dificiles, en los cuales no habia esperanza para ciertos usuarios, y que para mi agrado he participado en muchos de ellos, y claro seguimos aprendiendo cada dia mas Agradecemos tus palabras (escritos) en reconocer la ayuda que te brindamos aqui Saludos

Fleming Ya extrañabamos bastante tus aportes, y como siempre bien trabajados, muy util Gracias Saludos

Hola KOMPRESOR Solo dale click al boton "Mostrar barras..." y todo vuelve a la normalidad Saludos

Rafael Gracias por compartir tu archivo, con el foro Saludos