Avatar billede juks Novice
20. december 2012 - 13:03 Der er 1 løsning

tjekke om det er samme cell i loop

hej
hvordan kan jeg finde ud af om det er samme celle jeg kigger på i mit loop. for hvis det er skal den ikke gøre noget med gå videre til next

If (Cell = Celltjek)  Then
            GoTo endd

------------------

Dim RngToCover As Range, RngToTjeck As Range, Cell As Range, Celltjek As Range


Set RngToCover = ActiveSheet.Range("B3:E3")
Set RngToTjeck = ActiveSheet.Range("B3:E3")
restart:

    For Each Cell In RngToCover
      For Each Celltjek In RngToTjeck
          If (Cell = Celltjek)  Then
            GoTo endd
            End If
   
            If Abs(Cell - Celltjek) <= 0.0152 Then
              Cell.Value = Cell.Value + 0.001
              GoTo restart
            End If
endd:
      Next Celltjek
  Next Cell
Avatar billede juks Novice
21. december 2012 - 10:10 #1
If (Cell.Address = Celltjek.Address
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

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