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

VBA kod za brisanje reda sa traženim podatkom

[es] :: Office :: Excel :: VBA kod za brisanje reda sa traženim podatkom

[ Pregleda: 608 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.dynamic.isp.telekom.rs.



+35 Profil

icon VBA kod za brisanje reda sa traženim podatkom17.11.2021. u 11:08 - pre 28 meseci
Može se reći da VBA poznajem samo površno. Znam šta može, ali ne znam sve kako se radi.

Excel fajl sa dva radna lista (PODACI, UPIT).
Na radnom listu PODACI imam tabelu u kojoj su podaci sa jedinstvenom podatkom koji je pohranjen u koloni B.
Na radnom listu UPIT, pomoću upita dolazim do podatka u polju C2.

Potreban mi je VBA kod koji će na osnovu podatka u polju C2 sa radnog listu UPIT, pronaći isti podatak u koloni B na radnom listu PODACI i izbrisati ceo red u kom se nalazi traženi podatak.

Molim za pomoć.
Zvoni, kucanje ne radi ...
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
*.mediaworksit.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: VBA kod za brisanje reda sa traženim podatkom17.11.2021. u 15:35 - pre 28 meseci
Napravio sam neki primer na osnovu tvoga opisa, pa pogledaj u prilogu.(Bilo bi lakše da si napravi primer)
Kod je relativno jednostavan

Code:

Sub BrisiRed()
   ' Na osnovu sadržaja ćelije C2 na aktivnom listu
   ' nalazi podatak u koloni B lista PODACI
   ' i brise ceo red
   ' Ukoliko ima vise brise prvi na koji naidje
   '
   ' P.Jovanovic za elitesecurity.or
   '
   Dim c As Range
   Dim findID As String
   findID = ActiveSheet.Range("C2")
   With ThisWorkbook.Sheets("PODACI").Range("B:B")
        Set c = .Find(findID, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            c.EntireRow.Delete
        Else
            MsgBox "ID: " & findID & " nije nadjen!"
        End If
    End With
   
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.dynamic.isp.telekom.rs.



+35 Profil

icon Re: VBA kod za brisanje reda sa traženim podatkom17.11.2021. u 18:14 - pre 28 meseci
HVALA!!!

P.S.
Nisam prikačio primer je baš jednostavno objasniti, a znam da onome ko poznaje VBA primer ničemu ne služi za ovaj problem.
:)
Zvoni, kucanje ne radi ...
 
Odgovor na temu

[es] :: Office :: Excel :: VBA kod za brisanje reda sa traženim podatkom

[ Pregleda: 608 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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