Prefijo Automatico

[Gerson Pineda]

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

[RAFAEL DE LA TORRE]

Todas tus ideas y aportes son siempre interesantes para los que estamos aprendiendo. como es mi caso

Gracias

[verzulsan]

Hola Gerson,

No he entendido demasiado bien el proposito de la funcion. He descargado el archivo pero no hace nada en la zona verde al escribir o modificar.

Un saludo

[Gerson Pineda]

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!

[pegones1]

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.

[verzulsan]

Ahhh ahora si Gerson jeje, soy tan cazurro que solo he metido texto. Gracias por la explicacion.

Un saludo!

[Gerson Pineda]

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

[Gerson Pineda]

Ahhh ahora si Gerson jeje, soy tan cazurro que solo he metido texto. Gracias por la explicacion.

Un saludo!

A cualquiera le pasa amigo

Saludos