VBA kode der skifter værdi i celle efter værdi i anden celle
Hej,Jeg kæmper med at finde ud af at få min kode til at ændre en værdi i en celle, hvis bestemt tekst står i en anden celle. Jeg får alle mulige fejl, når jeg prøver forskellige ideer jeg kommer på 😒
Det er en pris der når den bliver omregnet fra DKK til EURO, kommer til at ligge lidt skævt, syntes vi.
Hvis der i ws1.Cells(i, "D").Value står "Normal", så skal den indsætte værdien fra ws1.Cells(K2).Value i ws3.Cells(LR2, "D").Value = ws1.Cells(i, "Q").Value / ws1.Cells(3, "J").
Håber det er til at forstå hvad jeg mener.
Her er lidt af koden.
ElseIf ws1.Range("B" & i).Value = "JA" Then
ws3.Cells(LR2, "A").Value = ws1.Cells(i, "A").Value
ws3.Cells(LR2, "A").BorderAround xlContinuous
ws3.Cells(LR2, "A").Font.Size = 12
ws3.Cells(LR2, "A").Font.FontStyle = "Calibri"
ws3.Cells(LR2, "B").Value = ws1.Cells(i, "D").Value
ws3.Cells(LR2, "B").BorderAround xlContinuous
ws3.Cells(LR2, "B").Font.Size = 12
ws3.Cells(LR2, "B").Font.FontStyle = "Calibri"
ws3.Cells(LR2, "C").Value = ws1.Cells(i, "R").Value / ws1.Cells(3, "J") ' Omregner DKK til € , J3 indeholder omregningsfaktoren.
ws3.Cells(LR2, "C").BorderAround xlContinuous
ws3.Cells(LR2, "C").NumberFormat = "#,##0"
ws3.Cells(LR2, "C").Font.Size = 12
ws3.Cells(LR2, "C").Font.FontStyle = "Calibri"
ws3.Cells(LR2, "D").Value = ws1.Cells(i, "Q").Value / ws1.Cells(3, "J") ' Omregner DKK til €, J3 indeholder omregningsfaktoren.
ws3.Cells(LR2, "D").BorderAround xlContinuous
ws3.Cells(LR2, "D").NumberFormat = "#,##0.00"
ws3.Cells(LR2, "D").Font.Size = 12
ws3.Cells(LR2, "D").Font.FontStyle = "Calibri"
LR2 = LR2 + 1
End If
Next i