Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

[EXCEL] Usuwanie wierszy

#excel #automatyczneusuwanie

  • Please log in to reply
2 replies to this topic

#1 gcds

gcds

    Adept

  • Forumowicze
  • Pip
  • 1 Postów:

Napisany 28 listopad 2017 - 13:57

Dzień Dobry.

 

Mam pewien problem a nie znalazłem jednoznacznej odpowiedzi w tematach zawartych na tym forum, które znalazłem:

https://forum.idg.pl...uwanie-wierszy/

https://forum.idg.pl...o-ciagu-znakow/

 

Chodzi mi o automatyczne usuwanie wierszy lecz jednak mój przypadek jest trochę inny niż opisywane powyżej. Niestety nie jestem w stanie edytować makra tak aby dostosować je do moich potrzeb (po prostu jestem laikiem w tym temacie).

 

W plikach csv/xlsx mam 2 kolumny.

 

1. FIRMA.

2. ADRES EMAIL.

 

Wygląda to tak że 1 kolumna jest zawsze wypełniona a w 2 kolumnie (pole adresu email) bywają braki. Chciałbym trochę oczyścić te pliki usuwając wszystkie firmy, które nie posiadają adresu email (i być może przygotować bazę do wysyłki mailingu). Czyli warunek - 1 kolumna pełna, 2 pusta - wtedy usunięcie wiersza.

 

Będę bardzo wdzięczny za pomoc.

 

Dzięki!



#2 michal-ol

michal-ol

    Adept

  • Forumowicze
  • Pip
  • 2 Postów:

Napisany 30 listopad 2017 - 20:18

A nie możesz zrobić tego przez najprostsze filtrowanie?



#3 broda99

broda99

    Rozmowny

  • Forumowicze
  • PipPipPipPipPipPip
  • 562 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:W-wa

Napisany 04 grudzień 2017 - 22:39

Lub sortowanie po B ? Ale proszsz..:

Private Sub CommandButton1_Click()
Dim d As Integer, i As Integer

On Error Resume Next

d = Cells(Rows.Count, "A").End(xlUp).Row

For i = d To 1 Step -1
    If Cells(i, 2) = "" Then Cells(i, 1).EntireRow.Delete
Next i

End Sub
 

Tu plik z makrem wzbogaconym o kontrolę poprawności adresu e-mail.

Funkcja sprawdzająca nie jest mojego autorstwa: http://www.geeksengi...-email-vba.html

 

ttps://www.sendspace.com/file/kxb6lz






0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników