Jump to content
  • 33 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Prefijo Automatico


Gerson Pineda

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 comment
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 comment
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 comment
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 comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy