Completar Informacion.

23/07/2005 - 15:49 por JR | Informe spam

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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 JR

02/08/2005 - 19:41 | Informe spam

Gracias me funciona muy bien, le hice unas adecuaciones y me quedo de
maravilla.
Gracias.
FJRB

"KL" escribió en el mensaje
news:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida