06. januar 2021 - 11:36Der er
1 kommentar og 1 løsning
HVIS eller IF
Hejsa,
Har et ark (WS2), hvor jeg skifter mellem Ja og NEJ i kolonne A, for at indikere om det skal overføres til WS1. I kolonne B kan jeg skrive hvor mange gange værdierne der overføres skal ganges op.
Jeg har så i kolonne L et Ja eller et NEJ stående. Det jeg ønsker er at når jeg har et tal der er større end 1 i kolonne B skal det den skriver i kolonne M på WS1 være et NEJ. Er ikke sikker på hvordan jeg skal lave det. Nogen der kan hjælpe mig her?
Jeg blev lige grebet af arbejde, så kom fra det. Samme aften som jeg lavede indlægget, faldt 10øren på plads :) Det blev lidt sent den aften... Så jeg har fået det til at virke.
If ws2.Range("B" & i).Value > 1 Then ws1.Cells((ActiveCell.Row), "M").Value = "NEJ"
Så det blev sådan her: For i = 20 To LR1
If ws2.Range("A" & i).Value = "Ja" Then
ws1.Cells((ActiveCell.Row), "D").Value = ws2.Cells(i, "C").Value ws1.Cells((ActiveCell.Row), "E").Value = ws2.Cells(i, "D").Value ws1.Cells((ActiveCell.Row), "F").Value = ws2.Cells(i, "E").Value * ws2.Cells(i, "B") ws1.Cells((ActiveCell.Row), "I").Value = ws2.Cells(i, "F").Value * ws2.Cells(i, "B") ws1.Cells((ActiveCell.Row), "J").Value = ws2.Cells(i, "G").Value * ws2.Cells(i, "B") ws1.Cells((ActiveCell.Row), "K").Value = ws2.Cells(i, "H").Value * ws2.Cells(i, "B") ws1.Cells((ActiveCell.Row), "L").Value = ws2.Cells(i, "I").Value * ws2.Cells(i, "B") ws1.Cells((ActiveCell.Row), "M").Value = ws2.Cells(i, "L").Value If ws2.Range("B" & i).Value > 1 Then ws1.Cells((ActiveCell.Row), "M").Value = "NEJ" ' Ændrer enhedspris til NEJ, hvis Celle B er større end 1
ws2.Cells(i, "B").Value = 1 Call Makro_indsæt_række ActiveCell.Offset(1).Select End If
Next i
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.