Adriel Ortiz Mangia

H o l a : Alberto. Te paso la macro Private Sub CommandButton1_Click() Set h1 = Sheets("hoja1") u = h1.Range("A" & Rows.Count).End(xlUp).Row TextBox1 = Cells(u, "A") End Sub Valora para finalizar

H o l a Haz clic derecho sobre la celda B3, y clic en formato de celdas y en la pestaña PROTEGER desactiva BLOQUEADA. Y no tendrás problemas cuando protejas la hoja Puntuar para finalizar la pregunta.

Sub TraspasoDatos() Set h1 = Sheets("Hoja1") 'HOJA DE DATOS INICIALES (ENVIO) Set h2 = Sheets("Hoja2") 'HOJA DE (DESTINO) j = 6 'VAR FILA INICIO For i = 6 To h1.Range("P" & Rows.Count).End(xlUp).Row If h1.Cells(i, "P") = "SI" Then 'CONDICIÓN DE COPIA...

Lo haces así Sub borrar() Sheets("Hoja1").Range("A5:A9").ClearContents End Sub

H o l a ponlo así =SI.ERROR(PROMEDIO(D5;F5;H5;J5); "")

h o l a Prueba esto. Private Sub CommandButton2_Click() If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox4 = Empty Then MsgBox "Campos vacios. VERIFIQUE", vbOKOnly, "Mensaje para el usuario" Exit Sub End If '...

H o l a Pon el código en el Private Sub Workbook_BeforeClose(Cancel As Boolean), entonces cada vez que cierras el libro te validará tus datos. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Contador As Integer Contador = 0 Range("A1").Select...

H o l a Te paso la macro asumiendo que tus encabezados está en la fila 1 Sub buscar_copiar() Set h1 = Sheets("archivo_base") Set h2 = Sheets("resumen") buscar = "logística" Set b = h1.Rows(1).Find(buscar, lookat:=xlWhole) If Not b Is Nothing Then For...

H o l a ¿Cuál es el rango?

H o l a Para proteger mi clave es hola Sheets("hoja1"). Protect "Hola" si deseas que te pida la clave ponlo así sin la clave Sheets("hoja1"). Unprotect