Saltar al contenido

johan moreno

Miembros
  • Contador de contenido

    97
  • Unido

  • Última visita

1Seguidor

Sobre johan moreno

  • Rango
    Miembro

Formas de contacto

  • Twitter @fjnmorenod

Información de perfil

  • Sexo Hombre

Visitantes recientes del perfil

811 visitas de perfil
  1. Muchas Gracias por tu tiempo amigo Cierto esta bloqueado... la clave es 987654 se me paso colocarlo, lo adjunto sin clave El codigo que mencionas tendría que copiarlos en la hoja... no habria una forma de generarlo en el archivo indistintamente de la hoja que este seleccionada... lo digo porque las que creo para las cuentas pueden variar actualizarse, ser eliminadas, esta informacion son cuentas contables que en unos meses tienen movimiento en otros no, o sencillamente las creo y entonces deberia copiarles el codigo a las hojas nuevas... Efectivamente el cruce lo hago de forma manual... he intentado automatizar con macro ese cruce pero ha sido un poco difícil, he solicitado la ayuda en el foro... pero estoy en eso... Por ejemplo
  2. Hola amigos del foro como siempre desde ya gracias por la colaboracion de siempre. Queria consultar con ustedes un caso particular Tengo un archivo con multiples hoja y un formato estandart en esas hojas Con un titulo 5 Columnas -10.952.931.280,32 CODIGO FECHA REF DESCRIPCION SALDO En la celda f4 tengo el saldo final de esa cuenta contable que me trae el filtro de esa informacion Al final del reporte el archivo me coloca el Total de la columna F llamada saldo, todo funciona bien Debido a que voy cruzando positivos y negativos en la columna saldo, y eliminandolo si al seleccionar los registros me da CERO, en ocasiones y por la cantidad de registro elimino lineas que datos que me modifican el total(por erro). Que queria que me enviara un msg, cuando el total que tengo en la celda F4 y la celda donde coloco el total en la hoja(que puede variar dependiendo de la cantidad de registro). Es decir si la celda F4 es diferente a la celda donde tengo el total es diferente avisame que el monto cambio con y me muestre la diferencia, para luego generar un deshacer. Anexo un archivo con solo una hoja.. Muchas Gracias CUENTAS POR PAGAR COMERCIALES.xls
  3. johan moreno

    Lista con Hipervinculo los algunas hojas

    Buenísimo es lo que requeria antoni como siempre sos grande jiji Gracias tierra pampa por tu colaboracion Muchas Gracias a todos Tema Cerrado
  4. Buenas Tardes queridos amigos del foro Por esta via hago la siguiente consulta tengo un codigo que logre ubicar en el foro para crear un indice de las hojas de un libro y a su vez crea los hipervinculos Tengo hojas ocultas que no quiero que se muestre en el inidce y tambien hojas activas que no quiero que se vean estas hojas estan antes de la hoja menu Ejemplo hoja1 hoja2 hoja3 Menu hoja4 hoja5 hoja6 Solo queria que no incluya en el indice las hojas ocultas y las hojas que esten antes de la hoja menum por lo que mostrara solo el indice de la hoja 4-5-6 por ejemplo Sub Nombre_hojas() 'Esta macro escribe el nombre de las hojas en la hoja "Resumen" ' y crea un hipervínculo a cada una 'Declaro las variables Dim x As Integer Dim y As Integer Dim NombreHojas As Range Dim RefHyperv As String Dim RefHypText As String Dim wh As Worksheet 'Cuenta el número de hojas en el libro en el que trabajo y = ActiveWorkbook.Worksheets.Count 'Creo el rango de destino de los nombres Set NombreHojas = Sheets("Resumen").Range(Cells(2, 2), Cells(y + 1, 2)) 'Creo el loop para rellenar el RangoHojas For Each wh In ActiveWorkbook.Worksheets x = x + 1 NombreHojas(x) = wh.Name Next 'Creo el loop para crear los hipervínculos 'Inicilializo x porque voy a reusar la variable x = 0 Worksheets("Resumen").Select 'No creo un hipervínculo para la Hoja1 porque es la hoja contenedora del resumen For x = 2 To y RefHyperv = NombreHojas(x) & "!A1" RefHypText = NombreHojas(x) ActiveSheet.Hyperlinks.Add Anchor:=NombreHojas(x), Address:="", _ SubAddress:=RefHyperv, TextToDisplay:=RefHypText Next 'Cambio el nombre a la hoja en la que están los nombres de hojas enlazados ActiveSheet.Name = "Resumen" NombreHojas(1) = "Resumen" End Sub Muchas Gracias por su ayuda de siempre Libro1 hipervinculo.xlsm
  5. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Buenisimo gracias valencia Gerson Gracias Muchas Gracias totales tema Cerrado
  6. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Buenisimo gracias valencia como dirian los argentinos SOS GRANDE... jajaja El archivo que estoy anexando tiene una clave 123456, de apertura y escritura si deseo que al guardar lo cambie a 654321, es lo que requeria Lo formulo en otro post... en caso contrario tu ayuda super valiosa como siempre Muchas Gracias
  7. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Sres Disculpen por el cruce de informacion... solo intentaba explicar lo que requeria con un codigo.. Agrego los archivos con el codigo que me facilito valencia, con el valores y formato copia las hojas y el formato pero tambie copia las macros y los formularios, 1.-Con este codigo copia las hojas pero no los formatos, como haria para colocale en el copiado de las hojas el formato CopiarValores 2.- Con este codigo copias las hojas y los formatos pero copia las macros y los formularios ValoresyFormatos Como me cometo valencia cierro y abro el archivo pero igual me deja las macro o modulos que es lo que hago mal Su ayuda como siempre y disculpeme adjunto el archivo con las macros Archivo Principal.xlsm
  8. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    El codigo que coloco aqui de Dante amor del foro TodoExpertos hace la copia del archivo pero deja las macros formularios y demas, Sub Respaldo() 'Por.Dante Amor nombre = ThisWorkbook.Name der = InStrRev(nombre, ".") nombre = Left(nombre, der - 1) Resp = MsgBox("Desea Guardar una Copia?", vbQuestion + vbYesNo, "Atención") If Resp = vbYes Then 'Application.Dialogs(xlDialogSaveAs).Show ruta = escritorio fecha = Format(Date, "ddmmyyyy") con = 1 If ruta <> "" Then ruta = ruta & "\" Do While True completo = ruta & nombre & fecha & "-" & con & ".xlsx" If Dir(completo) = "" Then Exit Do Else con = con + 1 End If Loop ActiveWorkbook.SaveCopyAs completo End If End If End Sub ' Function escritorio() As String 'Por.DAM 'Referencia: http://www.ozgrid.com/forum/showthread.php?t=24985 Dim objWSHShell As Object Dim strSpecialFolderPath On Error GoTo ErrorHandler Set objWSHShell = CreateObject("WScript.Shell") escritorio = objWSHShell.SpecialFolders("Desktop") Set objWSHShell = Nothing Exit Function ErrorHandler: 'MsgBox "Error NO se encuentra el folder ", vbCritical + vbOKOnly, "Error" escritorio = "" End Function
  9. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Agregue el codigo aexo y me da error me dice que no se puede usar esa extension con el tipo de archivo seleccionado... Me podria ayudar Lo que Requiero es poder hacer una copia de seguridad del archivo pero que no guarde ni las macros ni los formularios..pero respetado los formatos de las hojas que tienen lieas colores y demas formatos... Hice la pruea con el codigo de Abraham pero no me ha funcionado
  10. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Anexo el archivo con la informacion no lo agregue al comentario anterior Muchas Gracias Archivo Principal.xlsm
  11. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Hola Abraham Muchas Gracias Buenisimo el codigo, hace una copia del archivo incluido los modulos, los formularios del archivo Original al que estoy generando Estoy anexando el archivo con tus macros se Llama archivo Principal 1.- Tiene el password de escritura y apertura es 123456 2.- Tiene formularios y modulos (que no quiero que se copien) al archivo 123 3.- El archivo lo intente guardar con extension xls para que no generara los modulos pero no funciona... 4.- EL primer codigo copiaba las hojas sin formato solo datos... 5.- El archivo Principal que anexo tiene una hoja menu como haria para obviarla en el copiado de hojas... Muchas Gracias Abraham por toda la colaboracion, lo codigos lo voy a usar para otros casos que tengo que requeria algo como lo que me ayudaste... A la espera de tu colaboracion y ayuda
  12. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Hola Amigo Valencia.. ya Poniendo en practica tu archivo hace exactamente lo que requeria una copia del archivo donde tengo la macro a ejecutar que me facilitaste... Si me podría ayudar ya que crea la copia pero no mantiene el formato de lineas, colores ancho, etc Muchas Gracias
  13. johan moreno

    Copiar Todas las Hojas de un Archivo a Otro Nuevo

    Hola amigo Avalencia... muchas gracias por la ayuda... El archivo al cual estoy haciendo referencia tiene clave escritura/lectura y de apertura...
  14. Hola amigos del foro poseo un archivo con varias hojas, que modifique agregue ribbon, códigos vba en hojas, el archivo estará protegido con clave de lectura escritura 123456, con la ayuda de varios foros incluyendo este foro lo que quiero es copiar las hojas (pueden variar 20 o 30) con sus formatos, en solo datos es decir sin formulas a otro archivo que creare y colocare el nombre y la ruta que quiero.... con clave de lectura escritura 123456 Con este código que ubique en todoexpertos hace lo que quiero pero solo con la hoja activa, pero no con la hoja Anexo un codigo que podria ayudarme pero no corre bien su ayuda como siempre... Sub guardarhoja21() Dim hoja Dim h 'Por.DAM Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ActiveWorkbook Set l2 = Workbooks.Add Set h = ActiveSheet For Each hoja In l1.Sheets If hoja.Range("b3").Value <> "" Then hoja.Copy After:=l2.Sheets(l2.Sheets.Count) Next archivo = l1.Path & "\mayor " & Format(Date, "dd-mm-yyyy") l2.SaveAs FileName:=archivo, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ActiveWorkbook For Each hoja In l1.Sheets If hoja.Range("A1").Value = "" Then hoja.Delete Next Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveWorkbook.Sabe ActiveWorkbook.Close End Sub Me da error en esta linea hoja.Copy After:=l2.Sheets(l2.Sheets.Count)
  15. johan moreno

    crear Macro desde un Archivo a Otro

    Buenisimo se genera sin problema muchas Gracias Tema Cerrado
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.