Dante Amor

Puede poner tu macro para revisarla y actualizarla

H o l a: Te anexo la macro Sub BuscarValor() 'Por.Dante Amor dato = InputBox("Introduce el valor determinado", "BUSCAR VALOR") If dato = "" Then Exit Sub ' Set r = Range("D4:W16") Set b = r.Find(dato, lookat:=xlWhole, LookIn:=xlValues) If Not b Is...

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,...

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 la: Envíame tu archivo con ejemplos, me dices qué quieres sumar, cuáles son las condiciones y me pones la respuesta esperada. En la misma hoja me explicas el ejemplo con comentarios y colores. Mi correo [email protected] En el asunto del correo...