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 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 usa esto Sub limpiar() Set h1 = Sheets("Hoja1") ' H1.Range("B3:Q" & Rows. Count). ClearContents End Sub

[Hola envíame tu archivo [email protected]

De acuerdo a esto Basicamente lo que necesito es eliminar las filas donde en la columna C no se encuentren la palaba "Equipo" ni exista fechas. Te paso la macro Sub Eliminar() Set h1 = Sheets("Hoja1") 'Nombre de la hoja ' u = h1.Range("C" &...

[Hola Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("C" & Rows.Count).End(xlUp).Row + 1 h1.Range("A5:E5").Copy h2.Range("C" & u).PasteSpecial xlAll ' Application.CutCopyMode = False MsgBox "Copiado" End Sub Valora la...

[Hola Prueba así Private Sub CommandButton1_Click() If (Len(TextBox1) = 0 Or Len(TextBox1) < 4 Or Len(TextBox1) > 4) Then MsgBox "Error" Exit Sub End If '' ' 'aqui el código que sigue End Sub Valora la repuesta para finalizar saludos!