Adriel Ortiz Mangia

[Hola revisa esto http://trucosycursos.es/guardar-y-cerrar-un-libro-excel-transcurrido-un-tiempo-de-inactividad/

[Hola prueba así Sub BsoloF() Dim fecha, t As String Dim tabla As Range Dim i As Integer i = 1 fecha = Sheets("Rooms").TextBox1.Text For i = i To 10 t = VBA.Format(fecha, "General Number") & i Set tabla =...

[Hola La respuesta aquí saludos! Como ocultar userform en hoja nueva

[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 esta macro Valora para finalizar Private Sub Worksheet_Change(ByVal Target As Range) ' '//Por Adriel Ortiz ' If Target.Count > 1 Then Exit Sub If Target.Row <= 3 Then Exit Sub If Not Intersect(Target, Range("F:F")) Is Nothing Then...

[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...