04 Consultas

06/04/2005 - 23:43 por Daniel Padilla Cañamero | Informe spam

Calculo de fechas

Buenas a todos si me pueden ayudar con la sgte. consulta :

Deseo hacer los descuentos del personal segun su tiempo de tardanza, por
cada minuto se le descuenta S/.0.50 centimos de nuevo sol (moneda de Perú)
pero al hacer la formula q es esta me sale asi :

G10 B12 A descontar
0:30:00 S/.0.50 S/0.01 => este es el resultado q sale el cual no
deberia ser
G10*$B$12 => esta es la formula q puse

en G10 es el resultado del tiempo de tardanza que jalo de otra hoja,
dicha celda tiene el formato de celda de este modo :

Categoria, personalizada, [h]:mm:ss
Categoria, hora, *01:30:55p.m

Me podrian ayudar para corregir el error para q salga el dato exacto

- Macro q resalta fila

Tengo la sgte. macro q resalta la una fila :

Private Sub Worksheet_Calculate()
Resaltarfila
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resaltarfila
End Sub

Private Sub Resaltarfila()
Dim R As Long
Dim C As Long
Dim X As String
R = ActiveCell.Row
C = ActiveCell.Column

If R < 14 Or R > 51 Or C > 12 Then
Range("c14:l51").Interior.ColorIndex = 2
Exit Sub

Else

Range("c14:l51").Interior.ColorIndex = 2
Range("c" & R & ":l" & R).Interior.ColorIndex = 19
End If
End Sub

Funciona bien cuando no esta la hoja protegida, cuando la pongo clave a la
hoja
me sale error podrian ayudar q es lo q se me esta pasando por alto
Otro problema es q no me permite copiar de una celda a otra cuando esta en
el rango
de fila resaltada
Este codigo esta en la hoja del libro

- Hacer archivo de ayuda para excel

En VBAProject - Propiedades del proyecto hay una apartado q dice
Nombre del archivo de Ayuda, me gustaria hacer uno para mi libro de excel
como podria hacerlo?

- Boton q mande a determinada celda en una hoja

Asi como se puede crear botones para mandar a una determinada hoja como
puedo hacer
para q me mande a una celda por ejemplo az2000, ya q necesito crear varios
botones
para ir a diferentes celdas y en hoja 1 tengo la relacion de 20 personas, en
otra hoja
cada nombre de las personas estan en distintas celdas como se haria para q
cuando de click con un boton
en el nombre de la persona (Hoja1) me mande a la otra hoja y a su respectiva
celda de cada persona

Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú

Siga el debate

9 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 KL

07/04/2005 - 01:27 | Informe spam

cada nombre de las personas estan en distintas celdas como se haria para q
cuando de click con un boton
en el nombre de la persona (Hoja1) me mande a la otra hoja y a su
respectiva
celda de cada persona

Podrias probar el siguiente codigo colocado en el modulo VBA de la Hoja1.
Cambia el rango A1:A20 por el que realmente contiene los nombres de personas
en tu Hoja1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Me.Range("A1:A20")) Is Nothing Then Exit Sub
With Worksheets("Hoja2")
.Activate
.Range(Target.Address).Activate
End With
End Sub

Responder a este mensaje

#7 Héctor Miguel

07/04/2005 - 01:52 | Informe spam

hola, chicos !

Daniel Padilla escribio en el mensaje ...
... funciono bien pero... no permite copiar nada dentro del rango :[ de celdas resaltadas

KL escribio en el mensaje ...
... usando el parametro UserInterfaceOnly=True... si que puedes copiar y pegar cualquier cosa [...]

[hasta donde se]... el 'impedimento' para copiar [y probablemente en cualquier otra parte de la hoja]...
-> se debe al uso 'indiscriminado' de eventos [calculate y selectionchange] que se 'disparan' constantemente
... llamando a codigos que modifican las propiedades [colorindex] de los objetos 'range'
... acciones que efectuadas por codigo... 'vacian' la pila [o los niveles] del 'deshacer'... 'undo'... ctrl+z
... lo cual [tambien y 'de pasadita'] ->cancela<- un 'evento pendiente' de 'cut/copy/paste' :(
-> si los colores que estas asignando al fondo de las celdas en el rango 'C14:L51' son blanco/amarillo...
[asumiendo que el blanco es 'por omision' y... NO 'necesario']... prueba con los siguientes 'procedimientos':
1.- selecciona el rango [C14:L51] y aplica un formato condicional utilizando lo siguiente...
->por formula<- =y(fila()=celda("fila"),celda("columna")>2,celda("columna")<13)
->formato<- selecciona la trama amarillo 'tenue' [o la del colorindex 19]
2.- coloca UNICAMENTE la siguiente instruccion en el modulo de codigo de 'esa' hoja...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
3.- ahora si que podras copiar mientras te mueves por el rango 'colorido' ;)

saludos,
hector.
p.d. no olvides que 'mi' separador de argumentos es la coma ',' NO el punto y coma ;' [por la formula 'condional'] :))

Responder a este mensaje

#8 Héctor Miguel

07/04/2005 - 06:30 | Informe spam

hola, chicos !

KL escribio en el mensaje ...
... el siguiente codigo... en el modulo... de la Hoja1 [...]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Me.Range("A1:A20")) Is Nothing Then Exit Sub
With Worksheets("Hoja2")
.Activate
.Range(Target.Address).Activate
End With
End Sub

con una ligera adaptacion, podrias 'irte' hasta la celda que contiene el nombre 'seleccionado' ;)
[tampoco se contempla alguna prevencion/correccion de -posibles- errores] :(
[y se asume que todos los rangos para 'ir a...' estan en la hoja2]
modificando el bloque 'with' inicial a... == With Worksheets("Hoja2")
.Activate
With .Cells
.Find(Target).Activate
End With
End With
==ademas, en caso de existir nombres iguales pero 'invertidos'... se selecciona el primero 'encontrado'

otra alternariva [de entre 'otras posibles'] pudiera ser utilizar hipervinculos
-> ver la consulta del dia 5 iniciada por: Luis Caro, con asunto de: 'abrir hoja dependiendo de condicion'

saludos,
hector.

Responder a este mensaje

#9 KL

07/04/2005 - 11:05 | Informe spam

Es verdad, no habia caido en ello - habia interpretado que las celdas
quedaban protegidas para la edicion.

Un saludo,
KL

"Héctor Miguel" wrote in message
news:

hola, chicos !

Daniel Padilla escribio en el mensaje ...
... funciono bien pero... no permite copiar nada dentro del rango :[ de
celdas resaltadas

KL escribio en el mensaje ...
... usando el parametro UserInterfaceOnly=True... si que puedes copiar y
pegar cualquier cosa [...]

[hasta donde se]... el 'impedimento' para copiar [y probablemente en
cualquier otra parte de la hoja]...
-> se debe al uso 'indiscriminado' de eventos [calculate y
selectionchange] que se 'disparan' constantemente
... llamando a codigos que modifican las propiedades [colorindex] de
los objetos 'range'
... acciones que efectuadas por codigo... 'vacian' la pila [o los
niveles] del 'deshacer'... 'undo'... ctrl+z
... lo cual [tambien y 'de pasadita'] ->cancela<- un 'evento pendiente'
de 'cut/copy/paste' :(
-> si los colores que estas asignando al fondo de las celdas en el rango
'C14:L51' son blanco/amarillo...
[asumiendo que el blanco es 'por omision' y... NO 'necesario']...
prueba con los siguientes 'procedimientos':
1.- selecciona el rango [C14:L51] y aplica un formato condicional
utilizando lo siguiente...
->por formula<-
=y(fila()=celda("fila"),celda("columna")>2,celda("columna")<13)
->formato<- selecciona la trama amarillo 'tenue' [o la del colorindex
19]
2.- coloca UNICAMENTE la siguiente instruccion en el modulo de codigo de
'esa' hoja...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
3.- ahora si que podras copiar mientras te mueves por el rango 'colorido'
;)

saludos,
hector.
p.d. no olvides que 'mi' separador de argumentos es la coma ',' NO el
punto y coma ;' [por la formula 'condional'] :))

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida