Dante Amor

H o l a: Te anexo la macro Sub Colorear_Fechas_Mes() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(1, "A")) Then If Month(Cells(i, "A")) = Month(Date) Then Cells(i, "A").Interior.ColorIndex = 6 Else Cells(i,...

H o la: Supongo que al seleccionar la pestaña quieres que se ejecute una macro, entonces utiliza el evento Change: Private Sub MultiPage1_Change() If MultiPage1.Value = 0 Then MsgBox "Ejecutar macro" End If End Sub En MultiPage1.Value tienes el...

Pero ya te había enviado la macro simplificada. No entiendo tu código. Pero puedes probar nuevamente con mi macro. Ya puse las líneas para poner el texto en la columna "D" Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Dim...

Quieres comparar cada uno de los datos del combo con un textbox, ¿pero si lo encuentra qué hace y si no lo encuentra qué hace? Estas son las instrucciones para leer todos los datos contenidos en un combobox Private Sub CommandButton1_Click()...

H o la: Te anexo el código simplificado: Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Pondera") If IsNumeric(TextBox1) Then rut = Val(TextBox1) Else rut = TextBox1 Set b = h1.Columns("A").Find(rut,...

Y qué necesitas almacenar en la hoja, ¿la ruta y el nombre del archivo pdf?

H o l a: Envíame tu archivo con algunos ejemplos, me dices en esos ejemplos, cuáles se enviarían al llegar a la fecha 9 de feb de 2017, o cuáles se enviarían el día de mañana 10feb2017. Mi correo [email protected] En el asunto del correo escribe tu...

H ol a: Ejecuta la "Macro1" para desproteger las celdas: Sub Macro1() 'Por.Dante Amor '1 para desproteger Call Prot_Des(1, "Hoja1", "ABC", "A10:B20") Call Prot_Des(1, "Hoja2", "ABC", "B20:C30") End Sub También agrega el siguiente código al módulo:...

Te anexo la macro actualizada Sub ProcesarArchivosTexto() Dim Archivo As Variant Archivos = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Seleccionar archivos", , True) fila = 2 col = 1 If IsArray(Archivos) = True Then For x = 1 To...

H o l a: Envíame el archivo con el formulario, recuerda poner tu nombre de usuario en el asunto.