Jump to content

Recommended Posts

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

Link to post
Share on other sites

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!

Link to post
Share on other sites

Se me ocurre Gerson que puede servir para no tener que escribir los prefijos para las llamadas internacionales.

Target = "+34 976 " & Target[/CODE]

y así poder tener una base de datos con los números telefónicos de mis amigos de Zaragoza.

Link to post
Share on other sites

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

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Nunca debes utilizar los textbox, la función Val(), ni la función Format() en los cálculos, utiliza las variables y las funciones de conversión del tipo adecuado. He añadido un pequeño calendario.   PRUEBA1.xlsm
    • Hola @Greysi! Pude armar este listado en base a la información contenida en esta página. El Listado parece bastante completo (47.940 ciudades), al margen de ciertas excepciones (como Argentina que solo tiene 38 ciudades jajajaja) y contiene muchos nombres en inglés. Espero te sirva! Abrazo! Paises-Estados-Ciudades.xlsx
    • el inconveniente es , que deseo ingresar los datos en los textbox con separador de miles y que me ejecute los cálculos correspondientes 
    • gracias por la atención prestada. ingreso un valor en un textboxt (credito), y en otro le coloco los dias en que se va a demorar en devolverlo calculando asi +PRUEBA1.xlsm un interes de el 10% 
    • Saludos BigPetroman, te comento, el archivo que bajaste no tiene la modificacion, ya que cuando lo subi no tenia idea de como hacerlo. Despues de subir el archivo, busque informacion sobre el siguiente comentario que realizaste. Y logre hacer que funcionara, asi que puse el codigo de lo que habia hecho para que me dieran su opinion. Aunque el codigo realiza la validacion, no funciona del todo como yo queria. Ya que lo logico seria que al capturar el serial, haga la validacion y muestre un mensaje indicando que el serial ya esta auditado. Pero, la validacion, o aviso de serial ya auditado, lo muestra despues de apretar el boton "Anotar Entrada" De todos modos, anexo el archivo para que veas lo que logre. Los seriales los tomo de la Hoja "Laptop", asi que si el serial esta en esa hoja, no deja ingresar el valor en la Hoja "Reg. N_Auditados". Es decir, hace bien el trabajo... Agradecido de antemano, y pido disculpas si mi comentario genero confusion. Equipos No Auditados.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy