Luis Mondelo

Te mando un ejemplo para que lo entiendas. Sigue mis pasos: En una hoja en blanco oculta las filas 4, 5 y 6. Después ejecuta esta macro y verás los resultados: Sub pintarfilas() Range("a1").Select For f = 1 To 15 If Cells(f, 1).EntireRow.Hidden =...

Esta es la solución, sigue mis instrucciones del ejemplo: En A1 ponemos "TABLA1" (encabezado) En A2 ponemos "shunga" En A3 ponemos "martini" En D1 ponemos "TABLA2" (encabezado) En D2 ponemos "mi hijo se toma un martini" En E2 ponemos "azul" En F2...

Se traduce así: "en la primera celda libre de la columna A de la hoja enero anotaremos el contenido del textbox1" Recuerda finalizar

Prueba ejecutando esta macro estando en la hoja donde están los datos. Sub numeros() For Each celda In Range("e3:ai47") celda.NumberFormat = "#,##0.00" Next End Sub

Esta sería mi solución para un mismo libro con todas las hojas que quieras. Te pintará en rojo los valores repetidos de la columna A de todas las hojas, empezando desde A1 hacia abajo. Sub repes() For x = 1 To Sheets.Count Sheets(x).Select...

Esta sería mi solución. Esta macro te creará las combinaciones que desees pintándolas desde A2 hacia abajo. Sub combinacion() tope = InputBox("cuantas combinaciones quieres???") If tope = Then Exit Sub For x = 1 To tope Do uno =...

Si me mandas el archivo lo interpretaré mejor para poder ayudarte. En el archivo ponme todas las explicaciones y ejemplos posibles. [email protected]

Te mando algo para que vayas aprendiendo: Estas serían la macros básicas para que haga lo que pides: Por un lado cargamos el combo con el evento initialize y luego programamos el combo para que cuando elijas una opción te muestre sus datos en los...

Claro, esta sería la macro que ejecutaría el botón: sub colorear() selection.interior.colorindex =3 'coloreamos de rojo el relleno end sub Pero... ¿no es más fácil utilizar el botón de relleno de excel?

Esta es la solución: Abre un libro nuevo en blanco y pega esta macro en un módulo, después ejecútala y todo listo. Sub juntar_archivos() mio = ActiveWorkbook.Name ChDir "c:\main\" archi = Dir("*.xl*") Do While archi <> "" fila =...