James Bond

A tu macro solo agrega las líneas en negrita y listo Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If TextBox1.Text = Empty Then GoTo salida If TextBox1.Text = 1 Then...

Solo crea un botón en la hoja principal y pega este código Sub borrar_registros() Set datos = Worksheets("registros").Range("b2").CurrentRegion With datos ask = Val(InputBox("Teclee el registro a borrar", "AVISO")) If ask = Empty Then End cuenta =...

Puedes hacerlo así, solo quedaría decir como te muestre la información en un msgbox o en una celda. tiempo_inicial1=time proceso1.... tiempo_final1=time tiempo1=tiempo_final1-tiempo_inicial1 tiempo1=second(tiempo) ' tiempo_inicial2=time proceso2...

¿Esto es lo que buscas? Puse las fórmulas separadas porque en una sola te queda una fórmula demasiado larga y complicada, solo coloca las siguientes fórmulas en este orden, puedes ocultar las líneas de la G a la O para que solo tengas el resultado...

Pega la imagen aquí, solo elige la opción del menu al lado de la cadena

En el ejemplo si la celda l7 es igual a la celda m7 entonces la celda n7 es igual a la celda l7 =+SI(L7=M7,L7,0)

Prueba con la macro abajo de la imagen con el resultado final Sub MACRO() Dim NUMEROS As New Collection Dim TEXTOS As New Collection Set datos = Range("A1").CurrentRegion With datos For I = 1 To .Rows.Count Valor = .Cells(I, 1) If IsNumeric(Valor) =...

Escribes el texto y luego oprimes el botón marcado 1 en la imagen, luego ajusta el ancho de la columna (2) y la altura de la fila (3) usando el ratón hasta que quede la cantidad de párrafos que quieras, centras co en botón en naranja.

Este es un ejemplo de la macro separa las partidas y hace las sumas de la segunda columna y esta es la macro, solo cambia el a1 segun donde comiencen tus datos Sub subtotales() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion With...

Lo naranja es lo que ya tenias en tu archivo, lo que esta abajo de lo naranja son los archivos copiados de los libros ejemplo. y esta es la macro es funcional con tu información, pruébalas y comentas Sub copiar_archivos() Application.DisplayAlerts =...