Dante Amor

H o l a: Te anexo las macros de la aplicación para enviar los correos masivamente: En un módulo '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam =...

H o l a : Crea una hoja llamada "resumen" Te anexo la macro Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("resumen") h1.Cells.Clear i = 1 For Each h In Sheets If h.Name <> h1.Name Then h.Range("A1:D18").Copy h1.Range("A" & i).PasteSpecial...

H o l a : No entendí lo que necesitas. Podrías explicarlo con ejemplos.

H o l a : Te explico un poco sobre el manejo de variables. El userform se carga en memoria, cuando cierras el userform, todo el contenido del userform se destruye, es decir, no queda nada en memoria. Se puede resolver de esta forma, antes de cerrar...

H o l a: Te anexo la macro actualizada. En estos casos es mejor, utilizar el método Find( ), de esa forma podemos obtener toda la información del dato encontrado, como la fila, la columna, la dirección, el color de la celda, el contenido de la celda,...

H o l a : Te anexo la macro actualizada Cambia "C:\trabajo\" por la ruta en donde quieras guardar el archivo, si solamente quieres que sea en C, entonces pon "C:\" Sub GuardarVersion() ruta = "C:\trabajo\" If InStr(ActiveWorkbook.Name, "_v") = 0 Then...

H o l a : Te anexo la macro actualizada Sub busquedavertical() Dim cont As Long 'Controla cual es la ultima linea Dim ultlinea As Long Dim CTA As Variant 'Extrae el numero de cuenta Dim NivelSCBS As Variant 'va a traer el numero de cuenta Dim rango...

H o l a : No entendí esta parte: "LMN3 ( es una celda combinada de l3 a m23" no sé cuáles son las celdas combinadas. Pero puedes poner la siguiente macro en un botón. Presionas el botón y la macro te creará las líneas inclinadas. En tu imagen se...

H o l a : En un correo nuevo. Envíame un archivo de ejemplo, con 4 hojas de la siguiente forma: 2 hojas con datos 1 hoja sin datos 1 hoja con el resumen de las 3 hojas anteriores; el resumen contendrá solamente lo datos de 2 hojas, porque la tercera...

Te anexo la macro Sub BuscarCodigos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("C" & Rows.Count).End(xlUp).Row For Each h In Sheets Select Case h.Name Case Is <> h1.Name Set b = h.Cells.Find(h1.Cells(i, "C"), LookAt:=xlWhole) If...