Sebastian Sebas

Sebastian Sebas

Investigar, analizar y resolver
 Argentina @percy_tec desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Macro para bloquear varias hojas por criterio

respondió: Te anexo las 2 macros. Cambia "abc" por el password que desees Sub Proteger_Hojas() Dim sh As Worksheet For Each sh In Sheets If LCase(Left(sh.Name, 4)) = LCase("Arte") Then sh.Protect "abc" End If Next End Sub ' Sub DesProteger_Hojas() Dim sh As...
Ha valorado "Excelente" la respuesta

Duplicar plantilla y renombrar las hojas

respondió: Prueba esto: Sub Duplicar_Plantilla() Dim dic As Object Dim c As Range ' Set dic = CreateObject("Scripting.Dictionary") For Each c In Sheets("Tabla").Range("A5", Sheets("Tabla").Range("A" & Rows.Count).End(3)(0)) If Not dic.exists(c.Value) Then...
Ha valorado "Excelente" la respuesta

Macro copiar y pegar celdas activas respetando celda llena de hoja destino

respondió: Para realizar lo que necesitas debe hacer con VBA. Si estás de acuerdo te ayudo con el código. Tengo las siguientes dudas, puedes responder en el siguiente orden. 1. En la hoja "Data" vas a seleccionar datos solamente de las columnas A o B o puede...
Ha valorado "Excelente" la respuesta

Dar color a campo de informe mediante una condición

respondió: Por lo que entiendo quieres que los que tengan más de 10 años queden marcados por un color, y que en ese conjunto si el nombre contiene JOSE se marquen en otro color diferente. Si esto es cierto basta con añadir una segunda condición If anidada...
Ha valorado "Excelente" la respuesta

Reemplazar texto en archivo con MS DOS

respondió: Con la nueva forma de trabajar de Todoexpertos he visto esta pregunta pendiente de respuesta. A lo mejor a estas alturas ya has encontrado una solución adecuada. Si no es así prueba con esto: @echo off Setlocal EnableDelayedExpansion set cadorig=%1...
Ha añadido un comentario en una respuesta de la pregunta

Necesito una macro para copiar la celda activa de una hoja en otra celda de otra hoja

respondió: Esta macro copia la celda completa que esta activa, la pega en la celda A1 de la hoja 2 y te devuelve a la celda activa inicial. Sub Copia_Pega() a = ActiveCell.Address Range(a).Select Selection.Copy Sheets("Hoja2").Select Range("A1").Select...
Ha valorado "Excelente" la respuesta

Macro para imprimir todos los PDFs de C:\archivos

respondió: Prueba lo siguiente. - Cambia en la macro la carpeta donde tienes tu adobe acrobar "C:\Program Files\Adobe\Reader 11.0\Reader\" - Cambia en la macro en nombre del programa Acrobat Reader "AcroRd32.exe Sub ImprimirPdfs() 'Por.Dante Amor Dim ruta As...
Ha cambiado su perfil.
  • Nombre completo: Sebastian Sebas.
Ha cambiado su perfil.
  • Lema: Investigar, analizar y resolver.
Ha empezado a seguir el tema
Ha empezado a seguir el tema