Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70562 Skopiuj do schowka Usunięcie pustych wierszy i wypisanie kontrahentów
Autor Wiadomość
pawelfrac1 
Forumowicz


Posty: 20
Wysłany: 01-04-2021, 15:34   Usunięcie pustych wierszy i wypisanie kontrahentów

Witam
Chciałbym usunąć z zakresu numer zlecenia F12:H56 puste wiersze formułą, ale nie wiem jak się za to zabrać. Dane w tych wierszach aktualizują się z pliku csv. Czasem jest to kilka wierszy i wtedy dobrze by było formuła usunąć puste wiersze przy zachowaniu minimalnej ilości np 18 wierszy. Drugim problemem jest wypisanie po przecinku listy kontahentów w wierszu E2 tak żeby zwracane wartości się nie dublowały.


Z góry serdecznie dziękuję za Wasze odpowiedzi.

Formatka prace_v6.xlsx
Pobierz Plik ściągnięto 14 raz(y) 25.47 KB

ID posta: 403073 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 01-04-2021, 15:48   

1. Formułą nie usuniesz wierszy - domyślam się że chodzi raczej o usunięcie zawartości.
2. Ale jeżeli jednak: można to zrobić za pomocą VBA - ale nie na scalonych komórkach.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 403074 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 02-04-2021, 08:32   

Puste wiersze można usunąć np. takim makrem:
Kod:
Sub usun()
Dim i&, ile&
If MsgBox("Czy na pewno chcesz usunąć puste wiersze?", vbQuestion + vbYesNo, "Pytanie") <> vbYes Then Exit Sub
Application.ScreenUpdating = False
For i = 56 To 12 Step -1
    If Cells(i, 6) = 0 Then
        ile = ile + 1
        If ile < 28 Then Rows(i).Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
Zobacz w załączniku.


Cytat:
Drugim problemem jest wypisanie po przecinku listy kontahentów w wierszu E2 tak żeby zwracane wartości się nie dublowały.
To trochę niejasne. Wstaw "z palca", co ma być w E2.

Formatka prace_v6 - Kopia.xlsm
Pobierz Plik ściągnięto 6 raz(y) 30.71 KB

ID posta: 403092 Skopiuj do schowka
 
 
pawelfrac1 
Forumowicz


Posty: 20
Wysłany: 02-04-2021, 19:13   

Tadek napisał/a:
To trochę niejasne. Wstaw "z palca", co ma być w E2.

W wierszu E2 arkusza Specyfikacja mam listę kontrahentów pobieraną z Arkusza1 od wiersza B2 w dół. Excel ma sprawdzić tą listę i wypisać po przecinku w arkuszu Specyfikacja wiersz E2 listę kontrahentów bez dublowania. Nie wiem jak to ogarnąć :-(

Co do pierwszego problemu z usuwaniem wierszy poradziłem sobie w inny sposób przez makro odfiltrowujące puste wiersze.

Pozdrawiam
ID posta: 403113 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1453 razy
Posty: 4171
Wysłany: 02-04-2021, 21:37   

Możesz to zrobić np. taką procedurą.
Kod:
Sub Unique_cell()
    Dim a
    Dim i As Integer
   
    With Sheets("Arkusz1").[b1].CurrentRegion
        a = .Offset(1).Resize(.Rows.Count - 1).Columns("b").Value
    End With
    With VBA.CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a)
            .Item(a(i, 1)) = Empty
        Next
        Sheets("Specyfikacja").[e2].Value = Join(.keys, ",")
    End With
End Sub
_________________
Pozdrawiam.
ID posta: 403117 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Wersja: Win Office 2007
Pomógł: 13 razy
Posty: 784
Wysłany: 03-04-2021, 08:57   

Kuma co zmienić w Twojej procedurze, aby zamiast wstawiania danych do komórki E2, wstawiała unikaty (jeden pod drugim) np. w kolumnie K ? :oops:
ID posta: 403126 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1453 razy
Posty: 4171
Wysłany: 03-04-2021, 09:10   

Np. na coś takiego.
Kod:
Sheets("Specyfikacja").[k1].Resize(.Count).Value = Application.Transpose(.keys)
_________________
Pozdrawiam.
ID posta: 403128 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Wersja: Win Office 2007
Pomógł: 13 razy
Posty: 784
Wysłany: 03-04-2021, 11:29   

Dzięki.
O to mi chodziło.

Zdrowych, spokojnych Świąt.
Pozdrawiam.
ID posta: 403137 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1453 razy
Posty: 4171
Wysłany: 03-04-2021, 11:33   

Dzięki. Wzajemnie.
_________________
Pozdrawiam.
ID posta: 403138 Skopiuj do schowka
 
 
pawelfrac1 
Forumowicz


Posty: 20
Wysłany: 03-04-2021, 15:10   

dziękuje wszystkim pomoc za zainteresowanie moim problemem. Życzę Wesołych Świąt
ID posta: 403145 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe