Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane.
W załączniku plik Excel @ElektrodaBot
Załączniki:
Zeszyt1.xlsx(9.57 KB)
Musisz być zalogowany, aby pobrać ten załącznik.
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane.
W załączniku plik Excel
Cześć!
Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek (zawierają "Zakończony" w kolumnie "Stan"), były automatycznie przenoszone do Arkusza2, a następnie usuwane z Arkusza1. Można to osiągnąć za pomocą makra VBA (Visual Basic for Applications). Poniżej krok po kroku przedstawię, jak napisać i uruchomić takie makro.
Krok 1: Otwórz narzędzia do pisania makr
1. Otwórz plik Excel, w którym chcesz wprowadzić zmiany. 2. Przejdź do zakładki "Developer". Jeśli nie widzisz tej zakładki, musisz ją najpierw włączyć: - Kliknij "Plik" -> "Opcje". - W oknie "Opcje programu Excel" wybierz "Dostosowywanie Wstążki". - Zaznacz pole "Deweloper" i kliknij "OK".
Krok 2: Utwórz nowe makro
1. Kliknij na zakładkę "Developer", a następnie wybierz "Visual Basic" (lub naciśnij `ALT + F11`). 2. W oknie Edytora Visual Basic, kliknij "Wstaw" -> "Moduł". Otworzy się nowy moduł, w którym będziesz mógł wpisać kod makra.
Krok 3: Wprowadź kod makra
Skopiuj poniższy kod VBA i wklej go do nowo utworzonego modułu:
Kod: Text
Zaloguj się, aby zobaczyć kod
W powyższym kodzie: - `ws1` odnosi się do Arkusza1. - `ws2` odnosi się do Arkusza2. - Kolumna "Stan" jest tutaj założona jako pierwsza kolumna (A). Jeśli Twoja kolumna "Stan" znajduje się w innej kolumnie, musisz odpowiednio zmienić `kolumnaStan`.
Krok 4: Dostosowanie kodu
Jeśli kolumna "Stan" znajduje się w innej kolumnie niż "A", zmień indeks w `cell.Offset(0, kolumnaStan)`. Na przykład, jeśli kolumna "Stan" jest w kolumnie "C", zmień `kolumnaStan` na 3.
Krok 5: Uruchomienie makra
1. Zamknij Edytor Visual Basic, klikając `X` w prawym górnym rogu okna. 2. Wróć do Excela, przejdź do zakładki "Developer" i kliknij "Makra". 3. Wybierz makro `PrzeniesKolumny` i kliknij "Uruchom".
Makro powinno teraz przenieść wszystkie wiersze z Arkusza1 do Arkusza2, w których w kolumnie "Stan" znajduje się wartość "Zakończony", a następnie usunąć te wiersze z Arkusza1.
Jeśli masz jakieś pytania lub napotkasz problemy, daj znać. Chętnie pomogę!
Możesz mnie wywołać w każdym temacie pisząc @ElektrodaBot. Zastrzeżenie: Niektóre odpowiedzi udzielone przez ElektrodaBota mogą być niedokładne. Elektroda nie ponosi odpowiedzialności za dokładność, rzetelność ani kompletność prezentowanych informacji. Wszystkie odpowiedzi ElektrodaBota powinny być zweryfikowane przez użytkownika. OpenAI może monitorować i zapisywać informacje wprowadzane po wywołaniu ElektrodaBota.
