¿Qué formula debo usar para colocar en una celda un dato y que se complete otra con otro?
Hola no se que fórmula usar lo que quiero hacer es colocar en una celda por ejemplo
A1 "A" y que automáticamente las otras cedas se completen ej
a1 "a"
B1 "B"
C1 "C"
D1 "D"
Y que si yo coloco en A1 "B" se complete y empize de nuevo más o menos así
A1 "b"
B1 "c"
C1 "d"
D1 "a"
Otro seria
A1 "c"
B1 "d"
C1 "a"
D1 "b"
Espero que me puedan ayudar y entiendan lo que quiero hacer muchas gracias
A1 "A" y que automáticamente las otras cedas se completen ej
a1 "a"
B1 "B"
C1 "C"
D1 "D"
Y que si yo coloco en A1 "B" se complete y empize de nuevo más o menos así
A1 "b"
B1 "c"
C1 "d"
D1 "a"
Otro seria
A1 "c"
B1 "d"
C1 "a"
D1 "b"
Espero que me puedan ayudar y entiendan lo que quiero hacer muchas gracias
1 respuesta
Respuesta de Elsa Matilde
1
Desde menú Herramientas, Opciones, Listas personalizadas, optá por:
NUEVA LISTA, y en el campo siguiente ingresá las letras presionando Enter luego de cada una.
Aceptá. Ahora podes ingresar cualquier letra en A1 y arrastrar como cuando rellenás cualquier serie.
PD) Todos los trucos y soluciones en este manual
NUEVA LISTA, y en el campo siguiente ingresá las letras presionando Enter luego de cada una.
Aceptá. Ahora podes ingresar cualquier letra en A1 y arrastrar como cuando rellenás cualquier serie.
PD) Todos los trucos y soluciones en este manual
Muy buena la respuesta funciona perfecto ahora como puedo hacer para que se rellenen de esa forma pero sin arrrastrar solo colocando en dato en la primer celda
Ahora entrá al Editor (con Alt y F11), seleccioná con doble clic, del panel a tu izquierda, la HOJA que corresponda y copiá esto:
Private Sub Worksheet_Change(ByVal Target As Range)
'controla lo que se ingresa en A1
If Target.Address = "$A$1" Then
'se controla si son algunas de las 4 letras may o minusc
If UCase(Target.Value) = "A" Or UCase(Target) = "B" Or UCase(Target) = "C" Or UCase(Target) = "D" Then
Target.Select
Selection.AutoFill Destination:=Range("A1:D1"), Type:=xlFillDefault
'opcional: posicionarse en A1
Target.Select
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'controla lo que se ingresa en A1
If Target.Address = "$A$1" Then
'se controla si son algunas de las 4 letras may o minusc
If UCase(Target.Value) = "A" Or UCase(Target) = "B" Or UCase(Target) = "C" Or UCase(Target) = "D" Then
Target.Select
Selection.AutoFill Destination:=Range("A1:D1"), Type:=xlFillDefault
'opcional: posicionarse en A1
Target.Select
End If
End If
End Sub
