Dante Amor

Pon la siguiente fórmula en la celda de la descripción: ="Puerta seccional blanca con guías verticales y de tal y tal de medidas " & Hoja4!F2 & " ancho por " & Hoja4!F3 & " alto." Cambia en la fórmula Hoja4!F2 y Hoja4!F3 por la hoja y las celdas...

Podrías hacer una tabla dinámica: O puedes utilizar la siguiente fórmula: =SUMAR.SI.CONJUNTO(Diario!$I$3:$I$13;Diario!$F$3:$F$13;B3;Diario!$C$3:$C$13;">="&D3;Diario!$C$3:$C$13;"<="&FIN.MES(D3;0)) Los datos en la hoja Resumen. Nota: Las fechas en la...

Sin embargo quisiera sacar una copia del libro (con todas sus hojas) pero que sea solamente de valores... Algo así como un libro sin macros y con la misma enviarlo por correo a un correo predeterminado Prueba la siguiente: Sub CopiarHojasEnviar() Dim...

Los 2 libros deben estar abiertos Sub copiarhojas() Dim sh As Worksheet For Each sh In Workbooks("Libro2.xlsx").Sheets sh.Cells.Copy ThisWorkbook.Sheets(sh.Name).Range("A1") Next End Sub

Revisa si lo siguiente te entrega el resultado que necesitas: años = Int((FINCUR - INICIOCUR) / 365)

Prueba la siguiente macro, cambia C:\trabajo\varios\" por el nombre de tu carpeta. Sub GenerarPdfs() Dim carpeta As String, sName As String, arch As Variant Dim wb As Workbook, sh As Worksheet ' Application.ScreenUpdating = False carpeta =...

Si el textbox tiene formato, puedes utilizar la función CDbl para convertir el texto a valor numérico: Private Sub TextPrecio_Change() If Combo_C_V = "COMPRA" Then TextTGtos = ((TextNroTitul * TextPrecio) * TextPorc / 100 + _ (TextNroTitul *...

No entiendo bien qué necesitas. ¿Tienes un gráfico en una hoja? ¿Quieres ese gráfico en un userform? Si es así, tienes que guardar el gráfico como imagen en un archivo. Después se carga el archivo en un control Image en el formulario. Te pongo...

Prueba la siguiente fórmula: =INDICE(B5:I16;COINCIDIR(A1;A5:A16;0);COINCIDIR(A2;B4:I4;0))

Prueba la siguiente: Option Explicit Sub CopiaDatos() Dim uf As Long Application.ScreenUpdating = False With Sheets("Hoja2") If .FilterMode Then .ShowAllData 'Quitamos el filtro uf = .Range("AQ" & Rows.Count).End(3).Row .Range("AQ1").AutoFilter...