mariano bracamonte

mariano bracamonte

 Argentina @marianoguibernau desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Ejecutar Macro desde cualquier hoja de un mismo libro

respondió: [Hola Suponiendo que tu macro está en un módulo estándar, coloca esto en el módulo del libro (el que tiene por nombre por defecto "ThisWorkBook"): Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As...
Ha valorado "Excelente" la respuesta

Cambiar color de autoforma condicional

respondió: En cada una de tus macros, agrega esta línea: Call Poner_Color(Application.Caller) En un módulo pon la siguiente macro: Sub Poner_Color(autoforma) 'Por.Dante Amor ActiveSheet.DrawingObjects.Interior.ColorIndex = 5...
Ha valorado "Excelente" la respuesta

Ejecutar una misma macro desde diferentes hojas

respondió: Creo que deberías ponerlo en el objeto ThisWorkbook, una posible opción sería: Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> "ABM" Then 'Asumo que el libro solo tiene la hoja ABM y las de los meses, por lo tanto 'si la hoja en...
Ha valorado "Excelente" la respuesta

Macro para crear hoja, pedir nombre y copiar datos

respondió: Te anexo la macro. Cambia en esta línea de la macro "Hoja1" por el nombre de hoja que deseas copiar: Set h1 = Sheets("Hoja1") Sub Crear_Hoja() 'Por.Dante Amor ' nombre = InputBox("Escribe el nombre de la nueva hoja : ", "CREAR NUEVA HOJA") If nombre...
Ha valorado "Excelente" la respuesta

Cambiar color autoforma dependiendo de otras

respondió: Bueno tendrías que saber los código RGB te dejo un link que ayuda en eso: http://www.rapidtables.com/web/color/RGB_Color.htm Por otro lado la rutina seria utilizando la condicional If Else y seria la siguente: Sub CambioColor() 'Con la autoforma...
Ha valorado "Excelente" la respuesta

Macro para aplicar formato en fila

respondió: Prueba con esta macro, donde estés cuando corras la macro dará formato a la fila comprendida entre b y e Sub dar_formato() fila = ActiveCell.Row: Range("b" & fila).Resize(1, 4).Select With Selection .Font.Name = "Arial" .Font.Size = 8...
Ha preguntado en el tema en y en 2 temas más

Ocultar botón de filtro en macro para ordenar datos

Tengo la siguiente macro mediante la cual ordeno los datos de una tabla con filtros. ¿Qué debo agregar y/o cambiar para que queden ocultos todos los botones del filtro? Sub cuenta() ActiveWorkbook.Worksheets("Fee").AutoFilter.Sort.SortFields.Clear...
Ha valorado "Excelente" la respuesta

Cómo hacer para copiar, pegar y borrar sólo parte del contenido

respondió: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Row = 1 Then Exit Sub ' If Target.Column = Columns("F").Column Then...
Ha valorado "Excelente" la respuesta

Botón para ordenar con macro

respondió: Solo pon esto, con estas instrucciones la macro saltara el error y luego lo reseteara a 0 on error resume next Range("B5").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess on error goto 0