Dante Amor

Te anexo el código. Nota: Los nombres de los checkbox "checkboxtodos", "checkboxvideo", "checkboxadjunto", los puse en minúsculas, ya que también estoy poniendo en minúsculas el nombre: LCase(ctrl. Name), de esa forma puede coincidir el nombre. Es...

Esta es la parte que utilizar para realizar la carga del combo: Sheets("visita").Select Range("b3").Select Do While ActiveCell <> Empty ComboBox2.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Seleccionas la hoja "visita", seleccionas...

H o la: El primer caso no existe; estás poniendo 31 de noviembre y esa fecha no existe. ¿Es necesario poner el formato condicional con macro? La otra forma es que pongas el formato condicional desde del menú de formato condicional. ¿O puedes poner el...

H o l a : Tengo una aplicación para enviar correos masivos, pero tendrías que adaptar tu información a la aplicación, o bien, tendría que crear una aplicación nueva para tu archivo. Envíame tu archivo con ejemplos completos de lo que tienes y de lo...

H o l a: Te anexo la macro, te copia la hoja y te pone el nombre en la nueva hoja. Cambia en la macro "distribución" por el nombre de la hoja que quieras copiar. "D1" por la celda que contiene el nombre de la hoja. La macro además te guarda el...

Para considerar todos los textbox que quieras, agrega el siguiente código en tu userform Dim colTbxs As Collection 'Collection Of Custom Textboxes ' Private Sub UserForm_Initialize() Dim ctlLoop As MSForms.Control Dim clsObject As Clase1 Set colTbxs...

Te anexo la macro Sub ocultar() 'Por.Dante Amor For i = Range("E" & Rows.Count).End(xlUp).Row To 4 Step -1 If LCase(Cells(i, "E")) = "no" Then Rows(i).Hidden = True End If Next End Sub Si el caso es más complejo como lo indicas, entonces podrías...

Te anexo la macro. Valida si existe la carpeta, si tienes datos en la ruta y el nombre. Si todo está bien, el archivo pdf se envía por outlook Sub exportarPDF2() 'Act.Por.Dante Amor ruta = Cells(48, 5).Value nombre = Cells(47, 5).Value destinatario =...

H o l a : Te anexo la macro Sub CambiaColor() 'Por.Dante Amor For i = 15 To 500 cuenta = WorksheetFunction.CountIf(Range("D15:D500"), Cells(i, "D")) If cuenta = 1 Then Cells(i, "I").Interior.ColorIndex = 6 End If Next End Sub 'S aludos. Dante Amor....

H o l a: Según la pantalla que pusiste, los datos empiezan en la columna D, en la siguiente columna está la descripción y siete columnas a la derecha está la cantidad. Si todas las columnas cumplen con esa regla, ejecuta la siguiente macro. Crea 2...