Avatar billede HHA Professor
04. maj 2022 - 08:01 Der er 5 kommentarer og
1 løsning

Sammenligne celler og hvis ens værdi så

Hejsa,
Jeg kæmper med at få nedenstående kode til at virke, tror kun den kører en gang.
1. Den skal sammenligne værdierne i cellerne kolonne E og F (for hver række). Og hvis de er ens, skal værdien i F ganges med 4.5. Det udfører den ikke.
2. Den melder også fejl, hvis jeg fjerner apostroffen ved End If.
Compile error: End If without block If

Nogen der kan se hvad der er galt?

Dim LR1 As Long
Application.ScreenUpdating = False
   
Set ws1 = Sheets("Ark1")
LR1 = ws1.Range("F" & Rows.Count).End(xlUp).Row

For i = 1 To LR1
If ws1.Range("F" & i).Value = ws1.Range("E" & i) Then F = E * 4.5
 
Next i   
'End If 
MsgBox "Færdig"
   
End Sub
Avatar billede kim1a Ekspert
04. maj 2022 - 08:42 #1
Flyt end if (som du har afbrudt med din ' ) ind i next-loopet
Avatar billede kim1a Ekspert
04. maj 2022 - 08:42 #2
Dim LR1 As Long
Application.ScreenUpdating = False
 
Set ws1 = Sheets("Ark1")
LR1 = ws1.Range("F" & Rows.Count).End(xlUp).Row

For i = 1 To LR1
If ws1.Range("F" & i).Value = ws1.Range("E" & i) Then F = E * 4.5
End If
Next i 

MsgBox "Færdig"
 
End Sub
Avatar billede HHA Professor
04. maj 2022 - 09:15 #3
Hvis jeg flytter End If op over Next i, så kommer den stadigvæk med den fejl.
Compile error: End If without block If
Avatar billede supertekst Ekspert
04. maj 2022 - 10:21 #4
Sub Test()

Dim LR1 As Long
Application.ScreenUpdating = False

Set ws1 = Sheets("Ark1")
LR1 = ws1.Range("F" & Rows.Count).End(xlUp).Row

For i = 1 To LR1
    If ws1.Range("F" & i).Value = ws1.Range("E" & i) Then
        F = E * 4.5
    End If
Next i
Avatar billede HHA Professor
04. maj 2022 - 10:48 #5
Nu melder den ikke fejl.
Tænkte da ikke lige på at F = E * 4.5 skulle ned på næste linje.

Super, tak!

Men den udfører ikke det den skal.
Den melder færdig efter ca. 1½ sekund.
Avatar billede jens48 Ekspert
04. maj 2022 - 11:10 #6
Skal du ikke rette
F = E * 4.5
til
Range("F" & i) = Range("E" & i) * 4.5
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester