UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Obligar el llenado de celdas el 15/01/15, 12:21 am

maquinitaazul


Amigos de universoexcelforo, les saludo con gusto y les pido a todos de una manera muy atenta me puedan ayudar con una consulta en programación VBA. Este es el asunto:


Tengo una hoja en excel, un tipo de formato de llenado que va de la columna A hasta la G, dentro de este rango de columnas, pretendo obligar al usuario a llenar la A,B,D,E,G, es decir que excel me obligue a llenar estas celdas de manera ordenada, es decir primero la col A, luego la col B y así sucesivamente hasta llegar a la G, y las excepciones serían las col C y F.


Cuando el usuario llene todas las celdas respectivas me repita el proceso una fila mas abajo para que la entrada de información pueda ser infinita y el libro sólo se dedique a llenar los registros. Traté de aplicar esto, pero no logró conseguirlo, ya que utilice algo como esto:

Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Range("a20").End(xlUp) <> "" Then
Range("b20").End(xlUp).Select

If Range("b20").End(xlUp) <> "" Then
Range("d20").End(xlUp).Select

If Range("d20").End(xlUp) <> "" Then
Range("e20").End(xlUp).Select

End If
End If
End If
End Sub

Pero mi excel entra en proceso y jamás sale, se cierra y vuelvo a empezar, les adjunto el archivo, esperando que alguien me pueda ayudar. Gracias de antemano a todos. Saludos
Archivos
ejemp.zip
No tienes los permisos para descargar los archivos.
(13 KB)

2RESUELTO Re: Obligar el llenado de celdas el 15/01/15, 03:25 am

Igtelo


Hola Maquinita Azul

Te adjunto una propuesta, espero te sirva.
Archivos
Maquinita-ScrollArea.zip
No tienes los permisos para descargar los archivos.
(17 KB)

3RESUELTO Re: Obligar el llenado de celdas el 15/01/15, 04:55 am

maquinitaazul


Hola Igtelo, primero que nada gracias por responder y gracias por el adjunto.

Pero sigo en mi idea, la opción que das esta bien pero no es lo que necesito. 

Lo que ocupo es que si tengo datos en la ultima fila de la columna A excel me mande a la ultima fila de la columna B y me obligue a llenarla, cuando esta este llena me mande a la columna D y me obligue a llenarla y después me seleccione la ultima fila de la columna E y me obligue a llenarla, una vez llenas todas que regrese a la ultima fila vacía de la columna A para comenzar nuevamente el proceso.

Como dije anteriormente con el código que manejo hace esto pero mi excel entra en un proceso infinito y se cierra. No he podido resolverlo. Nuevamente gracias por tu atención y ayuda Igtelo. Saludos.

4RESUELTO Re: Obligar el llenado de celdas el 15/01/15, 02:27 pm

Igtelo


Que tal maquinitaazul.

Ahora si que no te entendí, si dices que te funciona el código; prueba con:

Private Sub Worksheet_Change(ByVal Target As Range)

Ojalá sea así.

5RESUELTO Re: Obligar el llenado de celdas el 17/01/15, 01:13 am

Igtelo


Hola maquinita.

Releyendo tu explicación, entiendo que solo se trata de "obligar" a que no permita avanzar sino se llenó la celda de la izquierda, si es así creo que con esto ya queda; dejo lo que subí anteriormente y cambié tu código.

Cambiando de tema: Te pido que para próximas ocasiones si alguien te contesta, respondas, esto es por cortesía y educación; te sirva o no la respuesta. Te lo comento porque no respondiste mi anterior respuesta.

Y si ya lo solucionaste también informa...
Archivos
Igtelo-Maquinita-Obligar-ScrollArea.zip
No tienes los permisos para descargar los archivos.
(21 KB)

6RESUELTO Re: Obligar el llenado de celdas el 19/01/15, 03:55 am

maquinitaazul


Gracias Igtelo, opté por esta opción:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
x = Range("A" & Rows.Count).End(xlUp).Row
v = Application.WorksheetFunction.CountA(Range("A" & x & ",B" & x & ",D" & x & ",E" & x & ",G" & x))
Select Case v
Case Is = 0
Exit Sub
Case Is = 1
Range("A" & x).Offset(, 1).Select
Case Is = 2
Range("A" & x).Offset(, 3).Select
Case Is = 3
Range("A" & x).Offset(, 4).Select
Case Is = 4
Range("A" & x).Offset(, 6).Select
Case Is = 5
Range("A" & x + 1).Offset(, 0).Select
End Select
End Sub

7RESUELTO Re: Obligar el llenado de celdas el 20/01/15, 11:16 pm

Igtelo


Que tal Maquinitaazul.

Gracias por compartir, te quedó muy bien.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.