Numero de celda automático en excel

Tengo un rango de números de 4 cifras que van desde la celda "A1:AF40" y lo que necesito es un código que coloque ese numero dividido en 4 celdas en este rango "BA1:BD1" automáticamente al seleccionar la celda activa ¡¿Es posible?

2 Respuestas

Respuesta
2

[Hola

Si mal no te entendí, usa el evento "SelectionChange" de la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = Empty Then Exit Sub
If Not Intersect(Target, Range("A1:AF40")) Is Nothing Then
    With Target
        Range("BA1") = Left(.Text, 1)
        Range("BB1") = Mid(.Text, 2, 1)
        Range("BC1") = Mid(.Text, 3, 1)
        Range("BD1") = Right(.Text, 1)
    End With
End If
End Sub

Comentas

Abraham Valencia

Worksheet_SelectionChange

o selectionchange y como lo puedo cambiar en la hoja

No te entiendo estimado. Trata de explicar mejor que has querido decir.

Abraham Valencia

los datos los tengo como nombre de hoja"avanzada"

Gracias master ya lo entendí

Aja, excelente, de nada. Saludos]

Abraham Valencia

Respuesta
1

Esto te puede aportar algo más

https://www.youtube.com/watch?v=Jw8fmqTyUDk

https://youtu.be/yFNlSsYZZF0

https://youtu.be/_XvTiwgPHzo

https://youtu.be/M3C5AyDMLOY

https://youtu.be/pVtO73WS4OQ 

Visita https://programarexcel.com descarga cientos de ejemplos gratis

Suscribe https://youtube.com/programarexcel tutoriales y ejemplos sobre macros de Excel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas