James Bond

Cambia esto en tu macro, solo cambia las comas en el 0 por ; el address le idica a la macro si la fórmula tienen candado ($a$1) o no (A1), para el primero caso se escribe .address(1,1) Sub formula() With Range("n19") .Locked = True .formula =...

Probé la modificación que hice a tu macro y este es el resultado, no se presento ningún problema

Cambia Sheets("Matriz"). Range("A3"). ActiveSheet. Paste Por sheets("matriz"). Range("a3"). Pastespecial

Este es el resultado de la macro, pasa lo siguiente los números dentro de un textbox siempre serán texto y como tales no pueden hacer se operaciones con ellos, primero tienes que convertirlos a VAL, este es un ejemplo de como se hace, no incluí la...

Prueba esta macro Sub copiar() Sheets("hoja1").Range("a1").AutoFilter filas = Sheets("hoja1").Range("a1").CurrentRegion.Rows.Count Sheets("hoja1"). Range("a2"). Resize(filas - 1). Copy Sheets("hoja2"). Range("a2"). PasteSpecial End Sub

Cambia la macro por estay esta es la macro Private Sub CommandButton1_Click() FILAS = Range("A3").CurrentRegion.Rows.Count TextBox1.Text = FILAS For I = 2 To 4 VALOR = Val(UserForm1.Controls("TEXTBOX" & I).Text) If IsNumeric(VALOR) Then SUMA = VALOR...

Prueba cambiado lote2.text por val(lote2.text), estas buscando números convertidos a texto en columnas numéricas

checa este link http://trucosycursos.es/elementos-deshabilitados-en-excel/

Esta macro pone la fórmula hasta donde tengas datos Sub formular() Range("a2").CurrentRegion.Columns(2).Formula = "=a2+1" End Sub

Tienes demasiados select que además de ser innecesarios alentan la macro, en ocasiones como en el caso de refrescar tablas Exdel va ingorar la instrucción screenupdating, te modifique la macro quitándole los select y diciéndole que sin salir de la...