Sebas Torres

Prueba con esta macro haber que tal... Sub BorrarFilaColor() ufila = Range("A" & Rows.Count).End(xlUp).Row For fila = 1 To ufila If Not Cells(fila, 1).Interior.ColorIndex = xlNone Then Rows(fila).Delete End If Next fila End Sub Esta elimina las filas...

Si entendí bien, quieres poner el nombre de la hoja en A5 y quieres sumar E1:¿E5 pero solo las filas que en la columna B diga "SEMANAL" estoy en lo correcto? De ser así, pega en B5 esta fórmula...

¿Cómo le va? No entiendo muy bien que es lo que quieres hacer, pero por lo que veo en tus imágenes tu quieres ocultar filas no hojas =) dame un ejemplo más claro de lo que deseas hacer y quizás te pueda dar un mano con alguna macro je je

Todos aportan su granito de arena je je aquí te dejo el mio =) espero te sirva Private Sub Text10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Command2.SetFocus End If End Sub Saludos no olvides valorar...

Haber si te sirve esta macro Sub Copiadatos() ' By Serresto Set H1 = Sheets("HOJA1") Set H2 = Sheets("HOJA2") Application.ScreenUpdating = False H1.Range("A1:G17").Copy: X = H1.Range("A1").RowHeight H2.Range("B2").PasteSpecial Paste:=xlPasteAll...

Sinceramente no entiendo mucho tu código, pero si lo que quieres es moverte entre hojas con un click porque no simplemente pones un botón en cada hoja con una macro para que haga visible dicha hoja y oculte el resto? Ejemplo si tienes 3 hojas "Hoja1...

Podrias simplemente poner dentro del modulo de la hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("G2").FormulaLocal = "=HOY()" End Sub es la funcion hoy, pero cada ves que hagas click sobre cualquier celda se va a actualizar...

¿Esto es lo que tu quieres hacer? Pero en diferentes hojas Si es eso solo dale un nombre al rango de datos y utiliza la fórmula "BuscarV" o "ConsultaV" depende de la version de office Para dirijirla a otra hoja tienes que agregar el nombre de la hoja...

Algo así te ocultaría las ultimas 4 columnas con datos de la fila 8 Sub OculCol() UC = Cells(8, 1).End(xlToRight).Column Cells(8, UC).EntireColumn.Hidden = True Cells(8, UC).Offset(0, -1). EntireColumn.Hidden = True Cells(8, UC).Offset(0, -2)....

Buenos días fredy rodriguez prueba si con un for each hace lo que tu necesitas Sub ComparPintaR() Dim XcX, XcelX As Range For Each XcX In Range("DW2:DZ2") If Not XcX Is Nothing Then For Each XcelX In Range("EK2:EZ2") If XcX = XcelX Then...