asaroma

Prueba esto : Sub copia() Var = Range("e10").Value Range("g19").Value = Var End Sub La celda E10 en mi caso es la celda que contiene la fórmula y todo el resultado que deseas, la celda G19 es la celda a donde quiero copiar el valor pero solo como valor.

Tendría que aplicar formato condicional en la misma celda o celdas que esta la fórmula, y darle la condición ahí mismo. Me parece que el tema de que salga de color de texto blanco es con formato condicional.

Puedes usar en al columna C la función Si. Error, seria algo así: =Si.Error(formula_que_aplicas,valor_si_es_error) por ejemplo: =Si.Error(a2*b3,0) Esta función te permitirá que en vez de que te salga #DIV/0 te salga CERO (0) y así ignoraría las...

Te adjunto el código para ocultar las celdas 20:45 y columna H: Sub Macro1() Rows("20:45").Select Selection.EntireRow.Hidden = True Columns("H:H").Select Selection.EntireColumn.Hidden = True Cells(1, 1).Select End Sub No entendi eso de los botones...

No entendí muy bien, pero si quieres ligar a una lista datos que estén en otras hojas tienes que hacerlo asignando nombres a los rangos. Cualquier duda me mandas tu archivo explicándome [email protected]

Pra activar el buscador de windows, copia este código en un modulo: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_KEYUP = &H2 Const VK_LWIN =...

En el botón de siguiente o avanzar tendrías que comenzar a validar todos los textbox que tuvieras en tu userform: If TextBox1 = "" Then msgbox"Faltan Completar datos" TextBox1. Setfocus Exit Sub End If Y el mismo proceso para los demás textbox.

¿Lo qué no me quedo claro fue lo del saldo? Hola aver checa esta imagen: La celda C7 de color amarillo es donde tengo la Lista

Asumo que la fecha de vencimiento lo comparas con la fecha actual de tu PC: =SI(Y(HOY()>=F2;G2<E2);"VENCIDA";SI(G2=E2;"PAGADO";..... y continuas... la idea cetral es esa, ¿lo qué ue no em quedo claro es cuando es cancelada?

Prueba esta macro: Sub AbrirCarpeta() Dim carpeta As String carpeta = "C:\GUIA OFFICE" Call Shell("explorer.exe " & carpeta, vbNormalFocus) End Sub