Dante Amor

Entiendo lo siguiente, quieres actualizar la hoja según el número de SV. Para eso tienes que buscar el número de SV en la hoja2, en la columna "I", obtener la fila y entonces actualizar los datos. No pusiste tu código completo, reemplaza tu código...

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

Pon la siguiente macro en un botón Sub Ordenar_Datos() Application.ScreenUpdating = False u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row With Range("A2:G" & u) .Sort Key1:=.Cells(1, 4), Order1:=xlDescending, Header:=xlYes End...

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," & _...

Te anexo la macro Sub Rellenar() 'Por.Dante Amor u = Range("B" & Rows.Count).End(xlUp).Row Range("I9:BE9").AutoFill Destination:=Range("I9:BE" & u), Type:=xlFillDefault End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ....

H o l a: Te anexo la macro para filtrar por fechas. Solamente tienes que completar algunos datos. En la macro cambia "Libro2.xlsx" por el nombre donde tienes tus datosCambia el número 1 (uno) en la línea f = 1, por la fila donde tienes los...

Recién puse una macro para filtrar por rango de fechas. Revisa el siguiente enlace Filtrar por textos o por números u otros valores Revisa si puedes adaptarlo a tu userform o me avisas y lo actualizo a tus necesidades. . 'S aludos. Dante Amor....

Te anexo el código. Cambia TextBox12 por el nombre del control donde capturas los bultos. Cambia "Hoja5" por el nombre de tu hoja donde vas a poner los datos. Completa los controles según la columna que les corresponde. Private Sub...

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