José Saúl Méndez Alonso

¿En qué lenguaje estas trabajando o bien en que aplicación?

Cambia tu fórmula Salario estimado =suma(b2:b8)*8 por la siguiente =SI(CONTARA(B2:B8)<7,SUMA(B2:B8)*8,"") Espero te sea de utilidad, no te olvides de finalizar y calificar.

Te dejo este código a ver si te sirve Sub CopiaArchivos() Dim Arch As String Arch = Dir("E:\*.DOC") Do Until Arch = "" FileCopy "E:\" & Arch, "C:\" & Arch Arch = Dir Loop End Sub

Pon la propiedad WordWrap en True y dependiendo del ancho de la columna el texto se ajustará entre varias líneas También necesitas un función que en base a la cantidad de caracteres encontrados te ajuste el alto de las filas Private Function...

Hice una modificación a tu código a ver si te sirve Option Explicit Dim MiConexion As ADODB.Connection Dim MiRecordset As ADODB.Recordset Dim ruta As String Private Sub Form_Load() Set MiConexion = New ADODB.Connection Set MiRecordset = New...

Te dejo este código de ejemplo a ver si te sirve ActiveSheet.Range("$A$1:$A$40").AutoFilter field:=1, Criteria1:=">=" & Range("B1"), Operator:=xlAnd, Criteria2:="<=" & Range("C1")

Utiliza el evento BeforeClose del objeto Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = -1 'esto sirve para que no se salga lo puedes condicionar End Sub

Te dejo este código a ver si te sirve Sub Concatena() Dim sCelda As String Dim nTotalFilas As Integer Dim nFila As Integer Dim nUltimaFila As Integer Range("B1").Select 'Suponiendo que aquín comienza la lista Range(Selection,...

NO existe una función que haga eso pero se puede crear con una MACRO En tu archivo puedes copiar el siguiente código y luego usarlo como una Función común a la cual sólo deberás agregarle la referencia de la celda Public Function ValidaRuta(ByVal...

Hay varias opciones que se me ocurren, pero primero me gustaría saber un poco más de tu cuadro combinado, es decir tiene un rango de entrada o si esta vinculado a una celda y también si es un control estándar o si es activex. Dependiendo de eso te...