James Bond

¿Intentaste con esta instrucción? Sub logartimo() Log10 = WorksheetFunction.Log10(10) End Sub

Por macros lo dudo hay diferente técnicas como leer el serial del HD junto con modificar el registro de Windows y si la macro no encuentra o no coincide el serial y no encuentra la modificación del registro no se ejecuta pero como es excel fácilmente...

Si abres el formulario con el mouse seleccionas el objeto( textbox, listbox, combobox), luego botón derecho propiedades y seleccionas font, hay seleccionas el tipo, el estilo y el tamaño de la fuente

Pon este código en el formulario Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 27 Then Unload Me End Sub

usa la siguiente formula =+Multiplo.inferior(A1,10) y este es el resultado

¿Tu dices algo así? esta es la macro que ocupas en caso de ser si tu respuesta Sub separa_en_filas() celda = Range("b2"): separa = Split(celda, " ") For i = 1 To UBound(separa) largo = Len(separa(i)) x = 1 For j = 1 To largo caracter =...

Abajo de la pantalla resultados esta la macro esta es la macro, solo cambia el a1 por la celda donde empiezan tus datos. Sub concatenar() Set datos = Range("a1").CurrentRegion With datos pares = WorksheetFunction.Quotient(.Rows.Count, 2) restos =...

Prueba con esa macro Private Sub CommandButton1_Click() Set datos = Range("o1").CurrentRegion CANTIDAD = TextBox5.Text For J = 1 To CANTIDAD With datos filas = .Rows.Count: col = .Columns.Count If filas = 1 And col = 1 Then Set datos = .Resize(1, 6)...

Solo pon esto, con estas instrucciones la macro saltara el error y luego lo reseteara a 0 on error resume next Range("B5").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess on error goto 0

La instrucción esta mal escrita Label9=Textbox1.text Si dices que en la hoja si te hace el calculo entonces lo mandas llama así, solo cambia el a1 por la celda donde tengas el dato textbox2.text=range("A1").value