Adriel Ortiz Mangia

Adriel Ortiz Mangia

La vida es hermosa
 252K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Respuestas

Respuesta en y en 1 temas más a

Macro para copiar los datos de una columna solo hasta la ultima fila q tenga datos

H o l a te paso la macro Sub copiar() 'por.Adriel ortiz Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") j = h1.Range("C" & Rows.Count).End(xlUp).Row If j > 1 Then j = 5 For i = 5 To h1.Range("C" & Rows.Count).End(xlUp).Row u = h2.Range("B" &...

Máscara en Excel Texto - Números

H o l a: te paso la formula y verifica tus separadores si es coma(,) o punto y coma (;) =IZQUIERDA(A1,1)&"-"&IZQUIERDA(A1,8)&"-"&DERECHA(A1,1) valora para finalizar Excelente o bueno saludos!
Respuesta en y en 2 temas más a

Cómo relacionar un botón con una operación en excel.¿Macros?

H o l a te paso un ejemplo Private Sub CheckBox1_Click() If CheckBox1 = True Then Subtotal = Range("D6").Value descuento = Range("D6").Value - (Subtotal * 0.03) Range("D7") = descuento Else Range("D7") = "" End If End Sub
Respuesta en y en 2 temas más a

Macrio para borrar contenido de un rango si está vacío

H o l a Te paso la macro Sub borrar() Sheets("hoja1").Range("A1:B10").ClearContents End Sub si son rangos variables Sub borrar() Sheets("hoja1").Range("A1:A4", "B3:B5").ClearContents End Sub valora la respuestas si es Excelente o bueno para finalizar...

Comparar y cambiar datos excel mediante formulario

H o l a: Te paso la macro Sub comparar_copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja3") Set h2 = Sheets("Hoja4") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is...
Respuesta en y en 2 temas más a

Tengo Macro para convertir archivo de Excel a PDF, ahora quiero agregar que mande el PDF por correo

H o l a prueba esto y me comentas Sub exportarPDF2() nombre = Cells(47, 5).Value ruta = Cells(48, 5).Value destinatario = Cells(49, 5).Value fecha = Sheets("FORMULAS").Cells(12, 2).Value If Sheets("ReporteAct").Cells(46, 5) > 0 Then...
Respuesta en y en 1 temas más a

Como poner un condicional que solo acepte numero a varios textbox

H o l a: esto ingresa en un módulo Public Function ValidarCaracter(ByVal KeyAscii As Integer) As Integer If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 65) And (KeyAscii < 90) Then MsgBox "INGRESE SOLO EL NUMERO" KeyAscii = 8 End If End...
Respuesta en y en 2 temas más a

Macro para guardar hoja excel en PDF

H o l a: Te paso la macro y actualiza las celdas para el nombre del pdf Ruta = ThisWorkbook.Path & "\" '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- nomb = [A1] & "_" & [A2] & "_" & [A3] & "_" & [A4] ' EN ESTA LINEA CAMBIA LAS CELDAS PARA EL NOMBRE DEL ARCHIVO...

Como abrir un archivo WinRAR

Tutotorial https://www.youtube.com/watch?v=_LedeGQpXrU descomprimir https://www.youtube.com/watch?v=MUX1NAFEyIs
Respuesta en y en 1 temas más a

Proteger la programación de Vba con password

H o l a aquí la explicación https://www.youtube.com/watch?v=vJqf6E4-mwI curso de seguridad en vba http://excelservicios.com/curso-seguridad-vba-excel/