
juandi
-
Content Count
69 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Posts posted by juandi
-
-
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 linkesta 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
-
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]
-
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 avisoSaludos 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
refrescar libro de excel
in Temas resueltos
Posted
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