Dante Amor

Prueba lo siguiente: Private Sub CommandButton1_Click() For Each ctrl In UserForm1.Controls If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = Empty If TypeOf ctrl Is MSForms.ComboBox Then ctrl.Value = Empty Next ctrl MsgBox "Se ha cambiado de...

Te anexo la macro. Para 48,000 filas se tarda un minuto Sub Insertar_Filasz() ' Por Dante Amor Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual u = Range("B" & Rows.Count).End(xlUp).Row...

Puedes poner 4 ejemplos de lo que tienes en tu hoja, pon 2 ejemplos que no se van a copiar y 2 ejemplos que sí se van a copiar. También dime qué datos quieres copiar y en dónde en la otra hoja los quieres pegar.

Puedes poner los valores a buscar en un arreglo. El primer dato encontrado se pondrá en la celda A4, el segundo en la celda B4, el tercero en la celda A5, el cuarto en la celda B5, y así sucesivamente, de esa manera estarás poniendo los resultados en...

Te anexo una macro, pon tus datos en la columna A, en la columna D te pondrá los únicos y en la E el conteo. Sub Contar_Cup() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row Columns("A").Copy Range("D1") ActiveSheet.Range("D1:D" &...

Después de proteger la hoja Agrega esta línea ActiveSheet.EnableSelection = xlUnlockedCells Prueba y me comentas. Si es lo que necesitas, no olvides valorar la respuesta.

Te anexo la macro actualizada Sub Semaforo() 'Por.Dante Amor fecha = Range("I16").Value 'Celda con la fecha fila = 22 'fila inicial de la tabla ult_col = "N" 'última columna de la tabla Do While True If Cells(fila, "A") = "" Then Exit Do If...

La macro que pusiste hace otras cosas, mejor explica con detalle, qué libros quieres seleccionar, es decir, todos los de alguna carpeta, tomar la celda b4 de la hoja 3 de cada libro y exactamente en dónde hay que ponerla. Con gusto te preparo la macro.

Revisa el uso de la fórmula BuscarV https://www.todoexpertos.com/preguntas/5ti8svt3s9iopox9/como-utilizar-la-formula-buscarv Existen varios ejemplos en este foro para que lo puedas adaptar a tu consulta Cómo utilizar la fórmula buscarv También puedes...

Revisa el siguiente ejemplo, puse el wait y a mí sí me funciona Sub Correo() CONTADORBIS = 2 diaActual = Date Selection.Copy 'CREA EMAIL Set objMail = CreateObject("outlook.application").createitem(olmailitem) 'Para objMail.To =...