Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA ? Formel til lige og ulige tal
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Emne: VBA ? Formel til lige og ulige tal
    Sendt: 26.Aug.2013 kl. 12:14

  Håber på hjælp til, at der kun må sætte et lige tal ind i en celle i kolonne E.

i Programkode;
Eks: If Range("E" & Target.Row).Value = 1011: dette duer ikke
Eks: If Range("E" & Target.Row).Value = 1010: dette er OK
 
Formel? Question
Eks: If Range("E" & Target.Row).Value " er forskellig fra et Ligetal " Then
 
eller
 
Eks: If Range("E" & Target.Row).Value " er forskellig fra et Uligetal " Then
 
Er der en behjælpelig sjæl der vil forbarme sig over mig?
 
 
//Bjarne
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419 		Direkte link til dette indlæg Sendt: 26.Aug.2013 kl. 21:44
Ja, dette kan gøres på flere måder, men den mest pædagogiske er nok: 
If Range("E" & Target.Row).Value / 2 = Round(Range("E" & Target.Row).Value / 2, 0) Then
    ' Kode ved lige tal her...
Else
    ' Kode ved ulige tal her..
End If
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300 		Direkte link til dette indlæg Sendt: 28.Aug.2013 kl. 10:18
SmileThumbs Up
Har anvendt din hjælp igen med en lille ændring;
 

If Range("E" & Target.Row).Value / 10 <> Round(Range("E" & Target.Row).Value / 10, 0) Then

Derefter virker det perfect.

På bagrund af din hjælp her, fandt jeg ud af en anden ting og kunne reducerer ca. 80% af mine formler.

Så du har hjulpet mere end du tror.
 
Med venlig hilsen
//Bjarne
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419 		Direkte link til dette indlæg Sendt: 28.Aug.2013 kl. 12:45
Velbekomme :-)
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Harbo Se dropdown
Forum Begynder
Forum Begynder


Medlem: 28.Aug.2013
Land: DK
Status: Offline
Point: 11 		Direkte link til dette indlæg Sendt: 28.Aug.2013 kl. 13:15
Tak, men forstår ikke helt dit svar. Kan du forklare det på en anden måde?Cry 
Til top
Harbo Se dropdown
Forum Begynder
Forum Begynder


Medlem: 28.Aug.2013
Land: DK
Status: Offline
Point: 11 		Direkte link til dette indlæg Sendt: 28.Aug.2013 kl. 13:17
......ok det var ikke svar på mit spørgsmål. Er nybegynder i dette forum...................
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk