Foro de Ayuda Excel

josemaria · #1 10/11/08, 11:20:22

Hola;

en estos dos dias voy a ver si finalizo las planillas del mes y se comienza con las del mes que viene, pero tengo dos dudillas para poder poner en marcha el mes que viene.

Tengo la siguiente macro, creada por efmc, del cual estoy en deuda con el .

Cita:

Option Explicit

Sub BloquearCeldas(wshHoja As Worksheet)
Dim rngDatos As Range
Dim intÍnd As Integer
Dim strContraseña As String
Dim intDía As Integer
Dim rngAr As Range
Dim intHoy As Integer
Dim intNoM As Integer
Dim lngFec As Long

'Nombre de las hojas a las cuales hay que aplicar el bloqueo (separadas por comas)
Set rngDatos = Union(Range("datosActOrdinaria1"), Range("datosActOrdinaria2"), _
Range("datosGuardia1"), Range("datosGuardia2"), Range("datosActComplem"))

'Contraseña para bloquear/desbloquear la hoja
strContraseña = ""

wshHoja.Unprotect strContraseña
With rngDatos
.Cells.Locked = True
intDía = .Cells(1, 3).Offset(-1, 0)
intHoy = IIf(Day(Now) < intDía, Day(Now) + 31, Day(Now)) - intDía + 3
lngFec = DateSerial(Year(Now), Month(Now) + 1, 1) - 1
intNoM = IIf(Day(lngFec) < intDía, Day(lngFec) + 31, Day(lngFec)) - intDía + 4
For Each rngAr In rngDatos.Areas
With rngAr
Range(.Cells(1, 1), .Cells(.Rows.Count, 2)).Locked = False
Range(.Cells(1, intHoy), .Cells(.Rows.Count, .Columns.Count)).Locked = False
If 31 - intDía + 3 >= intNoM Then _
Range(.Cells(1, intNoM), .Cells(.Rows.Count, 31 - intDía + 3)).Locked = True
End With
Next
End With
With wshHoja
.Protect strContraseña
.EnableSelection = xlUnlockedCells
End With

End Sub

lo que la macro hace es que no se puedan hacer modificaciones en unas casillas determinadas en dias pasados.
Por ejemplo, si estamos a 10, lo que se hizo ayer 9, no se puede modificar.
El caso es que algunos facultativos no es que esten muy de acuerdo, y el de arriba me ha dicho que hay que darle algunos dias de margen y que ponga unos 5 es decir, que si estamos a 10 el dia 4 no se pueda modificar. e intentado meter un menos 5 por alguna linea, pero unas veces no compilaba y otras no ocurria nada, el caso es que no se donde va , o si es mas complicado que poner un 5.

y una segunda cosa es lo que ioyama me explicó un día pero no se si en algun paso me equivoco.

Copiar unas celdas y pasarlas a una imagen, y si yo en las celdas que e copiado hago modificaciones en la imagen tambien se modifique.

Tengo un ejemplo, pero no se los pasos a seguir para hacerlo yo,

creo que seria de la siguiente forma:

selecciono el rango de celdas: Control + c y manteniendo pulsada la tecla mayusculas , Edicion-> pegar imagen.

no se si me falta algo mas, pero haciendo eso solo , no se modifica la imagen, cuando modifico las celdas, se queda estatica. Ioyama, tuyo tengo un ejemplo en el que si se va modificando la imagen conforme se modifica una celda.

que es lo que me falta por hacer, o hago algo incorrecto.

Gracias.

neverdelimon1 · #2 10/11/08, 19:17:39

Hola Josemaria

para pegar la imagen con vinculo:

selecciono el rango de celdas: Control + c y manteniendo pulsada la tecla mayusculas , Edicion-> pegar vinculos de imagen.

Saludos

josemaria · #3 11/11/08, 10:59:41

Cita:

Empezado por neverdelimon1

Hola Josemaria

para pegar la imagen con vinculo:

selecciono el rango de celdas: Control + c y manteniendo pulsada la tecla mayusculas , Edicion-> pegar vinculos de imagen.

Saludos

pues si, y mira que lo estuve haciendo ayer y no hay manera y hoy si sale, cosas de la informatica. Gracias

josemaria · #4 11/11/08, 15:11:19

ioyama sabrias que tengo que "toquetear", en la macro, para que en vez de que se quede bloqueado inmediatamente el dia anterior a la fecha, se quede 5 dias atras, es decir si estamos a 11, no se puedan modificar las celdas del dia 5 hacia atras, las del 6 hasta el 10 si.

efmc · #5 11/11/08, 15:46:31

Hola josemaria.

Bastaría con sustituir en todo el código Now por Now-5.

Un saludo.

josemaria · #6 11/11/08, 15:47:28

ok, mil gracias tio, y mira que probaba cosas y nada. sabia que algo asi tenia que ser .

Gracias

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado