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

Seria algo así: Sub ir() Name1 = InputBox("Ingresa el Nombre de la Hoja a Ubicar", "AVISO") Sheets(Name1).Select End sub

Lo que podrías hacer es agregar al nombre la hora en que esta siendo guardado, algo así: tim = Format$(Time, "hh-mm-ss") La variable tim almacenara la hora con sus minutos y sus segundos, por ejemplo si estas y guardas a en la mañana: 09-10-23 si...

No entendí bien pero ahí va este código: Lo que hace al ejecutarlo es pedirte la hoja que deseas copiar, y luego te pedirá el nombre de la hoja a donde vas a copiar, pruébalo: Sub copiando() Name1 = InputBox("Ingresa el Nombre de la Hoja a Copiar",...

Algo asi podria ser, la funcion ESERROR te permite verificar si el resultado es un tipo de error, como #N/A #DIV/0 #REF entre otros, lo unico que haces es verificar si tu busqueda te da un tipo de error si te da un tipo de error entonces pone "" la...

Prueba esta fórmula: el Operador ---> & sirve también apra concatenar =EXTRAE(B12;2;1)&DERECHA(B12;1)&C12 En vez de poner punto y coma ---> ; ponle la coma---->, o viceversa.