[Løst] If med flere if'er før then

[Bigelk]

Hei.

 

Jeg skulle gjerne hatt in if kode som gjør at jeg kan validere flere celler før ”then”

 

 

For eksempel.

A3 = A2/A1

If celle B1 = 1 Og if celle C1 = 2 then

A3 = delt på 1,333

If celle B1 = 1 Og if celle C1 = 3 then

A3 = delt på 2

If celle B1 = 1 Og if celle C1 = 4 then

A3 = delt på 4

 

 

Håper det var en god nok forklaring.

 

Mvh

 

 

Torbjørn

Endret 11. november 2011 av Bigelk

[helsten2]

Ikke sikker på om jeg forstår problemet, men slik - kanskje:

If Cells(1, 2).Value = 1 And Cells(1, 3).Value = 2 Then
Cells(3, 1) = Cells(1, 1) / Cells(2, 1)
End If

[Bigelk]

Hei.

 

Takk for raskt svar

 

Koden jeg bruker er egentlig feil. fordi den er laget for og dele en celle på en annen celle,

mens det jeg er ute etter er at en celle skal deles på et tall som er lagt inn i VBA koden.

 

Jeg har prøvd den varianten men da ville ikke makroen vise noen verdi.

 

jeg tar og sletter den koden jeg har lagt ut siden den egentlig ikke er relatert til problemet.

 

Mvh

 

Torbjørn

[helsten2]

Fremdeles ikke sikker på om jeg skjønner problemet. Men hvis jeg bare oversetter pseudo-koden din så blir det vel noe slikt:

    Cells(3, 1) = Cells(2, 1) / Cells(1, 1)
   If Cells(1, 2).Value = 1 And Cells(1, 3).Value = 2 Then
      Cells(3, 1) = Cells(3, 1) / 1.333
   End If
   If Cells(1, 2).Value = 1 And Cells(1, 3).Value = 3 Then
      Cells(3, 1) = Cells(3, 1) / 2
   End If
   If Cells(1, 2).Value = 1 And Cells(1, 3).Value = 4 Then
      Cells(3, 1) = Cells(3, 1) / 4
   End If

[Bigelk]

Hei.

 

jeg har løst problemet på en klønete måte. + at forklaringen jeg har skrevet over her ikke forklarer problemet så veldig godt.

 

jeg bruker koden sammen med en rullegardin.

 

If Cells(2, 5) = 1 and cells(2, 8) = 0 Then
   Cells(2, 6) = 0
ElseIf Cells(2, 5) = 2 and cells(2, 8) = 1 Then
       Cells(2, 6) = 1.333
ElseIf Cells(2, 5) = 3 and cells(2, 8) = 1 Then
       Cells(2, 6) = 2
ElseIf Cells(2, 5) = 4 and cells(2, 8) = 1 Then
       Cells(2, 6) = 4
End If

If Cells(2, 5) = 1 Then
   Cells(2, 7) = Cells(2, 1)
ElseIf Cells(2, 5) = 2 Then
       Cells(2, 7) = Cells(2, 1) / Cells(2, 6)
ElseIf Cells(2, 5) = 3 Then
       Cells(2, 7) = Cells(2, 1) / Cells(2, 6)
ElseIf Cells(2, 5) = 4 Then
       Cells(2, 7) = Cells(2, 1) / Cells(2, 6)
End If

If Cells(2, 5) = 1 Then
   Cells(2, 3) = Cells(2, 2) / Cells(2, 1)
ElseIf Cells(2, 5) = 2 Then
       Cells(2, 3) = Cells(2, 2) / Cells(2, 7)
ElseIf Cells(2, 5) = 3 Then
       Cells(2, 3) = Cells(2, 2) / Cells(2, 7)
ElseIf Cells(2, 5) = 4 Then
       Cells(2, 3) = Cells(2, 2) / Cells(2, 7)
End If