Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć sa pretragom i makroom

[es] :: Office :: Excel :: Pomoć sa pretragom i makroom

[ Pregleda: 873 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Kozomora

Član broj: 338888
Poruke: 4
*.dynamic.isp.telekom.rs.



Profil

icon Pomoć sa pretragom i makroom02.08.2018. u 16:14 - pre 68 meseci
Imam neku tabelu i želela bi da napravim makro koji bi radio sledeće:
U sheet 1 treba da se pozicionira na početak b kolone... celija b2.
Zatim da je pretraži po traženom kriterijumu koji ja unesem i prikaže mi prvi nadjeni podatak ako je polje u koloni e u istom tom redu veće od 0.
Svaka pomoć je dobro došla!
Hvala!
Prikačeni fajlovi
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.dynamic.sbb.rs.



+322 Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 16:53 - pre 68 meseci
Postavi tabelu sa primerom da se vidi koji tip podataka je u kojoj koloni i objasni gde da ti prikaže nadjeni podatak i način na koji da ga prikaže (oboji, boldira, upiše u neko posebno polje i sl.)
 
Odgovor na temu

Kozomora

Član broj: 338888
Poruke: 4
*.dynamic.isp.telekom.rs.



Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 17:17 - pre 68 meseci
Ovo je banalni primer tabele.
Makro bi trebalo da mi omogući pretragu po šifri artikla i da mi pokaže sifru artikla sa količinom većom od 0.

Hvala na pomoći!
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.dynamic.sbb.rs.



+322 Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 17:21 - pre 68 meseci
Ne znam da li ti je šifra artikla broj ili string.
Evo jedan primer ako je string.

Code:
Option Explicit
Private Sub Pronadji()
    Dim brRedova As Long
    Dim i As Long
    Dim trazim As String
    
    trazim = InputBox("Unesite podatak koji se trazi", "Pretraga")
    If trazim = "" Then MsgBox ("Niste uneli podatak za traženje. Pokušajte ponovo")
    
    brRedova = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
    For i = 2 To brRedova
        If trazim = Sheets("Sheet1").Cells(i, 2).Value And Sheets("Sheet1").Cells(i, 5).Value > 0 Then
            Sheets("Sheet1").Cells(i, 2).Select
            Exit Sub
        End If
    Next i
    MsgBox ("Trazeni podatak nije pronadjen")

End Sub


Ako pak nije string nego broj, moraš reći u kom rasponu su ti brojevi.
Evo jedan primer pod pretpostavkom da će ti raditi sa šiframa koje su integer.

Code:
Option Explicit
Private Sub Pronadji()
    Dim brRedova As Long
    Dim i As Long
    Dim Unos As String
    Dim trazim As Integer
    
    Unos = InputBox("Unesite šifru koja se trazi", "Pretraga")
    If IsNumeric(Unos) = False Then
        Call MsgBox("Morate uneti brojcanu vrednost za pretragu. Pokusajte ponovo.", vbCritical, "Greska!")
        Exit Sub
    Else
        trazim = Int(Unos)
    End If
    
    brRedova = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
    For i = 2 To brRedova
        If trazim = Sheets("Sheet1").Cells(i, 2).Value And Sheets("Sheet1").Cells(i, 5).Value > 0 Then
            Sheets("Sheet1").Cells(i, 2).Select
            Exit Sub
        End If
    Next i
    Call MsgBox("Trazeni podatak nije pronadjen", vbInformation)
End Sub


[Ovu poruku je menjao Blue82 dana 02.08.2018. u 18:33 GMT+1]
 
Odgovor na temu

Kozomora

Član broj: 338888
Poruke: 4
*.dynamic.isp.telekom.rs.



Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 17:59 - pre 68 meseci
Šifra artikla nije string jer ima i slova.
Kada sam ubacila makro u fajl ne raadi mi.
Ako ti nije teško molim te ubaci makro u moj fajl pa okači.
Nadam se da ti neće biti problem.
Hvala ti!
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.dynamic.sbb.rs.



+322 Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 18:28 - pre 68 meseci
Naravno da ne radi kada u primeru koji si postavila ništa nije onako kako si prvobitno opisala.
Tebi su artikli u koloni A a rekla si da će biti u koloni B isto tako i za kolonu E koju ovde ni ne koristiš.
Primer ti je u prilogu.

Za pretragu moraš upisati tačno onako kako glasi šifra uključujući velika i mala slova. Naravno i to se može otkloniti ako smeta.
Prikačeni fajlovi
 
Odgovor na temu

Kozomora

Član broj: 338888
Poruke: 4
*.dynamic.isp.telekom.rs.



Profil

icon Re: Pomoć sa pretragom i makroom02.08.2018. u 18:41 - pre 68 meseci
Jasno!
Izvini, nisam obratila pažnju.
Sada sve radi!
Hvala ti još jednom na brzoj i kvalitetnoj pomoći!
Svako dobro ti želim!
 
Odgovor na temu

[es] :: Office :: Excel :: Pomoć sa pretragom i makroom

[ Pregleda: 873 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.