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...

No sabría con exactitud porque se te cambian los controles de tamaño, el calendario debe ser porque microsoft elimino ese complemento de sus software, y siempre que los agrega uno por sus medios corre el riesgo de que le genere algún error... yo hace...

¿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...

¿Me podrías comentar un poco que es lo que quieres hacer? Porque crear fórmulas y al agregar filas las fórmulas se actualicen es una función neutro de excel, es lo que lo hace tan practico... siempre y cuando agregues las filas por encima de las...

Creo que es porque tienes 11 columnas y addItem sólo admite 10 columnas

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...