Adriel Ortiz Mangia

[Hola Te paso la macro Valora la respuesta marcando buena o Excelente saludos! Sub Select_rangos() ' 'Fuente Dante//'Act. Adriel Ortiz ' Set a = Cells(3, "A") For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 6 Set a = Union(a, Cells(i, "A"))...

[Hola Pon la macro y ver que soluciones dar, no entendí como es que la formulario se abre mientras en estas trabajando en otra hoja. Si tu formulario está en ejecución y cuando te pasas a la hoja nueva y necesitas que se oculte el formulario Pon esto...

[Hola Te paso la macro Valora la respuesta como excelente para finalizar Sub Organizar_datos() 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Rows("2:" & Rows.Count).Clear k = 4 h2.Cells(3,...

[Hola revisa esto https://ayudaexcel.com/foro/topic/21121-definir-posicion-del-userform-al-iniciar/

[revisa esto https://jldexcelsp.blogspot.com/2009/12/evitar-borrar-validacion-de-datos-en.html

[Hola Prueba con esto Valora la respuesta para finalizar saludos! Sub eliminar() col = "A" ' columna código codigo = "101" ' Set r = Columns(col) Set b = r.Find(codigo, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos y limpia la fila...

[Hola Pon una captura de la hoja y ver como está organizado tus datos

[Hola Para buscar registro en Excel presiona la combinación control + b Observa el vídeo https://www.youtube.com/watch?v=AuYk3d0yAVg

[Hola Te paso la macro Valorar la respuesta para finalizar saludos! Sub Macro_1() 'Adriel Ortiz Mangia ' For i = 4 To Range("F" & Rows.Count).End(xlUp).Row Select Case Cells(i, "F") Case 1 Cells(i, "H") = 47 Case 2 Cells(i, "H") = 20 Case 3 Cells(i,...

[Hola Te paso la macro actualizada Sub copiar() 'Copiar a Base_Seguimiento Set h1 = Sheets("Base_Seguimiento") ' Hoja de origen Set h2 = Sheets("Hoja2") ' Hoja de destino ' u = h1.Range("B" & Rows.Count).End(xlUp).Row + 2 h1.Range("C31:J85").Copy...