Columna Ancho / Siguiente Linea

hola, LISANDRO !

... forma de configurar un ancho de una columna Ej: C1 ancho 18.5 = 176 pixeles
... y al momento de escribir al llegar al ancho establecido se pase a la siguiente celda llamese C2?
Necesito sea de esta manera y no por: Formato/Celda/Alineacion/Ajustar Texto [...]

[como yo 'lo veo'...] 'me brincan' algunas eventualidades que pongo a tu consideracion...
1° 'al momento de escribir'... -> la aplicacion 'entra' en el 'modo de edicion' <- [el usuario 'tiene el control'] y...
- las macros 'no se pueden' ejecutar :(
- los eventos no se 'disparan' [entran tambien en un estado de 'suspension'] ->incluso el recalculo se 'suspende'<-
2° 'determinar cuantos' caracteres 'caben' en la celda [independientemente del ancho en puntos, pulgadas, pixeles...]
- 'depende' del tipo de letra 'en uso' [tamaño y si es de ancho 'proporcional' o de 'ancho fijo']
[lo anterior -todavia- SIN considerar las -posibles- 'implicaciones' de la impresora... resolucion, etc.]
- [ademas] y... ¿si 'luego de...' [haberla 'ajustado']... le cambian el tipo/tamaño de letra???

[creo que] el punto 'mas importante' es el modo de edicion [mientras el usuario NO le 'devuelve' el control a excel...] :(
[quizas] si proporcionaras [un poco de] mas informacion/objetivos/etc. [?]

saludos,
hector.

Buen dia Amigo Hector.
En una de sus celdas se llena manualmente; necesito que
al momento de llegar al ancho configurado se pase a la
siguiente linea u celda ej: de E17 a E18 existen
posibilidades??
MAS EXPLISITO AUN:
E17=[MOTOR RELIANCE 5HP CORRESPON] Ancho 34.9 Fuente Time
new roman cantidad de caracteres con espacio 28,luego
saltar a la siguiente celda, Tamaño de la fuente 10.
E18 =[DIENTE AL LAMINADOR PRIMARIO]
==>Espero me puedas ayudar..y espero haberme explicado..
Saludos cordiales.

hola, LISANDRO !

... forma de configurar un ancho de una columna Ej: C1

ancho 18.5 = 176 pixeles

... y al momento de escribir al llegar al ancho

establecido se pase a la siguiente celda llamese C2?

Necesito sea de esta manera y no por:

Formato/Celda/Alineacion/Ajustar Texto [...]

[como yo 'lo veo'...] 'me brincan' algunas

eventualidades que pongo a tu consideracion...

1° 'al momento de escribir'... -> la aplicacion 'entra'

en el 'modo de edicion' <- [el usuario 'tiene el
control'] y...

- las macros 'no se pueden' ejecutar :(
- los eventos no se 'disparan' [entran tambien en un

estado de 'suspension'] ->incluso el recalculo
se 'suspende'<-

2° 'determinar cuantos' caracteres 'caben' en la celda

[independientemente del ancho en puntos, pulgadas,
pixeles...]

- 'depende' del tipo de letra 'en uso' [tamaño y si

es de ancho 'proporcional' o de 'ancho fijo']

[lo anterior -todavia- SIN considerar las -

posibles- 'implicaciones' de la impresora... resolucion,
etc.]

- [ademas] y... ¿si 'luego de...'

[haberla 'ajustado']... le cambian el tipo/tamaño de
letra???

[creo que] el punto 'mas importante' es el modo de

edicion [mientras el usuario NO le 'devuelve' el control
a excel...] :(

[quizas] si proporcionaras [un poco de] mas

informacion/objetivos/etc. [?]

saludos,
hector.

.

hola, LISANDRO !

[columna] ancho 34.9 ... Fuente Time new roman... tamaño de la fuente 10 ... caracteres con espacio 28...
... se llena manualmente ... que al momento de llegar al ancho configurado se pase a la siguiente ...
ej ... E17=[MOTOR RELIANCE 5HP CORRESPON]
... E18=[DIENTE AL LAMINADOR PRIMARIO]

[como te comentaba...]
- se puede 'detectar' lo que ha 'depositado' el usuario ->solo<- cuando 'lo devuelve' el control a excel.
- times new roman es una fuente de 'ancho proporcional' ['caben' mas 'ies' que 'Oes' y minusc que MAYUSC]
-> NO te 'aseguro' que con 28 caracteres 'se cumpla' con el ancho [de la columna]... ->siempre-< :(
- el siguiente codigo 'va cortando' cada 28 caracteres y desplazando los 'excedentes' a la fila siguiente ;)

si cualquier duda, cambio o informacion adicional... ¿comentas?
saludos,
hector.
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$17" Or IsEmpty(Target) Then Exit Sub
Dim Sig As Integer
Do While Len(Target.Offset(Sig)) > 28
Target.Offset(Sig + 1) = Mid(Target.Offset(Sig), 29)
Target.Offset(Sig) = Left(Target.Offset(Sig), 28)
Sig = Sig + 1
Loop
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
=> si quieres que 'se aplique' a cualquier celda de la columna 'E' [columna #5]...
cambia la sentencia 'If' por lo siguiente...
If Target.Column <> 5 _
Or Target.Count > 1 _
Or IsEmpty(Target) Then Exit Sub

ESTIMADO ME QUITO EL SOMBRERO FUNCIONO PERFECTAMENTE
GRACIAS POR TU VALIOSO TIEMPO...SUERTE...

hola, LISANDRO !

[columna] ancho 34.9 ... Fuente Time new roman...

tamaño de la fuente 10 ... caracteres con espacio 28...

... se llena manualmente ... que al momento de llegar

al ancho configurado se pase a la siguiente ...

ej ... E17=[MOTOR RELIANCE 5HP CORRESPON]
... E18=[DIENTE AL LAMINADOR PRIMARIO]

[como te comentaba...]
- se puede 'detectar' lo que ha 'depositado' el usuario -
solo<- cuando 'lo devuelve' el control a excel.
- times new roman es una fuente de 'ancho proporcional'

['caben' mas 'ies' que 'Oes' y minusc que MAYUSC]

-> NO te 'aseguro' que con 28 caracteres 'se cumpla'

con el ancho [de la columna]... ->siempre-< :(

- el siguiente codigo 'va cortando' cada 28 caracteres y

desplazando los 'excedentes' a la fila siguiente ;)

si cualquier duda, cambio o informacion adicional...

¿comentas?

saludos,
hector.
en el modulo de codigo de 'la hoja' ==>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$17" Or IsEmpty(Target) Then

Exit Sub

Dim Sig As Integer
Do While Len(Target.Offset(Sig)) > 28
Target.Offset(Sig + 1) = Mid(Target.Offset(Sig), 29)
Target.Offset(Sig) = Left(Target.Offset(Sig), 28)
Sig = Sig + 1
Loop
End Sub
šššššššššššš
=> si quieres que 'se aplique' a cualquier celda de la

columna 'E' [columna #5]...

cambia la sentencia 'If' por lo siguiente...
If Target.Column <> 5 _
Or Target.Count > 1 _
Or IsEmpty(Target) Then Exit Sub

.