juandi

Hola como va.

Mi pregunata es la siguiente: tengo en mio maquina que esta en red una planilla que que muy consultado por otras maquinas , pero el problema es que yo voy haciendo cambios seguidos, y si en las otras maquinas dicha planilla esta abierta no pueden ver estos cambios, claro la unica forma es cerrando y volviendola a abrir, lo que queiro es que no haga falta cerrar y abrir para poder ver lo cambios que yo hago de mi maquina.

espero ser claro

saludos

Juandi

Cordoba Argentina

Re: se abre solo el libro??

Rolana, estimado, me alegra verte!!

Juandi,

por favor sigue con detenimiento estos pasos:

1. En el módulo1 cambia la variable pública stopit por esta: Public Cuando As Date (ingrésala al inicio del módulo);

2. Cambia la subrutina ClockParaSumarcolor así:

Sub ClockParaSumarcolor()

    'Beep

    [A1].Calculate

     PESOS

     Cuando = Now + TimeSerial(0, 0, 6)

    Application.OnTime earliesttime:=Cuando, procedure:="ClockParaSumarcolor"

End Sub[/CODE]

3. Ingresa esta otra macro en el mismo módulo:

[CODE]Sub detener()
On Error Resume Next
Application.OnTime earliesttime:=Cuando, procedure:="ClockParaSumarcolor", schedule:=False
End Sub[/CODE]

4. En ThisWorkbook, usa las siguientes macro de evento:

[CODE]Private Sub Workbook_BeforeClose(Cancel As Boolean)
detener
End Sub
Private Sub Workbook_Deactivate()
detener
End Sub
Private Sub Workbook_Open()
ClockParaSumarcolor
End Sub[/CODE]

... cuando usas schedule:=false para desactivar ontime, debes indicar el mismo tiempo para el cual está programada la rutina, por eso es necesario guardar el tiempo en una variable pública ¿? no sé si se entienda, pero si sigues los pasos que te indiqué se debe solucionar el problema... por favor, nos avisas cómo te va.

Mauricio:

con los cambios que vos me sugeris, anda perfecto!!!, quiero agracederte a vos y a este gran foro, por el interes y la rapides en las respuetas, ademas de las respuestas suepr tecnicas que brindan. El tema esta cerrado.

Re: se abre solo el libro??

Hola juandi:

El codigo que has colocado esta con dos comas quitale una coma, a mi funciona he visto que tienes otros errores revisa bien las variables

Application.OnTime (Now + TimeSerial(0, 0, 6)), "ClockParaSumarcolor", , schedule = False

Cesar, en esta link http://www.megaupload.com/?d=0AC8K1VC

esta el libro con la corrección de la coma, pero en mi pc se sigue abriendo solo, que puede hacer, le tengo que encontrar solución.

conrespecto a las variables se utlizan en un rpocedimiento que se llama peso, y que son variables privadas. este procedimiento lo llamo en "ClockParaSumarcolor", o sea que se hace ejecutra cada 6 segundos; no creo que este por ahi el problema. QUE PUEDO HACER??

Gracias de antemano saludos

Juan

Re: se abre solo el libro??

Hola juandi:

El codigo que has colocado esta con dos comas quitale una coma, a mi funciona he visto que tienes otros errores revisa bien las variables

Application.OnTime (Now + TimeSerial(0, 0, 6)), "ClockParaSumarcolor", , schedule = False

Cesar, aquite dejo el link donde ya corregí el error de la coma, http://www.megaupload.com/?d=0AC8K1VC

A mi se me sigue abriendo solo, y ahora que hago!!!

en el procedimiento ClockParaSumarcolor llamo a una procedimiento pesos, que estan ahi las variables que son privadas, no creo que eso ocasione porblemas.

Descargate el archivo y me contas

saludos

Juandi

Re: se abre solo el libro??

Revisa este link

https://www.ayudaexcel.com/foro/showthread.php?t=2776

esta es la direccion:

http://www.megaupload.com/?d=WGHZVFIZ

En el rango E126:E135 esta puesta la funcion, la contraseña es paz, gracias mil garcias por tu interes!!

Juandi

Re: se abre solo el libro??

Hola juandi:

Sube un archivo de ejemplo con datos ficticios, para ver por que no te funciona.

Hola, quiero subirlo pero lo comprimo y me queda de 629 KB, como hago o estoy comprimiendo mal??

saludos y gracias

Re: se abre solo el libro??

Hola juandi:

Pueda que nuestro amigo Mauricio se encuentre ocupado prueba con este codigo

En el libro

Si es con un useroform

Que tal, gracias por la respuesta, pero sigue sin funcionar, tanto si guardo o no los cambios, por favor que otra cosa puedo probar. Es muy importante para mi solucionarlo ya que es un informe que envio por mail, y lo he probado y hace desastre, gracias pur su interes.

saludos

Juandi, Argentina, cordoba

Re: se abre solo el libro??

Hola,

cuando cierres el libro tienes que evitar que se vuelva a ejecutar la macro ClockParaSumarcolor.... veo que la cancelas o evitas que se ejecute cuando desactivas la página, pero no cuando lo cierres. Una vez cerrado, la macro se volverá a ejecutar.... prueba usando lo que usas en worksheet_deactivate en el evento cerrar el libro, algo así:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Stopit = True

End Sub[/CODE]

Hola mauricio, prové poniendo el codigo pero a los 6 segundos se abre de nuevo, tanto si guardo los cambios o no.

que otra cosa puedo provar. Lo que nesecito es que sume las celda sin color, pero tuve que poner que esto se ejecute cada un tiempo ya que, antes funcionaba pero tenia que ejecutar celda por celda para que se actualizara, espro que me puedas ayudar!!!

saludos

Juan, Argentina

Gente, como va

El codigo de abajo es que utilizo para calcular la funcion Sumarcolor que esta colocada en varias celdas, y que se calcula cada 6 segundos, el problema es que cierro el libro, guardando o no los cambios ,y se vuelve a abrir solo, que puede estar pasando??

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double

Dim celda As Range

For Each celda In Rangosuma

If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda

Next celda

Set celda = Nothing

Application.Volatile

End Function

Sub ClockParaSumarcolor()

If Stopit = True Then Exit Sub

[A1].Calculate

Application.ScreenUpdating = True

PESOS

Application.OnTime (Now + TimeSerial(0, 0, 6)), "ClockParaSumarcolor"

End Sub

Private Sub Workbook_Open()

ClockParaSumarcolor

End Sub

Private Sub Worksheet_Activate()

Stopit = False

ClockParaSumarcolor

End Sub

Private Sub Worksheet_Deactivate()

Stopit = True

End Sub

Gente como andan??

El incoveniente es que la macro que describo abajo, colocada en el un modulo y en thisworkbook cuando esta abiero el libro se ejecuta cada 10 minutos, pero cuando esta cerrado el libro tambien se ejecuta e incluisive se ejecuta con tos los libros abietos de excel, y cuando yo la consulto de mi maquina primero ovbiamnete me dice que esta abierta y es de solo lectura hasta ahi todo bien, pero la cierro y se vueve a abrir. como puedo solucionar esto con una macro NO con la funciona Autoguardado de excel ya que no graba sobre el mismo archivo.

EN EL MODULO

Sub Guarda()

dTime = Now + TimeValue("00:10:00")

Application.OnTime dTime, "Guarda"

ActiveWorkbook.Save

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnTime dTime, "Guarda"

End Sub

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:10:00"), "Guarda"

End Sub

Sub Guarda()

dTime = Now + TimeValue("00:10:00")

Application.OnTime dTime, "Guarda"

ActiveWorkbook.Save

End Sub

Hola amigos; coloqué en una hoja varias flechas; ahora lo no se como hacer con codigo para que cambien de posicion y de tamaño segun lo que yo elija en una lista.

With ActiveSheet.Shapes("171 Conector recto de flecha")

????????

End With

saludos

juandi

Hola, tengo el siguiente procedimiento:

For i = 0 To Sheets.Count - 1

If ListBox1.Selected(i) = True Then

Sheets(ListBox1.List(i)).PrintOut

'buscar_seleccion = ListBox1.List(i)

End If

Next i

lo que necesito es poner codigo para que en una sola hoja me imprima el area seleccionada, que es igual en todas las hojas; podrá ser un una ó que se incremente de acuardo la cantidad de hojas y que no manda la impresion sino que haga vista previa

saludos a todos

Juandi

Hola: tengo un rango que va desde S39:S99, en cada celda hay una formula con condiciones, que si no se cumple queda vacia, entonces tengo algunas con resultados y otras que no. El poblema es que tengo que llevar estos resultado a a otra hoja y colocarlos en un rango que va desde B2:14 (14 celdas consecutivas), y en éstas tienen que completas o puede ser que esten las primeras cinco y las otras no me explico??

saludos

hoja 1 hoja2

pepe pepe

jose jose

"" luis

"" y las otras 11 vacias

Luis

""

saludos

juandi

Respuesta: problemas con funcion buscav

Primero creo que planteaste mal la formula Buscarv:

porque tu buscas la celda D4 que dice Envase Bolsas en el rango C4:E35 y en ese rango no tienes ninguna celda que diga eso, por eso y porque no ordenaste la formula como VERDADERO para que te de el valor exacto es que te da cualquier valor

Ahora mi pregunta es ¿Que te tiene que buscar la formula para que el resultado sea Fornasero Ezequiel?, ¿Donde lo tiene que buscar?

Saludos

Nicolas

TE explico, lo que necesito es que se busque el texto "Envase Bolsas" columna C y me devuelva todos los mombres que cumplan esa condición, eso por un lado; pero tambien el problema es que el resultado lo tengo que colocar en 13 celdas diferenates (hoja Porgramacion en la columna Mañana)

espero ser claro y que me puedas dar alguna respuesta, desde yá gracias.

saludos

juandi

Respuesta: funcion contara

Prueba con las formula:

=Contar.Blanco(A:A)

=CONTAR.SI(A:A;"")

Suponiendo que los datos los tienes en la columna A

Si no es lo que necesitas solo me avisas

Saludos

Nicolas

Nicolas: te adjunto el archivo, en la hoja 'progarmacion' en la celda G21 quiero sumar la columna B que NO este en blanco

gracias por tu ayuda

saludos

juandi

programaenvase.zip

Hola, disculpen tengo otar duda;

como hago para que la funcion contara, cuente las celdas vacias, pero estas celda contienen formulas, que dadas las condiciones es resultado es nada, me refiero a ("").

saludos y mucha gracias por sus ayudas

juandi

Hola a todos.

Adjunto el archivo, en la hoja 'Horarios(2)' esta el problema

saludos a todos

juandi[ATTACH]8148.vB[/ATTACH]

programaenvase.zip

Hola a todos El error lo da cuando se abre el archivo en el procedimiento Workbook_Open(), según lo que he leido hay que separarlo en procedimientos más chico, pero no se como?? El archivo no lo puedo subir porque tiene 400 kb comprimido, original es de 950 kb...

saludos

juandi

argentina

Respuesta: ayuda con formula suma

juandi!!!

no es bloqMayús, es el que está debajo (Mayús o Shift), de pronto ese el problema.

Mauricio: ahora sí anda perfecto, claro era con el shift. Gracias por tu gran ayuda y te mando un saludo. Tema Resuelto.

Juandi

Argentina

Respuesta: ayuda con formula suma

hola juandi,

es una fórmula matricial, ¿la estás ingresando con Ctrl+Mayús+Intro?

la he probado acá y me funciona correctamente (ingresándola como fórmula matricial).

Hola mauricio:

disculpa mi ignorancia, pero me para sobre la celda presiono F2 y luego la combinación Ctrl+bloqMayús+Intro y sigue dando#¡valor!, es así o tengo algo mal en la configuración del excel???

saludos y muchas gracias

juandi

Hola, tengo en una celda la siguiente formula:

=SUMA(SI(A16:A19="RLPD 100";C16:C19;"");SI(A16:A19="RLPE 200";C16:C19;""))

cuando la evaluo me dice que resulado es igual pero al dar enter me coloca en la celda #¡valor!, que puede ocurrir

gracias, por sus ayudas.

Un saludo

Juandi

Respuesta: error en el metodo select de la clase range

Hola Juandi,

Es casi seguro que el error viene de otro lado que aqui no se alcanza a ver en este codigo que detallas.

La macro corre perfectamente en excel 2000, 2003 y 2007

Saludos.

Hola, fui comentando linea por linea y me seguia dando error, hasta que saque el manejadordeerror y se solucionó, que puede ser??

saludos y gracias por todos

Respuesta: error en el metodo select de la clase range

Gracias por tu ayudas, en este momento no tengo el archivo a mano cuando lo tenga pruebo. En realidad la variable password no está declarada, si mal no recuerdo, quizas tome por defecto integer y yo le estoy pasando texto, cuando tenga el archivo la declaro con string y veo que pasa. Te agradezco mucho te atención y cuando tenda novedades te aviso

Saludos y gracias

Juandi

Argentina-Cordoba

Hola, prové el sig. codigo:

Private Sub cmdgrabar_Click()

Dim Password As String

On Error GoTo ManejadorError

Password = "paz"

ActiveSheet.Unprotect Password

Cells.Select

Selection.Locked = False

Selection.FormulaHidden = False

Selection.Locked = True

Password = "paz"

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'cmdgrabar.Enabled = False

ManejadorError:

MsgBox Err.Description

End Sub

Me sigue dando error de no coinciden los tipos, que puede pasar.

saludos juandi

Respuesta: No permitir eliminar hoja

Hola juandi,

en 2007, pestaña "Revisar" > "Proteger libro".

En VBA podrías usar algo como esto:

ThisWorkbook.Protect Structure:=True

Ok, ya probé todos lo que me explicaste y funciona a la perfeccion; te agradezco tu ayuda y saludos.

Juandi

Argentina-Cordoba

Respuesta: error en el metodo select de la clase range

Probe y ejecute este codigo en mi trabajo sin ningun error, ahora estoy en casa y lo volvi a ejecutar obteniendo el mismo resultado, corre perfectamente.

A lo mejor tienes mas codigo arriba en donde declaras variables de algun tipo y por eso las variables de este codigo no coinciden al ser utilizadas, a lo mejor la variable password esta declarada como integer y es utilizada en este codigo para texto, no se algo asi, insisto, en mi pc corre perfectamente, ojala otro usuario lo pruebe y nos diga los resultados obtenidos.

Saludos.

Gracias por tu ayudas, en este momento no tengo el archivo a mano cuando lo tenga pruebo. En realidad la variable password no está declarada, si mal no recuerdo, quizas tome por defecto integer y yo le estoy pasando texto, cuando tenga el archivo la declaro con string y veo que pasa. Te agradezco mucho te atención y cuando tenda novedades te aviso

Saludos y gracias

Juandi

Argentina-Cordoba