pitcher_

La función "Si" te puede ayudar como esta : =SI(A1=B1;"Si";"No") o tambien dando una consulta al resultado : =SI(D1=VERDADERO;"SI";"NO")

Solo agregue en tu código un "\" cuando das la ruta del archivo y funciono. Y deje como comentario objMessage. Display por que anterior mente haces al objeto un log off y funciona. Public Sub SendMail() 'On Error GoTo Err_SendMail Dim objOutlook As...

Disculpa la demora en contestar, pero no tenia tiempo. Mira pega este código: Sub Puesto() Ciclo = Range("E65535").End(xlUp).Row Range("A2:E" & Ciclo).Select Selection.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1,...

Para identificar la ultima columna es de la siguiente manera Aux = Range("IV16").End(xlToLeft).Column

Para que te agregue los valores en la misma celda es así. ActiveCell.Value = "" For I = 1 To 3 If Me.Controls("Checkbox" & I).Value = True Then ActiveCell.Value = ActiveCell.Value & " " & Me.Controls("checkbox" & I).Caption & vbCrLf End If Next I

Se puede hacer, tengo varias ideas de como hacerlo. Este código es cuando uno abre el archivo y revisa tu fórmula de =DIAS360(HOY();A5) y si el menor a 3 envía el mensaje. Este código debes pegarlo en ThisWorkbook Private Sub Workbook_Open() If...

Por más que intente darle al recordset la consulta de access no me fue posible, creo que lo único que tienes que hacer es darle la sentencia de Sql. Suerte Pitcher !

Que te parece si me envías el archivo a victorpalmacastro@hotmail. Así podre trabajar directamente en lo que necesitas y vemos que se puede hacer. Saludos Pitcher!

Este código es como para orientarte en lo que tu quieres. Si ya tienes el archivo guardado con los nombres. Mira este código lo tienes que pegar en la hoja el cual están los nombres. Private Sub Worksheet_Change(ByVal Target As Range) Dim Filas,...

Intenta seleccionar el rango de la siguiente manera: Sheets("Hoja2").Range("A1").Select Se produce este error por que el commandbutton1 (botón), esta como objeto en la hoja1. Es por este motivo que se debe dejar de esta manera.