Jump to content

juandi

Members
 View Profile  See their activity

  • Content Count

    69

  • Joined

  • Last visited

Posts posted by juandi

  1. Posted · Report reply

    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

  2. Posted · Report reply

    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.

  3. Posted · Report reply

    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

  4. Posted · Report reply

    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

  7. Posted · Report reply

    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

  8. Posted · Report reply

    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

  9. Posted · Report reply

    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

  10. Posted · Report reply

    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.:mad:

    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

  12. Posted · Report reply

    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

  13. Posted · Report reply

    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

  14. Posted · Report reply

    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

  15. Posted · Report reply

    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

  20. Posted · Report reply

    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

  21. Posted · Report reply

    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

  22. Posted · Report reply

    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

  23. Posted · Report reply

    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

  25. Posted · Report reply

    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

×
×
  • Create New...

Important Information

Privacy Policy

  I accept