Adriel Ortiz Mangia

[Hola prueba con esto Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then fecha = TextBox1 & "/" & Month(Date) & "/" & Year(Date) TextBox1 = CDate(fecha) End If

[/Hola Te paso la macro Valora la respuesta para finalizar Sub separar() 'Por Adriel 'https://www.todoexpertos.com Application.ScreenUpdating = False For i = 3 To Range("C" & Rows.Count).End(xlUp).Row datos = Split(Cells(i, "C"), "-") On Error Resume...

[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