Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Completar Informacion.

23/07/2005 - 15:49 por JR | Informe spam
Ayuda Hacer una pregunta
Buen dia.
Tengo un problema (duda)

Tengo un formato que realice que reporta las entradas de las ventas de una
semana, el caso es que mas de algun usuario de ese formato me ha pedido que
automaticamente se actualice la informacion principalmente de la fecha es
decir en la celda C10 esta la fecha del inicio de la semana ejemplo
10/07/05, bueno que al momento de capturar esa fecha las celdas C12, C14,
etc hasta el fin de semana 16/07/05 se actualicen como si fueran
introducidas manualmente el caso es que se puede utilizar C10+1 y me da
la fecha siguente pero lo que yo necesito es que el valor de la celda sea
24/07/05 como si fuera capturado asi...
Espero se entienda mi solicitud gracias de antemano...
FJRB
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
23/07/2005 - 19:33 | Informe spam
Hola JR,

Prueba poner uno de los siguientes codigos en el modulo VBA de la hoja en
cuestion.

Saludos,
KL

'codigo1-
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C10]) Is Nothing Then Exit Sub
dia = Application.Weekday([C10], 2)
Application.ScreenUpdating = False
If IsDate([C10]) And dia < 5 Then
For i = 1 To 5 - dia
[C10].Offset(i * 2, 0) = [C10] + i
Next i
End If
Application.ScreenUpdating = True
End Sub

'codigo2-
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C10]) Is Nothing Then Exit Sub
dia = Application.Weekday([C10], 2)
Application.ScreenUpdating = False
If IsDate([C10]) And dia < 7 Then
For i = 1 To 7 - dia
[C10].Offset(i * 2, 0) = [C10] + i
Next i
End If
Application.ScreenUpdating = True
End Sub

Preguntas similares

 

Busqueda sugerida :