Cáculo de tamaños fotográficos

On 3 feb, 00:37, "Héctor Miguel"
wrote:

hola, Miguel !

__ 1 __

> ... funciona... unicamente hay que tener en cuenta que, una vez introducidas dos de las tres variables
> hay que situarse en la celda a calcular y borrar su contenido para que te de el resultado.

1) "eso" pasa cuando tienes llenas las 3 celdas en el rango... revisa este comentario en el mensaje anterior...

> despues de (re)llenadas dos de las tres celdas, la tercera variabe se auto-determina con base a las conocidas

- o sea, la segunda linea del codigo

> If [count(b1:b3)<>2] Then Exit Sub Else [b1:b3].Find(Empty).Select

- tiene los siguientes efectos:
si en el rango [B1:B3] el numero de celdas con numeros es <>2 el codigo "no hace nada"
de lo contrario, se auto-selecciona la correspondiente celda "vacia"

__ 2 __

> Danto una vuelta mas, como lo hariamos insertando CommandButton para realizar los calculos?

2) un boton "en donde" (exactamente) ?
    que se espera que haria ese boton ? (me explico):
    - si estan llenas las 3 celdas cual se debiera borrar ?
    - si esta llena solo una celda... cual debiera ser considerada como la segunda variable necesaria "omitida"
      y que valor debiera asignarsele para poder calcular "la tercera variable" ?

(creo que aun tienes algun detalle "en el tintero")    -?-
saludos,
hector.

Gracias Héctor Miguel. No tengo nada en el tintero, ya te puse un
ejemplo en un post anterior: el ejemplo de las hipotecas, poner un
CommandButton "Calcula" en los rangos C1:C3

En A1:A4 > Nombres de las variables.

En B1:B4 > Celdas vacías para introducción datos
En C1:C4 > Botones calcular
A1 Hipoteca: B1 Dato C1 Calcular
A2 Interes (%): B2 Dato C2 Calcular
A3 Años: B3 Dato C3 Calcular
A4 Cuota: B4 Dato C4 Calcular
Un saludo,
Miguel A.

hola, Miguel !

No tengo nada en el tintero, ya te puse un ejemplo en un post anterior:
el ejemplo de las hipotecas, poner un CommandButton "Calcula" en los rangos C1:C3
>En A1:A4 > Nombres de las variables.
En B1:B4 > Celdas vacias para introduccion datos
En C1:C4 > Botones calcular
A1 Hipoteca: B1 Dato C1 Calcular
A2 Interes (%): B2 Dato C2 Calcular
A3 Años: B3 Dato C3 Calcular
A4 Cuota: B4 Dato C4 Calcular

"variando" solo un poco la segunda (re)pregunta del post anterior...

2) un boton (y exactamente) ?
que se espera que haria ese boton ? (me explico):
- si estan llenas las 3 (o 4) celdas cual/es se debiera/n borrar ?
- si esta llena solo una celda... cual debiera ser considerada como la segunda (y tercera) variable necesaria "omitida"
y que valor debiera asignarsele para poder calcular "la tercera (y cuarta) variable/s" ?

o quieres que por codigo se detecte cuando se hubiera (re)llenado SOLO 3 celdas para calcular la uarta ?
o que cada boton sobre-escriba "su celda" con independencia de las otras (3) variables ? (que pasa si estan vacias ?)

(perdon que sea "terco", solo estoy tratando de anticipar cualquier posible "referencia circular")

saludos,
hector.

On 4 feb, 03:27, "Héctor Miguel"
wrote:

hola, Miguel !

> No tengo nada en el tintero, ya te puse un ejemplo en un post anterior:
> el ejemplo de las hipotecas, poner un CommandButton "Calcula" en los rangos C1:C3
> >En A1:A4 > Nombres de las variables.
> En B1:B4 > Celdas vacias para introduccion datos
> En C1:C4 > Botones calcular
> A1 Hipoteca:        B1 Dato   C1 Calcular
> A2 Interes (%):     B2 Dato   C2 Calcular
> A3 Años:             B3 Dato   C3 Calcular
> A4 Cuota:            B4 Dato   C4 Calcular

"variando" solo un poco la segunda (re)pregunta del post anterior...

> 2) un boton (y exactamente) ?
> que se espera que haria ese boton ? (me explico):
> - si estan llenas las 3 (o 4) celdas cual/es se debiera/n borrar ?
> - si esta llena solo una celda... cual debiera ser considerada como la segunda (y tercera) variable necesaria "omitida"
> y que valor debiera asignarsele para poder calcular "la tercera (y cuarta) variable/s" ?

o quieres que por codigo se detecte cuando se hubiera (re)llenado SOLO 3 celdas para calcular la uarta ?
o que cada boton sobre-escriba "su celda" con independencia de las otras (3) variables ? (que pasa si estan vacias ?)

(perdon que sea "terco", solo estoy tratando de anticipar cualquier posible "referencia circular")

saludos,
hector.

Muchas gracias, Héctor Miguel.
¡¡¡Ojalá!!! tuviera tantos conocimientos sobre el tema para poder
contestarte con exactitud, pero desafortunadamente no los tengo. Lo
que te puedo decir es que en el ejemplo que te he puesto y tal como he
visto que funciona en una web, metes los datos en tres de las cuatro
variables y la que queda en blanco, le das al botón "Calcular" y te
realiza el cálculo.

o quieres que por codigo se detecte cuando se hubiera (re)llenado

SOLO 3 celdas para calcular la uarta ? Pudiera tratarse de esta
opción.
Puedes comprobar su funcionamiento en la web http://www.euribor.com.es/,
en "Calcula tu hipoteca", que se encuentra en su zona izquierda.
Un saludo,
Miguel A.

hola, Miguel !

... en el ejemplo que te he puesto y tal como he visto que funciona en una web
metes los datos en tres de las cuatro variables y la que queda en blanco
le das al boton "Calcular" y te realiza el calculo...

(para el caso de tu consulta, papel, foto y resolucion en A1, A2 y A3)

- inserta 3 botones de la barra de herramientas "formularios" (NO "cuadro de controles") en las celdas C1, C2 y C3

- (segun corresponda) asigna 3 macros (cada macro calcula su celda a la izquierda del boton -columa B-)

Sub Calcular_papel()
[b1] = [b2*24/b3]
End Sub
Sub Calcular_foto()
[b2] = [b3*b1/24]
End Sub
Sub Calcular_resolucion()
[b3] = [b2*24/b1]
End Sub

o puedes asignar una sola macro a los 3 botones (con la estructura del ejemplo anterior) +/- como la siguente:
OJO: para esto debes asegurate que los botones quedan "dentro" de cada celda (borde superior izquierdo)

Sub Calcular()
Select Case ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address
Case "$C$1": [b1] = [b2*24/b3]
Case "$C$2": [b2] = [b3*b1/24]
Case "$C$3": [b3] = [b2*24/b1]
End Select
End Sub

saludos,
hector.

On 4 feb, 23:01, "Héctor Miguel"
wrote:

hola, Miguel !

> ... en el ejemplo que te he puesto y tal como he visto que funciona en una web
> metes los datos en tres de las cuatro variables y la que queda en blanco
> le das al boton "Calcular" y te realiza el calculo...

(para el caso de tu consulta, papel, foto y resolucion en A1, A2 y A3)

- inserta 3 botones de la barra de herramientas "formularios" (NO "cuadro de controles") en las celdas C1, C2 y C3

- (segun corresponda) asigna 3 macros (cada macro calcula su celda a la izquierda del boton -columa B-)

Sub Calcular_papel()
  [b1] = [b2*24/b3]
End Sub
Sub Calcular_foto()
  [b2] = [b3*b1/24]
End Sub
Sub Calcular_resolucion()
  [b3] = [b2*24/b1]
End Sub

o puedes asignar una sola macro a los 3 botones (con la estructura del ejemplo anterior) +/- como la siguente:
OJO: para esto debes asegurate que los botones quedan "dentro" de cada celda (borde superior izquierdo)

Sub Calcular()
  Select Case ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address
    Case "$C$1": [b1] = [b2*24/b3]
    Case "$C$2": [b2] = [b3*b1/24]
    Case "$C$3": [b3] = [b2*24/b1]
  End Select
End Sub

saludos,
hector.

Perfecto, Hector Miguel. Funciona fenomenalmente bien cualquiera de
las dos opciones.
Doy por terminada y satisfactoriamente resuelta mi consulta.
Muchas gracias.
Un saludo y hasta pronto,
Miguel A.