Manuel Madrid

Private Sub CommandButton1_Click() Dim fila As Integer fila = ActiveCell.Row Rows(fila).Insert Shift:=xlDown Rows(fila + 1).Copy Rows(fila).PasteSpecial Paste:=xlPasteAll Range("J" & (fila + 1) & ":N" & (fila + 1)).Clear Range("J" & (fila +...

Supongo que lo que quieres hacer es restar a C111 el intervalo J106:K110 Con esta fórmula haces eso: =(C111-SUMA(J106:K110))

En la línea del error, verifique que el "al" pasa a ser "a1". No es una L sino un 1.

https://www.youtube.com/watch?v=xQZiam4946g Pruebe con este programa, y suerte.

Pon un botón ActiveX para lanzar esta macro: Private Sub CommandButton1_Click() For Each cell In Range("a1:f1") If Not (cell.HasFormula) Then cell.Value = "" Next cell End Sub Tendrás que cambiar el rango para borrar donde quieras. Esta macro...

Un par de preguntas: ¿Los datos de monto son los que aparecen en la columna Tabulador? ¿El Origen A puede tener como Destino ÚNICAMENTE a CA?

Creo que he entendido lo que quieres hacer, pero tengo una pregunta: ¿Por qué no sumas en STOCK = J4 + K4 + L4? ¿Es que L4 es algo así como un "almacén oculto" que no debe salir en el STOCK oficial? Ayudaría mucho una captura de pantalla de tu...

Lo que le ocurre a su macro es que está diseñada para ejecutarse en cualquier página, no sólo en la página para la que fue diseñada. Al hacerlo, los datos le salen descuadrados y se generan esos errores. La solución pasa por cambiar en la macro las...

Como solución rápida a lo que propone, yo crearía una fórmula en otra celda con este código: =SUMA (G7:G25) Esta fórmula hay que introducirla en el recuadro donde pone fx, para la casilla donde quiera que aparezca la suma.

La clave a lo que preguntas está en crear un bucle FOR ... NEXT ... STEP. Te pongo un ejemplo para que lo adaptes a tu código. FOR x = 1 TO 20 STEP 5 celda (x, 1) = "A" NEXT Eso escribiría "A" en las celdas 1, 5, 10, 15 y 20. El STEP lo que hace es...