MS Excel

Téma: Podminky IF VBA

Zaslal/a T 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ěď >

misocko(12.3.2012 19:59)#007616

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

misocko(16.3.2012 21:57)#007666

nic?citovat

marjankaj(16.3.2012 23:17)#007671

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

Téma: Podminky IF VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje