Jump to content

juliocesar_seapf

Members
  • Content Count

    199
  • Joined

  • Last visited

About juliocesar_seapf

  • Rank
    Advanced Member
  • Birthday 09/21/1985

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. hola a todos, y gracias por sus respuesta... Gerson, siempre me das otra perpestiva que me ayuda a solucionar mi problema y futuros problemas. esta vez el codigo de mi amigo Super Macro antonico me quedo muy bien. gracias Macro. Sub ValoresRepetidos() Dim listaOrigen As Range, x As Long Set listaOrigen = Application.InputBox _ (Prompt:="Seleccione la columna donde estan los # Ots:", _ Title:="Seleccionar 1 Columna", Type:=8) columna = Split(listaOrigen.Address, ":")(1) Application.ScreenUpdating = False For x = 2 To Range(columna & Rows.Count).End(xlUp).Row contador = WorksheetFunction.CountIf(listaOrigen, Range(columna & x).Value) If contador > 1 Then ActiveCell = Range(columna & x).Value ActiveCell.Offset(1, 0).Activate End If Next End Sub saludos tema solucionado.
  2. amigos, como esta trato de hacer lo contrario a este codigo Sub ValoresUnicos() Dim listaOrigen As Range On Error Resume Next Set listaOrigen = Application.InputBox _ (Prompt:="Seleccione la columna donde estan los # Ots:", Title:="Seleccionar 1 Columna", Type:=8) listaOrigen.AdvancedFilter _ Action:=xlFilterCopy, CopyToRange:=ActiveCell, Unique:=True Canceled: End Sub cambien este valor, pero me copia todo el rango idéntico Action:=xlFilterCopy, CopyToRange:=ActiveCell, Unique:=False sera que me ayudan gracias
  3. hola mis amigos, bueno.. les cuento que ya encontre la solucion a mi consulta, despues de buscar y quemar algunas neuronas jejejjejeje, lo logre conseguir: vean que el rango se obtiene con una formula sencilla pero ingeniosa jejejej. TEMA SOLUCIONADO gracias. y hasta pronto. Controljcp - copia.rar
  4. claro mi amigo, hay lo subo.. no podras abrilo.. asi que debes crear un archivo asi "xls.key" y guardarlo en C:\Windows\System saludos julio jc_seapf.xls
  5. ahora si, despues de casi golpear mi cabeza con el motinor, llege a encontrar el problema. resulta que por las medidas de seguridad de Windows 8.1/10 no puedo tener acceso a la ruta del archivo donde se encuentra "xls.key" ("c:\windows\system32\xls.key"), es por eso que la macro me dice que no puedo utilizar el libro por que no ha encontrado el key. lo que hice fue mover el archivo dentro de C:\xls.key, y modifique el codigo tambien, y por arte de magia si funciono. aqui el codigo que se debe colocar en ThisWorkbook: Private Sub Workbook_Open() If Dir("c:\xs.key", vbHidden) <> "xs.key" Then MsgBox "Esta aplicación no tiene autorización para ser ejecutada en este PC!", vbCritical, "SII - Trasportadora" Application.Quit End If End Sub [/CODE] bueno , la macro si funciona, pero la idea de guardarlo en la ruta anterior era para evitar puedan encontrar el archivo Key y copiarlo. pero de todas formas gracias. por sus aportes. TEMA SOLUCIONADO saludos jc
  6. la macro funciona, no me sale error de depuracion. la cuestion es que tengo el archivo "xls.key" guardado en la direccion: c:\windows\system32\, pero de todas formas me sale el mensaje "Esta aplicación no tiene autorización para ser ejecutada en este PC!", y no debería ser así, este mensaje sale cuando no tienes el archivo "xls.hey" en la direccion correcta y se cierra el archivo, no dejandote usarlo. en caso que tengas el archivo "xls.key" no se deberia cerrar el libro. que estoy haciendo mal... una mano por favor.
  7. no no no... no era eso... sigo revisando , por favor no cierren aun el tema
  8. listo ya probe era eso... era a colocar el codigo en un nuevo modulo.. gracias.. TEMA SOLUCIONADO. gracias a todos amigos.
  9. ok.. manos a la obra, eso no lo sabia jejejejje el codigo lo estoy colocando en ThisWorkbook. esta bien o debo crear un nuevo modulo
  10. AMIGO gfellay no puedo enternder , se detiene la macro y como hago para que funcione. sera que lo puedes probar x favor.
  11. Hola ya probe la macro de Xanito, y funciona, la cuestion es que no sera lo mismo que poner contraceña de arpertura al libro jejejjeje. pero vale , los guardo en mi baul de tesoros excel. continuando con el tema, estoy probando la macro tuya amigo gfellay
  12. hola mi amigo gfellay, mira que he tratado de hacer que funcione la macro para evitar que el libro se abra, pero no pude, no se que esta mal: Private Sub Workbook_Open() If Dir("c:\windows\system32\xls.key", vbHidden) <> "xls.key" Then MsgBox "Esta aplicación no tiene autorización para ser ejecutada en este PC!", vbCritical, "SII - Trasportadora" Application.Quit End If End Sub [/CODE] El archivo xls.key esta guardado en c:\windows\system32, pero parece que la macro no la encuentra, pero no me deja abrir el archivo, por mas que tenga el xls.key, debo precionar shiff para detener la macro, que puede ser que este fallando. me das una mano... gracias
  13. hola amigo gfellay, gracias por tu respuesta. mira, algo parecido hice en access, el archivo no se habre si no se encuentra el archivo key, de esta forma protego que la bd de access se abra en otra computadora que no sea la autorizada, ahora no se si esta macro puede funcionar en Excel. Option Compare Database Function BuscaFile() Dim FileInicio FileInicio = Dir("c:\windows\system\control.vvv", vbHidden) If FileInicio <> "control.vvv" Then MsgBox "Esta aplicación no tiene autorización para ser ejecutada en este PC!", vbCritical, "SII - Trasportadora" Application.Quit acPrompt Else End If End Function [/CODE] tambien he revisado en google y esta macro funcionaria para eliminar el libro, como aplico ambos : [CODE]' El siguiente procedimiento crea un archivo .vbs que ' se ejecuta antes de cerrar el libro. ' Dicho script, una vez ejecutado, espera el tiempo indicado ' en la constante TIEMPO_ESPERA_CIERRE_ARCHIVO_SEG para luego ' pasar a eliminar el archivo una vez se encuentre cerrado. ' Al final siempre quedará como residuo el vbScript que sólo ' contiene tres líneas de código y el archivo que contenga ' este código se habrá borrado. ' Creado por: Mauricio Robayo, AKA mjrofra ' http://excelpatas.blogspot.com/2011/09/archivo-que-se-elimina-si-mismo.html ' 7 de septiembre de 2011 Sub Matarme_con_VBscript() ' Variable que almacena la ruta y el nombre ' del archivo .vbs que va a borrar este archivo. Dim VBScript As String ' Tiempo, en segundos, que se va a dar de ' espera mientras se cierra el archivo. ' Es necesario dar un tiempo de espera para ' asegurarse de que el archivo ha sido cerrado. ' Si el script se ejecuta con el archivo ' abierto, no se podrá borrar el archivo. ' En este caso, el tiempo de espera es de 2 segundos. Const TIEMPO_ESPERA_CIERRE_ARCHIVO_SEG = 2 ' Si el archivo ha sido grabado por el usuario, tendrá una ruta. ' De lo contrario, la ruta se encontrará vacia y no será ' necesario borrar el archivo depués de cerrarlo pues ya ' no existirá. If ThisWorkbook.Path <> vbNullString Then ' Almacena la ruta y el nombre que se la va a dar al script. ' En este caso se usa la carpeta temporales, para evitar ' dejar rastros evidentes: VBScript = VBA.Environ$("Temp") & Application.PathSeparator & "MatarLibro.vbs" ' Crea el VBScript para borrar este archivo Open VBScript For Output As #1 Print #1, "Set obj = CreateObject(""Scripting.FileSystemObject"")" Print #1, "WScript.sleep " & TIEMPO_ESPERA_CIERRE_ARCHIVO_SEG * 1000 Print #1, "obj.DeleteFile """ & ThisWorkbook.FullName & """" Close #1 ' Ejecuta el VBScript para borrar este archivo Shell "cmd /c " & VBScript End If ' Cierra el libro sin guardar cambios. ThisWorkbook.Close False End Sub[/CODE]
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png