< návrat zpět

MS Excel


Téma: Podminky IF VBA rss

Zaslal/a 12.3.2012 17:08

Ahoj,

udelal jsem si kod nize, ktery by mel hodit hlasku Error pokazde, kdyz se ANI JEDNA hodnota nebude shodovat se hodnotami ve sloupci 35 na radcich 13-35 a zaroven bude platit, ze hodnota na danem radku ve sloupci 35 je 1.

Hodi mi to hlasku Error i pokud je hodnota stejna jako jedna z hodnot v seznamu.

Nevite jak to upravit?

Sub Validation2()

For i = 13 To 5000
For j = 13 To 35

If Cells(i, 35).Value = 1 And Cells(i, 14).Value <> Cells(j, 32).Value Then

MsgBox ("Error")
Exit Sub
End If

Next j
Next i

End Sub

Zaslat odpověď >

#007616
avatar
myslim ye Ti to vyhodi eror zakazdym ked Cells(i, 35).Value = 1, kedze podmienka Cells(i, 14).Value <> Cells(j, 32).Value bude splnena castejsie ako si myslis, skus si to odkrokovat (F8 v editore VBA, mozno pomoze aj Cells(x, y).Select - aby si videl co ti prave porovnava) a porozmyslat, myslim ze v tomto budes musiet pouzit dalsiu "pomocnu" premennu.

ak sa budem velmi nudit tak Ti to napisem

Sub Validation2()

existuju_rovnake = False

For i = 13 To 5000
For j = 13 To 35

If Cells(i, 14).Value = Cells(j, 32).Value Then existuju_rovnake = True

Next j
Next i

For i = 13 To 5000

If Cells(i, 35).Value = 1 And existuju_rovnake = False Then
MsgBox ("Error")
End Sub
End If

Next i

End Sub


nudil som sa , skus, neskusal somcitovat
#007666
avatar
nic?citovat
#007671
avatar
možno by si mal priložiť súbor ako by to malo vyzerať. Kedy by to malo vyhodiť chybu a kedy nie. Nemusíš 5000 riadkov, stačilo by 50.
Akosi mi chýba logika v zadaní.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09