2 condicionales

13/12/2009 - 22:23 por Compumakro | Informe spam

Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_000A_01CA7C10.8A6D4BA0

Amigos de Excel2007
Hoy les molesto, porque estoy haciendo una tabla para calcular costos, según los ingredientes en repostería

Quiero que la tabla sea "automática" según el sistema de medida... libra o Litro

Hice una fórmula pero no me funciona con "Or"... solo funciona con un condicional. es decir ... si le quito Or "Litro"... funciona

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fila As Integer
For Fila = 14 To 30
If Cells(Fila, 4) = "Libra" Or "Litro" Then
Cells(Fila, 5) = Cells(Fila, 6) * 2
Else: Cells(Fila, 5) = Cells(Fila, 6) * 1
End If
If Cells(Fila, 4) = "Libra" Or "Litro" Then
Cells(Fila, 7) = Cells(Fila, 5) * Cells(Fila, 3) / 1000
Else: Cells(Fila, 7) = Cells(Fila, 3) * Cells(Fila, 6) / 1000
End If
Next Fila

End Sub

Saludos

Oscar
=_NextPart_000_000A_01CA7C10.8A6D4BA0

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18865"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT size=2 face=Arial>Amigos de Excel2007</FONT></DIV>
<DIV><FONT size=2 face=Arial>Hoy les molesto, porque estoy haciendo una tabla
para calcular costos, según los ingredientes en repostería</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Quiero que la tabla sea "automática" según el
sistema de medida... libra o Litro</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Hice una fórmula pero no me funciona con "Or"...
solo funciona con un condicional. es decir ... si le quito Or "Litro"...
funciona</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Private Sub Worksheet_SelectionChange(ByVal Target
As Range)<BR>Dim Fila As Integer<BR>  For Fila = 14 To 30<BR>If Cells(Fila,
4) = "Libra" Or "Litro" Then<BR>Cells(Fila, 5) = Cells(Fila, 6) * 2<BR>Else:
Cells(Fila, 5) = Cells(Fila, 6) * 1<BR>End If<BR>If Cells(Fila, 4) = "Libra" Or
"Litro" Then<BR>Cells(Fila, 7) = Cells(Fila, 5) * Cells(Fila, 3) / 1000<BR>Else:
Cells(Fila, 7) = Cells(Fila, 3) * Cells(Fila, 6) / 1000<BR>End If<BR>Next
Fila</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2 face=Arial>End Sub<BR></FONT></DIV>
<DIV><FONT size=2 face=Arial>Saludos</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Oscar</DIV></FONT></BODY></HTML>

=_NextPart_000_000A_01CA7C10.8A6D4BA0--

Siga el debate

4 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Héctor Miguel

14/12/2009 - 01:41 | Informe spam

hola, Oscar !

... estoy haciendo una tabla para calcular costos, segun los ingredientes en reposteria
Quiero que la tabla sea "automatica" segun el sistema de medida... libra o Litro
Hice una formula pero no me funciona con "Or"... solo funciona con un condicional... es decir... si le quito Or "Litro"... funciona

la linea que falla es porque NO debes "asumir" que la comparacion sigue siendo con la misma "base" (es decir)... cambia:

de: -> If Cells(Fila, 4) = "Libra" Or "Litro" Then

a: -> If Cells(Fila, 4) = "Libra" Or Cells(Fila, 4) = "Litro" Then

saludos,
hector.

__ el codigo expuesto __
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fila As Integer
For Fila = 14 To 30
If Cells(Fila, 4) = "Libra" Or "Litro" Then
Cells(Fila, 5) = Cells(Fila, 6) * 2
Else: Cells(Fila, 5) = Cells(Fila, 6) * 1
End If
If Cells(Fila, 4) = "Libra" Or "Litro" Then
Cells(Fila, 7) = Cells(Fila, 5) * Cells(Fila, 3) / 1000
Else: Cells(Fila, 7) = Cells(Fila, 3) * Cells(Fila, 6) / 1000
End If
Next Fila
End Sub

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :