2Botones que sumen!!

18/08/2004 - 17:55 por LISANDRO | Informe spam
Estimados.-
Muy buen dia, nuevamente aK
Como puedo realizar en la Hoja1 dos Botones con las
siguientes Virtudes:
Boton1 Solamente sumar uno (01) cada vez que se cliquee y
colocar resultado en la celda F6 de la Hoja2

Boton2 Suma uno (01) en Hoja2 celda C6 cada vez que se
Cliquee Hasta llegar a 30 Luego empezar a pasar la suma de
uno (01) a la celda F6 de la Hoja2

==>Posterior un macro que se pueda ingresar Opcional que
reste el 30% de C6 y lo envie a F6 [Ojo este es opcional
posterior decidire si lo anexo o no y debe ser simultaneo
al momento de cliquear Boton2]
Espero me alla explicado adecuadamente.-
 

Leer las respuestas

#1 migbuz
18/08/2004 - 20:41 | Informe spam
Hola:

La pregunta 1) Se soluciona con:

Private Sub Boton1_Click()
Sheets("hoja2").Cells(6, 6).Value = Sheets("hoja2").Cells
(6, 6).Value + 1
End Sub
La pregunta 2, no la entiendo bien. Pero creo que lo que
quieres es:


Private Sub Boton2_Click()
if Sheets("hoja2").Cells(3, 6).Value<0 then
Sheets("hoja2").Cells(3, 6).Value = Sheets("hoja2").Cells
(3, 6).Value + 1
else
Sheets("hoja2").Cells(6, 6).Value = Sheets("hoja2").Cells
(6, 6).Value + 1
end if
End Sub

salu2
Miguel

Estimados.-
Muy buen dia, nuevamente aK
Como puedo realizar en la Hoja1 dos Botones con las
siguientes Virtudes:
Boton1 Solamente sumar uno (01) cada vez que se cliquee y
colocar resultado en la celda F6 de la Hoja2

Boton2 Suma uno (01) en Hoja2 celda C6 cada vez que se
Cliquee Hasta llegar a 30 Luego empezar a pasar la suma


de
uno (01) a la celda F6 de la Hoja2

==>Posterior un macro que se pueda ingresar Opcional que
reste el 30% de C6 y lo envie a F6 [Ojo este es opcional
posterior decidire si lo anexo o no y debe ser simultaneo
al momento de cliquear Boton2]
Espero me alla explicado adecuadamente.-

.

Preguntas similares