Sebas Torres

Te falta un "End if" compañero te lo esta diciendo excel XD je je Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Cotizacion" Then Respuesta = MsgBox("¿Autonumerar Cotizador?", vbYesNo) If Respuesta = vbYes Then...

Por lo que veo en tu imagen ese error te sale porque estas seleccionando la hoja con "Sheets" el cual se dirige al nombre de la hoja no al numero. Hoja2 en tu foto no se llama Hoja2, el nombre no se ve por el cartel "Hoja2 (Con.. " eso es lo que se...

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

Lo que podrías hacer es pegar esta función en un modulo Recuerda que para que funcione tienes que guardar el archivo como habilitado para macros Function CONTCOLOR(RangoColor As Range, CeldaColor As Range) As Long Dim RngCelda As Range Cuenta = 0...

¿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

Lo que tu quieres no es hacer fracciones, ¿solo quieres unir datos verdad? Prueba esto =a1 & "/" & a2 Pega esa formula en A3 y si escribes 3 en A1 y 8 en A2, en A3 te va a mostrar 3/8 ¿Es eso lo que querías hacer? Si es así no olvides valorar la...

Tambien podrias crear algun tipo usuario al entrar... Le creas 2 usuarios, con nombre y pass. Ejemplo : *Invitado - sin clave *Admin - con clave Si entras con el invitado la hoja este bloqueada y si entras con el admin que este desbloqueada Es una...

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