Adriel Ortiz Mangia

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() 'Por Adriel Ortiz 'https://www.todoexpertos.com/preguntas/ Application.ScreenUpdating = False ' Set h = Sheets("Hoja1") ' cambia el nombre de la...

[Hola Usa la siguiente fórmula suponiendo que la fecha inicial lo tienes en A1 y fecha final en B1 =SIFECHA(A1,B1,"d")

[Hola Sub buscar() 'Act. Adriel Ortiz '//Todoexpertos ' codi = InputBox("Ingresa código a buscar") 'si dejó el campo vacío cancela el proceso If IsEmpty(codi) Then Exit Sub 'busca el código en Hoja2, col A Set busco =...

[Hola En el evento change de tu hoja pon esta macro Private Sub Worksheet_Change(ByVal Target As Range) ' col = "B:B" ' columna stock col2 = "C" ' columna recompra ' If Not Intersect(Target, Range(col)) Is Nothing Then If Target.Count > 1 Then Exit...

[Hola Que tal así h1.Range("A" & b.Row & ":B" & b.Row).Copy h2.Range("A" & j)

[Hola Envíame tu archivo para revisarlo [email protected]

[Hola usa esto Sub limpiar() Set h1 = Sheets("Hoja1") ' H1.Range("B3:Q" & Rows. Count). ClearContents End Sub

[Hola Envíame tu archivo [email protected] y me explicas con tus datos y en otra hoja el resultado esperado

[Hola envíame tu archivo [email protected]

[Hola Lo conseguimos con esta macro, copia esto en la hoja2. Estoy suponiendo que en la hoja1, columnas A están los registros y en la hoja2 columna A los registros utilizados. Cuando digitas un registro y presionas enter la macro busca coincidencias...