OR funkcija pri search makroju

Pomoč pri izdelavi makrov
Odgovori
heft
Prispevkov: 2
Pridružen: Sr Sep 07, 2016 2:36 pm

OR funkcija pri search makroju

Odgovor Napisal/-a heft »

Pozdravljeni,

imam namrec eno majhno tezavo. S pomocjo nekega tutoriala sem prisel do sledece kode:

Koda: Izberi vse

Sub searchdata()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer

lastrow = Sheets("item_price").Cells(Rows.count, 1).End(xlUp).Row
count = 0
For x = 2 To lastrow

If Sheets("item_price").Cells(x, 1) = Sheet2.Range("B3") Then //tukaj bi rad to implementiral//
Sheet2.Range("A11") = Sheets("item_price").Cells(x, 1)
Sheet2.Range("B11") = Sheets("item_price").Cells(x, 2)
Sheet2.Range("C11") = Sheets("item_price").Cells(x, 3)
Sheet2.Range("D11") = Sheets("item_price").Cells(x, 4)
count = count + 1
End If

Next x
If count = 0 Then
Set ws = Worksheets("sheet3")
erow = ws.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(erow, 1) = Date
ws.Cells(erow, 2) = Sheet2.Range("B3")
Sheet2.Range("A11:D11").ClearContents
End If
Vse deluje OK, amapk bi rad samo dodal logiko, da pri " If Sheets("item_price").Cells(x, 1) = Sheet2.Range("B3") " deluje OR fukcija tudi za Cells(x, 2), Cells(x, 3) in pa Cells(x, 4)

Vnaprej se zahvaljujem za pomoc.

Lep pozdrav
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: OR funkcija pri search makroju

Odgovor Napisal/-a admin »

Pozdravljeni,
heft napisal/-a:...da pri " If Sheets("item_price").Cells(x, 1) = Sheet2.Range("B3") " deluje OR fukcija tudi za Cells(x, 2), Cells(x, 3) in pa Cells(x, 4)...
To boste pa morali malce bolje razložiti, kaj mislite z 'OR funkcijo'? Ne razumem, kaj naj bi se zgodilo oz kaj želite.

Ali želite, da se pogoj izvede, če je vrednot celice B3 enaka vrednost v prvi ali drugi ali tretji ali četrti koloni?
lp,
Matjaž Prtenjak
Administrator
heft
Prispevkov: 2
Pridružen: Sr Sep 07, 2016 2:36 pm

Re: OR funkcija pri search makroju

Odgovor Napisal/-a heft »

Pozdravljeni,
tako je, rad bi da se isto izvede za x,2 x,3 in x,4

lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: OR funkcija pri search makroju

Odgovor Napisal/-a admin »

Potem pa je stvar dokaj preprosta:

Koda: Izberi vse

  If Sheets("item_price").Cells(x, 1) = Sheet2.Range("B3") or _
     Sheets("item_price").Cells(x, 2) = Sheet2.Range("B3") Or _
     Sheets("item_price").Cells(x, 3) = Sheet2.Range("B3") Or _
     Sheets("item_price").Cells(x, 4) = Sheet2.Range("B3") Then 

    xxx
  end if
lp,
Matjaž Prtenjak
Administrator
Odgovori