Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Obligar a completar una celda si otra contiene datos

985 views
Skip to first unread message

tanuko

unread,
Jul 27, 2011, 7:57:06 AM7/27/11
to
� Hola !
Necesito una rutina que impida que guanden el documento si los datos
ingresados
estan incompletos. Es decir si han puesto datos en una celda que un mensaje
solicite que completen la fila ingresando otros datos en la ultima o no se
podra
guardar.
Esto debe repetirse en todas las filas del rango.
Mil gracias de antemano.
Salu2!

guillerm...@gmail.com

unread,
Jul 5, 2012, 10:30:46 AM7/5/12
to
Tuviste respuesta a esto? Busco lo mismo. Gracias

Juanca de Tucma

unread,
Jul 5, 2012, 12:26:48 PM7/5/12
to
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
Hola Tanuco

si a partir de la Celda A1 tengo la siguiente tabla:

nombre cantidad
jose 2
mario
rosa 5
jose
mario 9

esta macro puede ser la solucion

Sub Cerrar_Si()
Dim Contador As Integer

Contador = 0
Range("A1").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) = "" Then
Contador = Contador + 1
End If
ActiveCell.Offset(1, 0).Activate
Loop
If Contador > 0 Then
MsgBox "hay " & Contador & " registros para completar antes de cerrar el archivo"
Exit Sub
Else
ActiveWorkbook.Close savechanges:=True
End If

End Sub

Juanca de Tucma

unread,
Jul 5, 2012, 12:20:38 PM7/5/12
to
El miércoles, 27 de julio de 2011 08:57:06 UTC-3, tanuko escribió:
Hola Tanuco

tal vez te sirva esta macro:
0 new messages