Dante Amor

Ho la Ricardo y bienvenido a TodoExpertos! Lo puedes hacer con fórmula: En la celda G6 pon la siguiente fórmula: =FECHA(AÑO($C$5);MES($C$5)-(FILAS($F$6:F6)+1);1) Y la copias hacia abajo. Pero si quieres la macro: Sub PonerFechas() With...

¿Qué tipo de cuadro es el del lado drecho? ¿O simplemente las celdas están combinadas? ¿Qué tipo de referencia es lo que tienes en la celda A1? ¿Es un nombre de archivo? En dónde está el archivo, en cuál carpeta, ¿cuál es la extensión del archivo?...

Prueba la siguiente macro: Sub subtotales() Dim i As Long, ini As Long, fin As Long Dim ant As String, subti As String Dim una As Boolean Dim subt1 As Double, subt2 As Double, subt3 As Double, subt4 As Double ' Application.ScreenUpdating = False '...

Puedes poner una imagen con el resultado que quieres en base a tu primera imagen y explica cómo llegas a ese resultado.

Revisa la función BuscarV, aquí te muestro unos ejemplos de su utilización: Resultado de fórmula en tres líneas en la misma celda Utilizar función Si y Buscarv anidadas Cómo logro que fórmula BUSCARV devuelva 0 en vez de #n/a? Te anexo un vídeo para...

Continuando con mi analogía: Imagina que tienes una biblioteca. En la biblioteca tienes los siguientes temas y número de libros Física 4 libros Química 5 libros Biología 3 libros Matemáticas 8 libros Y te piden buscar la palabra "roca" en todos los...

Voy a tratar de explicar lo que necesitas con una analogía. Imagina que tienes una biblioteca. En la biblioteca tienes los siguientes temas y número de libros Física 4 libros Química 5 libros Biología 3 libros Matemáticas 8 libros Y te piden buscar...

Prueba lo siguiente: Private Sub ListBox1_Click() Dim sh As Worksheet Dim f As Range ' Set sh = Sheets("Inventario") Set f = sh.Range("A:A").Find(ListBox1, , xlValues, xlWhole, , , False) If Not f Is Nothing Then f.Select End If End Sub Notas: Lo...

Te paso el código completo: Private Sub CommandButton5_Click() Dim sh As Worksheet Dim i As Long, j As Long Dim f As Range ' Set sh = Sheets("Inventario") j = 1 'columna "A" ' Me.ListBox1.Clear If Me.txtFiltro1.Value = "" Then Exit Sub ' Set f =...

Prueba lo siguiente: Private Sub CommandButton5_Click() Dim sh As Worksheet Dim i As Long, j As Long Dim f As Range ' Set sh = Sheets("Inventario") j = 1 'columna "A" ' Me.ListBox1.Clear If Me.txtFiltro1.Value = "" Then Exit Sub ' Set f =...