Dante Amor

Te anexo la macro Sub Copiar_Valor_De_Arriba() 'Por Dante Amor For i = 2 To Range("D" & Rows.Count).End(xlUp).Row If Cells(i, "B").Value = "" Or Cells(i, "B").Value = 0 Then Cells(i, "B").Value = Cells(i - 1, "B").Value End If If Cells(i, "C").Value...

Te anexo la macro. Cambia la ruta por tu carpeta y "abc" por el password que desees. Sub Macro7() ' Por Dante Amor ' Bloquear todas las celdas de todas las hojas y proteger las hojas ' Application.ScreenUpdating = False ruta = "C:\trabajo\libros\"...

Ejecuta la siguiente macro. Cambia "abc" por el password que actualmente tengan las hojas si es que están protegidas, o por el password que deseas poner. Sub Macro7() ' Por Dante Amor ' Bloquear todas las celdas de todas las hojas y proteger las...

Lo que pasa es que estás poniendo en esta línea el mismo dato de la celda "C2" . Attachments. Add Range("C2").Value Para enviar el archivo correspondiente a cada fila , cambia la línea por esta: .Attachments.Add Range("C" & cell.row).Value[Si te...

Estoy un poco enredado. Para entender qué vas a buscar, en dónde lo vas a buscar, qué quieres de resultado y en dónde quieres poner el resultado, vamos a desglosar la fórmula BuscarV, te parece bien: - Nombre libro, Nombre Hoja y la columna donde...

Tengo varias respuestas sobre ese tema, puedes revisar los siguientes enlaces: Tengo un Listbox con 20 columnas pero sólo me muestra 10 Codigo VBA para un Listbox con mas de 10 columnas Error en mi listbox de 20 me marca solo 10 La idea básica es...

Para permitir solamente números desde la captura, agrega el siguiente evento a tu textbox. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End If End Sub Cambia...

Para dejar una fecha fija en una celda en función del dato de otra celda, y que además sea en automático, podrías hacerlo con un código VBA pero en el evento de tu hoja. Por ejemplo, si quieres validar la columna A y poner el resultado en la columna...

Crear una macro para que se adapte a todas las posibilidades que se te puedan ocurrir no es muy posible. Para que te des una idea, - La condición es sobre una columna o sobre varias columnas. - Cuántas condiciones establecerás. - Las condiciones...

Pon el siguiente código en tu hoja2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub Sheets("Hoja1").CommandButton1.Caption = Range("A1").Value End If End...