Dante Amor

buscarv(A2;tablabase;1;0) Tu primer fórmula tiene la columna 1, la columna 1 regresa el mismo valor que estás buscando, ¿realmente quieres eso? Puedes poner la siguiente fórmula en B2 y copiar hacia la derecha. En automático incrementa el número de...

Responde lo siguiente y en este orden: 1. ¿Qué vas a poner en el textbox? ¿Es texto o números? 2. En dónde va a buscar, ¿en cuál hoja y en cuál columna? 3. ¿En dónde va a pegar? ¿Siempre en la fila 4? ¿O después de la ultima fila con datos?

Si tus datos empiezan en la celda A2. Pon la siguiente fórmula en la celda B2 =DERECHA(A2, 10) Copia la fórmula hacia abajo hasta el final de tus datos. Note: Si utilizas el punto y coma ( ; ) como separador de argumentos, entonces cambia en la...

Prueba lo siguiente: Sub Macro1() Dim cod As Variant, f As Range cod = Application.InputBox("Entra el código") If cod = "" Or cod = False Then Exit Sub Set f = Sheets("Constantes").Range("A:A").Find(cod, , xlValues, xlWhole, , , False) If Not f Is...

Aquí otra opción: =SI.ERROR(BUSCARV(A2;$A$20:$B$23;2;0);0) Puedes ver en la siguiente imagen cómo está aplicada la fórmula:

Prueba la siguiente: Sub BorrarHojas() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If WorksheetFunction.CountA(sh.UsedRange) = 0 And _ WorksheetFunction.Count(sh.UsedRange) = 0 Then sh.Delete End If Next End Sub

¿Ya tienes una macro para enviar correos? Pon aquí la macro, utiliza el icono para insertar código: ¿Qué datos van en el correo? Puedes poner una imagen con un ejemplo de tus datos. Lo que debe tener la imagen:

Puedes explicarlo con ejemplos. Pon aquí imágenes con ejemplos, reemplaza tus datos confidenciales con datos genéricos. Lo que debe contener cada imagen:

Ho la y bienvenida a TodoExpertos! Puedes poner tu macro completa. Utiliza el icono para insertar código: Te aparece el error y presionas "Depurar", ¿cuál línea de la macro te aparece resaltada en amarillo? Puedes poner una imagen con una muestra de...

Prueba lo siguiente: Sub test_1() Dim i As Long For i = 6 To Range("E" & Rows.Count).End(3).Row If Range("F" & i) & Range("G" & i) & Range("H" & i) = "" Then Select Case Range("E" & i).Value Case 1: Range("F" & i).Resize(1, 3).Value = Array(3, 2, 1)...