Jump to content

nixonlyo

Members
  • Content Count

    177
  • Joined

  • Last visited

About nixonlyo

  • Rank
    Advanced Member
  • Birthday 01/18/1989
  1. [uSER=9328]Gerson Pineda[/uSER] PERDON ya me funciona! solo que no lo hacia si uso minusculas con numeros. el de Macro Antonio si que no me funciona jaja.
  2. Macro Antonio gracias por tu respuesta aunque la verdad no me nombra las celdas, las tengo seleccionadas y me da error, solo selecciono una y no hace nada.
  3. [uSER=9328]@Gerson Pineda[/uSER] me sigue dando errores al depurar me lanza el error en ActiveWorkbook.Names.Add Name:=celda, RefersTo:="=" & vref[/CODE] error 1004 en tiempo de ejecucion
  4. [uSER=9328]@Gerson Pineda[/uSER] Intente hacerlo simple para probar pero sigue dandome errores Dim R As Range For Each R In ActiveSheet.Range("A1:A10") ActiveWorkbook.Names.Add Name:=R.Offset(0, 1).Value, RefersToR1C1:= _ "=R" & R.Row & "C" & R.Column & "" Next[/CODE]
  5. [uSER=9328]@Gerson Pineda[/uSER] es solo un ejemplo la verdad tengo un aproximado de 300 nombres o quizas mas.
  6. Hola compañeros, tengo dudas de como asignar nombre por macros a unas celdas, por ejemplo: Si quiero asignar a las celdas: A2 el nombre del valor de la celda B2 A3 el nombre del valor de la celda B3 A4 el nombre del valor de la celda B4 ... y así Cuál sería el código a aplicar? muestra.rar
  7. Ya encontré el problema, faltaba iniciar con el código: contar = 0 i = 0[/CODE]
  8. Macro Antonio No me funciona me da un total errado
  9. deberías bloquear tu archivo y eso evitaría tener que hacerlo tanto la hoja como el projecto.
  10. Macro Antonio aquí adjunto el archivo.Libro2.rar
  11. Usas OUTLOOK.? es factible enviarlo con un correo que envie los datos de: Application.UserName 'Para determinar el usuario Now 'para determinar el momento exacto de apertura iniciado una vez abres el archivo al anclarlo a Private Sub Workbook_Open() QUEDANDO ASI: Private Sub Workbook_Open() Dim olmail As Object Application.ScreenUpdating = False Set olapp = CreateObject("Outlook.Application") Set olmail = olapp.CreateItem(0) olapp.Session.Logon With olmail .SentOnBehalfOfName = "ZZZZZZ@hotmail.com" .To = "ZZZZZZ@hotmail.com" .CC = "ZZZZZZ@hotmail.com" .Subject = Application.UserName & "ACCEDIO A LA FECHA: " & Now Application.WindowState = xlMinimized .Display End With Set olmail = Nothing Set olapp = Nothing Application.SendKeys "^v", True Application.Visible = True SendKeys "{NUMLOCK}" Application.ScreenUpdating = True End Sub [/CODE] [/color][/b]
  12. tengo un problema al argumentar esta funcion: If ActiveCell = fecha And ActiveCell.Offset(0, 1).Value >= HorAM1 Or _ ActiveCell = fecha And ActiveCell.Offset(0, 1).Value <= HORaM2 Then CALL MacroDEproceso End If[/CODE] lo que busco que me identifique que el valor de hora[b] este entre los rangos identificados[/b] como [b]HorAM1 [/b]y [b]HorAM2, [/b]no estoy seguro como hacerlo. la macro me identifica que la celda activa es igual a una fecha establecida pero el problema es que no me identifica que la celda a su lado sea en la [b]hora1 [/b]digamos 5:00am y [b]hora2 [/b]digamos 12:00pm
  13. [uSER=93722]@rafabq[/uSER] gracias amigo.!! era lo que necesitaba.!
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png