Sławomir Kuziak

Sławomir Kuziak I feel you...

Temat: =jeżeli

Potrzebuję popracować nad długimi bazami danych, lecz wyleciała mi z głowy prosta formuła.
Mianowicie mam kolumnę danych, coś w stylu:
123456
123345
476687
suma 845221
845466
896266
644884
suma 4836214
itd
potrzebuję do następnej kolumny przekopiować tylko komórki ze słowem "suma"
=jeżeli( =fragment.tekstu? eee kompletne zaćmienie :)

konto usunięte

Temat: =jeżeli

Witam,
jeżeli dane będę w kolumnie A zaczynając od A1 to powinno wystarczyć makro:

Sub Wart()
Dim i&, x&

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 1).Value Like "Suma*" Then
x = x + 1
Cells(x, 2).Value = Cells(i, 1).Value
End If
Next i
End Sub

Pozdrawiam.Darek J. edytował(a) ten post dnia 15.02.12 o godzinie 09:33
Krzysztof Konrad Pszczoła

Krzysztof Konrad Pszczoła Zarządzanie,
szkolenia, wdrożenia

Temat: =jeżeli

Przy założeniu że dane są w kolumnie A

=JEŻELI(CZY.BŁĄD(ZNAJDŹ("suma";A1;1));"";A1)Krzysztof Konrad Pszczoła edytował(a) ten post dnia 15.02.12 o godzinie 09:36
Sławomir Kuziak

Sławomir Kuziak I feel you...

Temat: =jeżeli

Darek J.:
Witam,
jeżeli dane będę w kolumnie A zaczynając od A1 to powinno wystarczyć makro:
Nie pomogło, ale pewnie dlatego że makra to dla mnie czarna magia ;)
Sławomir Kuziak

Sławomir Kuziak I feel you...

Temat: =jeżeli

Krzysztof Konrad Pszczoła:
Przy założeniu że dane są w kolumnie A

=JEŻELI(CZY.BŁĄD(ZNAJDŹ("suma";A1;1));"";A1)
O to to. Dzięki

konto usunięte

Temat: =jeżeli

Sławomir Kuziak:
Nie pomogło, ale pewnie dlatego że makra to dla mnie czarna magia ;)
Dla mnie też bardzo długo tak było, ale rozwiązanie formułką jest prostsze, ja jestem juz troszkę "skażony" VBA :)Darek J. edytował(a) ten post dnia 15.02.12 o godzinie 10:14
Krzysztof Konrad Pszczoła

Krzysztof Konrad Pszczoła Zarządzanie,
szkolenia, wdrożenia

Temat: =jeżeli

To się akurat chwali bo VBA daje więcej możliwości. Podane przeze mnie rozwiązanie może jest prostsze (dla osoby nie znającej VBA) ale jak by nie patrzeć to Twoje rozwiązanie jest lepsze bo nie pozostawi "śmieci" w pustych komórkach ;)
Sławomir Kuziak

Sławomir Kuziak I feel you...

Temat: =jeżeli

Darek J.:
Sławomir Kuziak:
Nie pomogło, ale pewnie dlatego że makra to dla mnie czarna magia ;)
Dla mnie też bardzo długo tak było, ale rozwiązanie formułką jest prostsze, ja jestem juz troszkę "skażony" VBA :)
to może poproszę jeszcze o szybki kurs, jak wprowadzić takie makro :)
Krok po kroku gdzie kliknać :)

konto usunięte

Temat: =jeżeli

Sławomir Kuziak:
Krok po kroku gdzie kliknać :)
A więc tak:

1. Wciskamy Alt + F11
2. W oknie VBAProjekt na napisie Arkusz1 prawoklik i odpowiednio Insert i Module
3. Do utworzonego okienka wklejamy makro
4. Zamykamy Edytor VBA
5. Na karcie Developer wybieramy Wstaw i wstawiamy przycisk do Arkusza
6. Prawoklik na przycisku, wybieramy opcję przypisz makro i przypisujemy do przycisku makro o odpowiedniej nazwie

Powinno zadziałać, w razie kłopotów pisz śmiało, pzdr.Darek J. edytował(a) ten post dnia 15.02.12 o godzinie 11:23
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: =jeżeli

A moze pójść na kompromis i makrem wstawić formułę R1C1, a potem zamienić ją na wartości? Podejrzewam, że bęzie to najszybsze rozwiązanie :-).
Sławomir Kuziak

Sławomir Kuziak I feel you...

Temat: =jeżeli

Darek J.:
Sławomir Kuziak:
Krok po kroku gdzie kliknać :)
A więc tak:

1. Wciskamy Alt + F11
2. W oknie VBAProjekt na napisie Arkusz1 prawoklik i odpowiednio Insert i Module
3. Do utworzonego okienka wklejamy makro
4. Zamykamy Edytor VBA
Do tego momoentu idzie gładko.
5. Na karcie Developer wybieramy Wstaw i wstawiamy przycisk do Arkusza
Łe? :) A co to ten developer? Gdzie go szukać?
6. Prawoklik na przycisku, wybieramy opcję przypisz makro i przypisujemy do przycisku makro o odpowiedniej nazwie

Powinno zadziałać, w razie kłopotów pisz śmiało, pzdr.

konto usunięte

Temat: =jeżeli

Krzysztof Konrad Pszczoła:
Twoje rozwiązanie jest lepsze bo nie pozostawi "śmieci" w pustych komórkach ;)

Odkąd excel ma przycisk "usuń duplikaty" (zakładka Dane) to pozbycie się tych śmieci (czyli zduplikowanych pustych komórek) nie jest żadnym problemem

konto usunięte

Temat: =jeżeli

Sławomir Kuziak:
Łe? :) A co to ten developer? Gdzie go szukać?
Karta Developer jest dla Excela > 2003, jakiego masz ?

Ex2007: Jeżeli masz niewłączoną Kartę Developer, to przycisk Office/Opcje programu Excel/Pokaż Kartę Developer na wstążce.

Ex2003: Nie ma wstążki, znajdź odpowiednią opcję wstawiania przycisku. Pzdr.Darek J. edytował(a) ten post dnia 17.02.12 o godzinie 11:51
Filip Svetozarov

Filip Svetozarov Trener umiejętności

Temat: =jeżeli

Myślę ze nie ma po co przejmować się VBA przy tym przykładzie.
Oprócz przytoczonego powyżej sposobu rozwiązania można to zrobić również kilkoma innymi sposobami. Przykład z funkcją znajdź jest bardziej uniwersalny, natomiast dla podanych danych można również zastosować prostszą funkcję:

= JEŻELI(LEWY(A1;4)="suma";A1;"")

A jeśli chodzi o sposób, którego pytający nie pamiętał to:

=JEŻELI(FRAGMENT.TEKSTU(A1;1;4)="suma";A1;"")

No i mała sztuczka. Jak pozbyć się na szybko pustych komórek z kolumny?

1. Zaznaczasz kolumnę
2. Klikasz F5 po czym klikasz przycisk Specjalnie
3. Wybierasz opcję Puste lub klikasz "U" i OK
4. Skrót do usuwania CTRL i -
Michał Zacierka

Michał Zacierka Junior Demand
Planning Manager

Temat: =jeżeli

mozna tez uzyc autofiltra, wybrać w kategoriach "contains/zawiera" "suma" i wkleić do tych wierszy =A1
i nie trzeba potem nic sprzatać
IMHO w tym przypadku pisanie makra jest ... przesadą.



Wyślij zaproszenie do