nauri

santiagomf respondió: Lo que no hay duda es que siempre tendrás que ejecutar el evento 'Workbook_Open'. La primera vez completo y las restantes se cancelará tras comprobar que ya se ejecutó completo. Se me ocurren 2 formas: 1) Guardar en la propia hoja de cálculo algún...

Elsa Matilde respondió: Te propongo 2 cambios: For i = 5 to 65 Step 2 y le quitás la línea al final de las fórmulas que dice: i=i+1 Además incluir una instrucción al inicio para pasar a modo de cálculo manual, y recién al finalizar el bucle lo pasás a automático, para que...

Elsa Matilde respondió: Si bien puedo ofrecerte alguna otra rutina para que la pruebes, me temo que tendrás el mismo problema. ------------------- Por lo tanto mi sugerencia, es que tengas 2 o + celdas donde vayas concatenando por partes. Luego podrás usar un bucle para...

jerryeagle respondió: Pon este código en el botón Set Valor = InputBox("El texto que quieras ponerle") If Valor is Nothing then Exit Sub If Range("R40") = "" then Range("R40") = Valor Else Range("R" & Rows.Count).End(xlUp).Offset(1, 0) = Valor End If

Juan Carlos González Chavarría respondió: Sub Mail_ActiveSheet() Dim strDate As String ActiveSheet.Copy strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail...

Elsa Matilde respondió: Si la celda BG4 cambiará de Falso a Verdadero debo suponer entonces que esa celda tiene una fórmula, ¿es correcto? Si es así, no hay manera de controlarlo. Excel no detecta cambios en celda cuando se trata de resultado de fórmulas. Lo que sí se...

jrgces respondió: Prueba con esta fórmula matricial (hay que introducirla pulsando mayúsculas control entrada al mismo tiempo), que tendrás que poner en la fila 1 de una columna vacía y copiar y pegar hacia abajo:...

Anónimo respondió: Lo que podes hacer es utilizar alguna variable (que podrías poner en alguna hoja oculta) y luego haces algo del estilo) If Range("codigoEjecutado") = 0 Then 'si es cero se ejecuta Range("codigoEjecutado") = 1 if ActiveCell = "HOLA" Then ... Endif Y...