jairo retorno

Tengo la sig duda. Estoy empezando a familiarizarme con el ciclo for entonces me pregunto... Aqui un ejemplo: Private Sub CommandButton1_Click() For i = 2 To 10 Cells(i, 2).Value = Round(Cells(i, 1).Value, 1) Cells(i, 3).Value =...

¿Hay alguna manera de aligerar este código? Lo hice hace un tiempo con pocos datos y funcionaba excelente y rápido... Ahora los datos que tengo son muchos + demasiados y pues ahora sigue funcionando pero con lentitud, se que esta mal como lo tengo...

Quisiera saber como pasar esto: "=LEN(TRIM(R[-11]C[-2]))-LEN(SUBSTITUTE(TRIM(R[-11]C[-2]),"" "",""""))+1" A un botón, en que cuando le de click me salga el numero de palabras de A1 en un msgbox

La verdad me esmero dia a dia para aprender a base de lo que los expertos van respondiendo y por medio de lo que me investigo en internet y no para dar lastima ya que no cuento con los recursos necesarios para ir a una escuela, he estado buscando lo...

Tengo esta macro que dante realizo correctamente ala necesidad Set h1 = Sheets("history") Set h2 = Sheets("temp") h2.Cells.Clear j = 2 For I = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row If h1.Cells(I, "B") = (Label10.Caption) And _ (h1.Cells(I,...

Tengo un código que se ejecuta al doble click que en apariencia "elimina" los datos de las columnas que tiene mi listbox1. Listindex este es el código: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set a =...

H o l a t e n g o e s t e c ó di g o realizado por dan lo que hace busca con dos criterios y los coloca en otra hoja, entonces yo hice esto para que amplíe mi busqueda y s i f u n c i o n a , p e r o a l l l e n a r l a t a b l a d e d o n d e agarra...

Tengo un archivo excel en mi escritorio, mi duda es que ese archivo lo usaran 4 personas más, el detalle esta que esta vulnerable a ser eliminado, ¿Hay alguna manera de que no me deje crear copias (ctrl++c) o ser eliminado? Lo he intentado como...

Tengo este código en un formulario con un listbox el problema es que se me congela el LIBRO al ejecutar esta macro Set h2 = Sheets("Clientes") folio = CONSULTA_CLIENTE.ListBox1.List(ListBox1.ListIndex, 1) If folio = "" Then MsgBox "Pon algo en el...

Estoy modificando el código de la búsqueda de una base de datos me los mande a labels y a un listbox, se cargan los datos en los label pero en el listbox NO. :C soy nuevo usando el listbox y estoy complicado mucho aquí dejo el código para ver si me...