fergica

Elsa Matilde respondió: La forma de que una rutina sirva para cualquier hoja es haciendo mención a ActiveSheet en lugar de Sheets("nombre") Quizás te sirva también saber el nro de hojas para luego posicionarte: Dim nrohojas As Integer nrohojas = ActiveWorkbook.Sheets.Count...

Elsa Matilde respondió: Esta rutina va en el formulario: Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Use el botón Salir" del formulario", vbInformation, "*** Botón desactivado ***" cancel = 1 End If End Sub

Elsa Matilde respondió: Lo he probado (tengo las mismas versiones) y no me presentó problemas. Puede ser que la hoja tenga una contraseña que no estás incluyendo. ActiveSheet.Protect "luis", , , , True Otras maneras: ActiveSheet. Unprotect "tuclave" 'opcional tuclave

Elsa Matilde respondió: Has sido entendido. Lo que necesitas, según lo que leo aquí es intercalar una variable a tu fórmula: Dim valor As Integer valor = 500 ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-6]:R" & valor & "C1,RC[-6])" La variable 'valor' aquí toma un valor fijo pero...

Elsa Matilde respondió: Establecemos entonces que concepto, valores y meses están en col A, B y C respectivamente de la hoja 7 en mi caso. Luego en E, F y G de otra hoja tendremos: concepto, mes y resultado. ¿En la celda? ¿Resultado? Coloca esta fórmula pero presiona...

Elsa Matilde respondió: No, necesariamente tendrás que concatenar con otras funciones (como izquierda o encontrar) Si te aseguras que el término mayor sea 'inventario' entonces podrías utilizar esto: =+SUMAR.SI(A12:B20;">=D13";B12:B20) donde en D13 tengas ese término. Pero...

Elsa Matilde respondió: Necesito que me aclares un poco más: ¿Mencionas? ¿Filas? A o B pero supongo que estamos hablando de col. La idea entonces es que si se encuentra cierta fecha en col A o B no se elimine su fila, pero si se encuentra en el resto de la hoja, si se...

Elsa Matilde respondió: Mencionas que 'aparece' el calendar. Bueno, en esa instrucción de llamada agregás la que te muestre el día actual. Algo así Calendar1.Visible = True Calendar1.Value = Date()