sterge randuri in functie de o conditie

[Jokerul]

Salutare,

In fisierul atasat vreau sa sterg randurile care nu sunt completate pe coloana D.
Am inceput cu cu un cod vba gasit pe net dar fara efect.

Cum imi pot rezolva problema.

Multumesc!

[csaba1960]

BUna,

In atasament ai doua solutii. Prima este continuarea metodei tale, dar cu ciclu For cu pas negativ. Al doilea este putin mai generalizat, in care automat se determina unde se termina tabelul.

[Jokerul]

csaba1960, multumesc mult pentru ajutor!

[Jokerul]

Salutare,

Am o mica problema cu codul, necesita foarte mult timp pana cand verifica randurile goale, ii pot aduce un artificiu sa reduc din timp?

Cod: Selectaţi tot

Sub sterge_randuri()
    Dim lRow As Long
    Dim iCntr As Long
        lRow = 113
    For iCntr = lRow To 13 Step -1
        If Trim(Cells(iCntr, 3)) = “” Then
            Rows(iCntr).Delete
    End If
        Next
End Sub

[Indigo]

Salut,

Mai jos de randul 113 ai alte date, care au randuri goale pe care nu vrei sa le stergi?
De ce doresti de la randul 113 pana la randul 13?

[Jokerul]

codul l-am adaptat la un sistem de ofertare, care se intinde pe 100 de randuri, am omis din greseala ce am atasat initial.

[Indigo]

Si vrei un cod ptr a sterge randurile din fisierul din prima postare?

[Jokerul]

Intr-un final am reusit cu codul din a doua postare (codul pe butonul rosu) insa m-am izbit de o alta problema.
Daca range ("B7:D22") vreau sa il sterg este ok pentru ca se afla in tabel.
Daca range("B7:M22") vreau sa il sterg nu mai merge pentru ca ies din afara tabelului.
Care este problema?

Multumesc!

[Indigo]

Pana la urma, ori este tabel ori nu?

Foloseste codul asta:

Cod: Selectaţi tot

Sub bla()
     Range("C4:C" & Rows.Count).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

Codul sterge tot randul daca este indeplinita conditia.

[Jokerul]

Pana la urma am dublat codul pentru fiecare zona pe care vreau sa o sterg. Am atasat un exemplu in atasament. Am preferat aceasta varianta pentru ca imi ofera posibilitatea de a pune si o conditie.

Aceasta varianta este foarte simpla si o voi folosi cand am strict celule blank.

Cod: Selectaţi tot

Range("C4:C" & Rows.Count).SpecialCells(xlBlanks).EntireRow.Delete

Codul de mai sus l-am folosit pe celule care contin formule si nu a dat randament, sper sa nu fi gresit pe undeva.

Multumesc foarte mult Indigo pentru ajutorul oferit