Dante Amor

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 : Hay que agregar esta línea linea.Line.ForeColor.RGB = RGB(0, 0, 0) Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("L8")) Is...

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 : Te anexo el código para cargar los datos en el combo Private Sub CheckBox1_Click() Call CargarCombo(ComboBox1, CheckBox1, "PROTECTOR AUDITIVO") End Sub Private Sub CheckBox2_Click() Call CargarCombo(ComboBox2, CheckBox2, "LENTES DE...

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

Utiliza la función CDate para pasar la fecha del textbox a la celda, por ejemplo: If IsDate(TextBox1) Then Range("B5") = CDate(TextBox1) Else MsgBox "Captura una fecha correcta" End If 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Puedes poner 2 imágenes, una con los datos antes de las sumas y otra imagen con los datos después de poner las sumas. Es para ver cómo tienes los datos y en dónde quieres las sumas.

H o l a : Te anexo la macro para agregar un checkbox cuando insertas un nuevo dato en la columna B. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column <> 2 Then Exit Sub If Target.Row < 6 Then Exit Sub If...

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