Dante Amor

H o l a: Te anexo la macro para extraer. Sub Extraer() 'Por.Dante Amor u = Range("B" & Rows.Count).End(xlUp).Row Range("C3:F" & u).ClearContents For i = 3 To u For j = 2 To Range("j" & Rows.Count).End(xlUp).Row c = InStr(1, UCase(Cells(i, "B")),...

H o l a: Agrega lo siguiente a tu macro o ejecuta la siguiente macro para poner la fórmula, cambia la letra K por la letra de la columna donde quieras poner la fórmula, si cambias la letra K, también deberás cambiar el -1 por el número de columnas...

H o l a: Te anexo la macro actualizada: Sub validacion() Application.ScreenUpdating = False EnableEvents = False Sheets("hoja1").Select Range("L7").Select Dim myValor As String myValor = Range("l7").Value Sheets("hoja2").Select Range("D1").Select Do...

H o l a: Te anexo la macro; supongo que después de reemplazar # por %# quieres que se cambie a rojo el texto. Si no quieres que se cambie el texto a rojo, entonces elimina esta línea de la macro: b.Font.Color = RGB(255, 0, 0) La macro: Sub...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A2:A200")) Is Nothing Then fila = Target.Row If fila = 1 Then Exit Sub Cells(fila,...

H o l a: Ejecuta la siguiente macro, cambia "archivo1.docx" por el nombre del archivo que está abierto; cambia "archivo2.docx" por el nuevo nombre nombre del archivo. Sub guardarWord() 'Por.Dante Amor Application.ScreenUpdating = False Set appWord =...

H o l a: Te anexo la macro actualizada, el detalle es que copias unas celdas y las pegas en la celda F7, entonces como estás modificando nuevamente la celda F7 se activa otra vez la macro, para que no se active otra vez la macro, se pone la...

H o l a: Hay una opción cuando guardas el archivo para indicarle si es todo el archivo o la hoja activa. Si no te funciona, para hacerte la macro y enviar el correo, puedes poner los siguientes datos: A cuál correoTexto del asuntoTexto del...

H o l a: Tienes que crear una clase y agregar todos los textbox en la clase. Primero crea la clase1 y agregas el siguiente código: Option Explicit Public WithEvents tbxCustom1 As MSForms.TextBox 'Custom Textbox Private Sub tbxCustom1_Change() 'En...

Tendría que ser con una macro. Cualquier fórmula de excel trabaja con el resultado de la celda. Si tu tienes en la celda esto: +10+15+20+50+50+40+60 El resultado es 245, cualquier otra fórmula que trabaje sobre la celda A1 lo hará sobre el valor 245....