Avatar billede rabitjosph Novice
19. december 2012 - 21:30 Der er 1 løsning

Right(S, 1)

Kan dette ikke lade sig gøre ?

Do Until IsEmpty(ActiveCell)
      If ActiveCell.Value = ActiveCell.Offset(0, 2).Value And _
      Right(ActiveCell.Offset(0, -9), 1) = 0 Then ' Der er ingen forskel på Inter og Prio.dat rød farve
        ActiveCell.Interior.Color = RGB(255, 255, 0) ' Intern højre end extern dato gul farve
      End If
  ActiveCell.Offset(1, 0).Select
Loop



Hvis aktiv celle er = celle offset(0,2)
og sidste ciffere i celle offset (0,-9) = 0

men der er fejl, kan ikke se hvad ?
Avatar billede rabitjosph Novice
23. december 2012 - 17:47 #1
Do Until IsEmpty(ActiveCell) 
    If ActiveCell.Value <> ActiveCell.Offset(0, 2).Value And _
      Right(ActiveCell.Offset(0, -9), 1) = 0 Then
      ActiveCell.Interior.Color = RGB(255, 0, 0)
    End If
    ActiveCell.Offset(1, 0).Select
  Loop


Kan ikke se hvad der var galt, men det virker nu
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
Kurser inden for grundlæggende programmering

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