VBA kod za brisanje reda sa traženim podatkom

Odgovori Nova tema

2 odgovora
1.445 pregleda

VBA kod za brisanje reda sa traženim podatkom 17.11.2021. u 12:08 · pre 60 meseci #1

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ć.

Potpis

Zvoni, kucanje ne radi ...

Re: VBA kod za brisanje reda sa traženim podatkom 17.11.2021. u 16:35 · pre 60 meseci #2

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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

BrisiRed.xlsm20.28k

Re: VBA kod za brisanje reda sa traženim podatkom 17.11.2021. u 19:14 · pre 60 meseci #3

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.
:)

Potpis

Zvoni, kucanje ne radi ...

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme