Dante Amor

Te anexo la macro Sub Guardar_Otro_Libro() 'Por.Dante Amor nombre = "CUENTA.xlsx" existe = False For Each libro In Workbooks If LCase(libro.Name) = LCase(nombre) Then existe = True Exit For End If Next ' If existe = False Then MsgBox "No está abierto...

Te anexo la macro con algunas actualizaciones Private Sub AgregarBD_Click() ' 'Act.Por.Dante Amor ' ' Application.ScreenUpdating = False ' Set l1 = ThisWorkbook Set l2 = Workbooks("BD_Ventas.xlsm") Set h22 = l2.Sheets("Ventas") fila = 2 h22.Unprotect...

Te anexo la macro. Realiza lo siguiente: 1. Supongo que en la hoja2 en la fila 1 tienes encabezados. 2. Entonces copia el encabezado de la hoja2, celda J1 y lo pegas en la hoja1 celda A1 Es decir, el título en ambas hojas debe ser igual, por ejemplo:...

Te anexo la macro actualizada. Cambia "Hoja1" por el nombre de tu hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("Hoja1") . Unprotect .Range("AR5:AW5,AC8:AW12,AE15:AW16,I15:Y16,AE25:AM25," & _...

Primero, cambia el formato de celdas, en Menú Inicio, Formato, Formato de celdas, Proteger y desactiva la casilla "Bloqueda". Presiona Aceptar Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range)...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = 0 Then...

Revisa el formato de la celda, cuando es formato Texto, no interpreta la fórmula. Revisa que tengas formato General.

Tiene varios detalles la macro, le hice cambios para que funcione, pero no sé si es lo que necesitas, prueba y me comentas. Sub Open_Files() Application.ScreenUpdating = False r = ThisWorkbook.Sheets("layout1").Cells(Rows.Count, 1).End(xlUp).Row + 1...

Envíame 2 archivos, un archivo .log con datos de prueba. Y un archivo de excel, en el archivo de excel vas a acomodar los datos del archivo .log tal y como los quieres. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

Te anexo la macro, crea el pedido desde un código hasta n códigos. Te crea una hoja por cada 20 códigos. Prueba y me comentas Sub Realizar_Pedido() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 =...