paramisolo

Estoy haciendo las pruebas que dices con el archivo y a mi me funciona correctamente si meto de entrada 0,50 me hace la suma en la hoja Stock y si hago de salida 4,5 me lo resta perfectamente, y me muestra el mensaje de actualización con los valores...

Si asignas esta macro te pone el texto que quieras en la autoforma: Sub Rectángulo1_AlHacerClic() ActiveSheet.Shapes("Rectangle 1").Select If Selection.Characters.Text = "rectangulo 1" Then Selection.Characters.Text = "" Else...

Pues esta macro te lo hace: If Range("C9").Value="" Then MsgBox" La celda C9 no tiene datos" End If >Un saludo >Julio PD: Si te ha servido puntúa y finaliza la consulta.

Vamos a ver si entendemos el funcionamiento de VBA lo que dispara la ejecuacion del código es el evento click en el Optionbutton no es al revés, para ello deberías de cambiar las condiciones para que se ejecute el evento: Imagino que tus controles...

Desconozco como te desplazas por la hoja( me refiero a si existen valores que te vayan modificando el rango a sumar) pero podría quedarte así: Sub PruebaEsto() Do While mi_celda <> "0" Selection.End(xlDown).Select Selection.End(xlDown).Select Dim Rg...

Me parece que tu bucle similar (si funciona de maravilla) es que tiene puestas instrucciones que tu aquí "te has comido"¡Comilón!, jejejeje, además de estar mal armada la macro, te la dejo corregida: Private Sub CommandButton1_Click() Dim contador, n...

Con una macro es fácil y ponemos un contador para darle la condición de 2 registros, así si tu quieres que varíe la condición de cuantos registros a sumar pues cambias el valor del contador, y creas más variables, como no sabía que querías hacer con...

Para seleccionar la ultima celda con datos (siempre que no tengas celdas en blanco en el medio) es esta instrucción: Range("A1"). Select 'No situamos en la primera celda de la Col A ActiveCell.End(xlDown).Select 'Nos desplazamos hasta la ultima celda...

En realidad los textbox no son como los combos o cuadros de lista donde podemos obtener la fila. La única sugerencia es tomar el texto cada 80 caracteres pero esto no te puede asegurar que no estés cortando la palabra Range("A2") = Mid(textbox1, i,...

El bloc de notas es texto puro y duro no es posible manejarlo desde el propio notepad hay que importarlo a otro programa Word o Excel y desde el programa manejarlo. Si esto solo lo necesitas hacer una vez es mejor seleccionar y copiar y pegarlo en la...