także wszystko powinno działać No właśnie nie. Co do twojego kodu to jak chcesz to [syntax=vbscript]Sub Makro_K() On Error Resume Next Range("I20:O119").SpecialCells(xlCellTyp... = "=IF(R9C4=R18C,""X"","""")" End Sub[/syntax]
Dane - Filter nie dziala ?
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
Dla Excela 2007 i powyżej: Formatowanie warunkowe -> Nowa reguła-> Użyj formuły do określenia komórek, które należy sformatować. W okienku formuły wpisujesz warunek "=ORAZ($A$2=1;$B$2="") i dalej ustawiasz format komórki Dla pozostałych komórek ustawiasz warunki format podobnie.
Z tego co wiem nie ma możliwości aby w normalnej tabeli nie wyświetlało pustych komórek. lecz istnieje parę opcji które mogą ci to umożliwić między innymi: Kwerendy, Raporty i tym podobne. Polecam żebyś obejrzał poradnik na YT i w zależności od potrzeb wybrał ten który najbardziej ci odpowiada.
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
Witam, klikasz prawym na wybranej osi, wybierasz formatuj osie, wyskoczy okienko wybierasz zakładkę skala i dowolnie określasz zakres jaki obejmować ma wykres. Tak samo dla drugiej osi.
Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
Zaznaczasz cały obszar w którym są też komórki do których chcesz wpisać zera. Następnie kombinacja klawiszy: - CTRL+G - ALT+S - U - ENTER Masz zaznaczone puste komórki w Twoim zakresie - wpisujesz 0 - zatwierdzasz CTRL+ENTER Masz wpisane 0 do komórek, które były uprzednio puste.
Być może chodzi Ci o coś takiego czy tekst czy liczba, puste też zalicza do tekstu.
Czyli chodziło o uzupełnienie kolumny A ? Jeżeli tak, to najpierw zrobiłem tabelę pomocniczą w arkuszu3 z wartościami unikalnymi.(filtrem) Wg niej funkcja uzupełniła brakujące puste pola.
Jeśli w Excelu używasz funkcji ŚREDNIA do zakresu komórek, to Excel bierze pod uwagę tylko komórki wypełnione liczbami. Nie przeszkadzają mu komórki puste ani komórki z tekstami. Przeszkadzają tylko błędy, bo to uniemożliwia obliczenie. Więc jeśli za każdym razem potrzebujesz tylko bieżącą średnią, to możesz użyć pełnego zakresu z zapasem i stopniowo...
Witaj Formuła jak najbardziej ok. Tylko trzeba było ją troszkę inaczej wkleić. A tak na marginesie - też się pomyliłeś ze zliczaniem. Pole "pozostałe" musi być puste żeby to poprawnie zliczało Pozdrawiam
Dzień dobry, Można i bez kolumny pomocniczej, tylko wtedy zostaną np. puste pola w miejscach danych, które się powtarzają.
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
Chcesz mieć w jednym polu informację czy jedna z komórek zakresu jest pusta ? Czy informację, że dana komórka jest pusta ? Jeżeli chodzi o pierwszą sprawę to musisz w takim razie pisać po kolei Jeżeli(Czy.Pusta(A1) I (Czy.Pusta(A2)) itd. 1;0) - wartość wszystkie komórki będą puste to w polu z formułą zwrócona zostanie wartość 1 w innym przypadku 0....
Zrób taką formułę, która sprawdzi ci czy w pierwszej kolumnie jest liczba całkowita, jeśli tak to skopiuje dane z kolumn X,Y1 i Y2 do nowego arkusza lub nawet w następne puste kolumny. A dalej to już sobie poradzisz.
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'usuwa puste wiersze ow = ThisWorkbook.Sheets("OdczytaneDyski").Ce... "A").End(xlUp).Row For c = ow To 1 Step -1 If Cells(c, 1) = "" Or Left(Cells(c, 1), 3) = "Cap" Then Rows(c).Delete Next [/syntax]i nie wiadomo,...
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Makro czy funkcja w tym przypadku to żaden problem. Kłopotem jest to czy to co przedstawiłeś jest "prawdą". Czyli czy nie ma innych danych w arkuszu oprócz tej tabeli - tak jak to przedstawiłeś (bez nagłówków i innych danych w innych komórkach - inne komórki "czyste")? (A może zawsze tabela "ściągana" ma te same "namiary komórkowe"? ) Czy może jednak...
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Jak już zrobiłeś taką ładną tabelkę, to pomyśl, czy nie lepiej, zamiast zagnieżdżać wiele razy funkcję jeżeli(), dać sumowanie warunkowe albo liczbę komórek niepustych z zakresu od podanego dnia do końca miesiąca. Jedynym tematem będzie eleganckie podstawienie adresu początku zakresu do funkcji. Osobiście zaznaczyłbym dni robocze jako niepuste (dowolny...
Dobry wieczór, Można przeprowadzić konsolidację, z tym że etykiety kolumn muszą być różne. Konsolidację przeprowadzamy zaznaczając etykiety w lewej kolumnie i górnym wierszu. W wyniku otrzymujemy tabelę zawierającą wszystkie daty i puste pola. Teraz należy zastosować filtr (zwykły lub zaawansowany), żeby ukryć lub usunąć wiersze z pustymi polami. Pozdrowienia.
Sądzę, że chodzi o ten warunek: If Cells(i, "B").Value = "" Then Jak daję If Cells(i, "B").Value = "10" Then to dla wiersza o tej wartości w komórce działa (może użyj .text ?) Po drugie nagrane makra z regóły trzeba uprościć wywalacąc .select (bo po co zaznaczać?) W tm przypadku : Rows(i).EntireRow.Hidden = True
Można tak (kod dla B1): =JEŻELI(ORAZ(DŁ(A1)>=... Sprawdza wystąpienie jednoczesne następujących warunków: - długość tekstu >=4 - długość...
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
Dobry wieczór, Zastosowana funkcja ILE.NIEPUSTYCH (COUNTA) pomija przy zliczaniu tylko komórki faktycznie puste, a te które zawierają formułę już nie są puste (nawet jeśli formuła zwraca pusty tekst). Inaczej zachowuje się funkcja LICZ.PUSTE (COUNTBLANK), która zlicza nie tylko komórki faktycznie puste, ale również te, które zawierają puste teksty....
Dzień dobry, W pierwszej chwili nie zrozumiałem, o które puste pola chodzi. Teraz już wiem, że chodzi o to, że gdy w wierszu wzorcowym jest puste pole, to pola poniżej nie mają być zaznaczane. Należy dodać drugi warunek do formuły: [syntax=text]=ORAZ(A11=A$11; A11<>"")[/syntax] W tym drugim warunku może być albo A11 albo A$11. Pozdrowienia.
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Dobry wieczór, W Excelu można uzyskać wykres jak w załączniku (może można uzyskać też coś lepszego, ale ja umiem tylko tak). Ograniczenia: nie potrafię uzyskać zaokrąglonych końców pasków, choć dostępne są różne efekty wypełnienia; położeniem przerw nie da się precyzyjnie sterować, im więcej pasków, tym teoretycznie łatwiej; wprowadziłem puste serie,...
Istnieje na to jakaś funkcja, Mozna funkcja przy zalozeniu ze numery pozycji z CP-P, CP, TPP itd. i rok nie powtaraja sie tzn. ze np. 201207527 w kosztach jest tylko dla 2012 TWP w 'arkusz...2012 w B7 =INDEKS('[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!B:B;PODAJ.POZYCJĘ($A7;'[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!$A:$A;0)) przeciagnij wprawo...
Otwórz sobie okno immediate w edytorze VB (Ctrl+G), w kod wklej linie (patrz przykład) i uruchom procedurę. MsgBox "DODANO", vbOKOnly, "Okno dodania" TextBox1.Value = "" Debug.Print ark ' TUTAJ Debug.Print wrs Debug.Print t1 Stop t1 = t1 - ComboBox1.Value Sheets(ark).Cells(wrs, 2) = t1 If t1 = 0 Then Sheets(ark).Range("a&qu...
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
Dzień dobry, Proszę spróbować z taką formułą w formatowaniu warunkowym: [syntax=text]=JEŻELI(MOD(WIERSZ(A1);2);A... Puste komórki w zakresie są traktowane jak zera. Teksty są "większe" od liczb, więc zawsze będą zaznaczane, gdy wystąpią w parze z liczbą. Gdyby miało być inaczej, trzeba zmienić formułę....
Plik jest istotny, tylko Ty zdaje się sprawy nie potraktowałeś zbyt poważnie, a to przecież Twój interes, nie nasz. W ramach drobnej złośliwości podrzuciłeś nam plik o "wadze" prawie 8 MB. Na innym forum to by nie przeszło. Czy Twój plik faktycznie tak wygląda? W kolumnie wyników są tylko zera, teksty albo błędy zamienione na "Brak"? Po co wobec tego...
co jeszcze zrobić aby gdy pole jest puste w pierwszym grafiku, to w drugim nie wyświetlało #N/D! Trochę skomplikować :) =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
:arrow: marek003 UsedRange liczy tylko używane wiersze. Czyli: jeśli wpiszesz coś (wartość, formułę) tylko w A4 (a reszta arkusza jest pusta) to UsedRange.Rows.Count=1 Żeby nie było nieporozumień - nie chciałem żebyś przeze mnie zmieniał kod. Ja tylko wtrąciłem tak na marginesie jeden powiedzmy bug funkcji UsedRange.Rows.Count który w niektórych przypadkach...
1). Sortujesz dane wg. pierwszej kolumny. 2). W kolumnie CZWARTEJ (jeżeli masz 3 zajęte) korzystasz z instrukcji JEŻELI, przykładowo: =JEŻELI(A1=A2;;A1) czyli: jeżeli komórki a1 i a2 są RÓZNE, to wpisz do kolumny wartość komórki A1 3). W kolumnie piątej postępujesz PRAWIE tak samo, tzn =JEŻELI(A1=A2;;B1) 4). W kolumnie szóstej postępujesz analogicznie...
Dzięki funkcja działa.
Trzeba było od razu ;) Można zamiast instrukcji If zastosować pętlę Do [syntax=vb]Sub Makro1() Dim szukany As Variant, kom As Range Dim i As Integer, s As Integer szukany = Array("<html>", "</html>", "<head>", "</head>") For Each kom In UsedRange If kom.Value <> "" Then 'wyłączymy puste For s = 0 To 3 i = InStr(LCase(kom.Value),...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Sorki - ale idiota jestem i nie wiem jak Kto Ci takich głupot naopowiadał? Rusz głową, a przejdzie jak ręką odjął ;) SUMA.JEŻELI(zakres; kryteria;
W wierszy drugim (2 na tym arkuszu) numery kolumn z jakich ma pobierać dane. Jeżeli zmienisz ten numer (w wierszu drugim) zmienią sie dane - będą pobierane z kolumny o numerze jaki podałeś. Jeżeli to ci przeszkadza wpisz na stałe zamiast B$2 C$2 itd numer kolumny z arkusza pierwszego. To było dodane tak dla zautomatyzowania. Zauważ że jest on w dwóch...
Witam W zakładce kody mam zestawienie wszystkich możliwych kodów i chciałbym rozdzielić te kody w taki sposób aby każdy z nich znajdował się w osobnym arkuszu wg grupy (AA,BB,CC,DD) udało mi się to zrobić przy pomocy funkcji „=JEŻELI” tylko jest mały problem, mianowicie nie wiem jak poradzić sobie z pustymi komórkami w poszczególnych arkuszach,...
Nie wiem dlaczego mój Excel komórki puste widział jako nie puste. Dopiero kiedy je ponownie wyczyściłam, funkcja pięknie zadziałała. Dziękuję!!!!! Dodano po 2 Oczywiście wypróbuję, bardzo dziękuję za zainteresowanie tematem :)
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Na podglądzie wydruku są wszystkie dane
puste excel excel puste komórki excel sortować puste
światła krótki zawiesza philips nośna moment
ariston wybieg pompy przewód turbo kolektor
Sterownik podajnika wibracyjnego 200V 40-60Hz z IGBT FGH60N60SMD – schemat i dobór elementów LINE6 SPIDER III 75W – nie działa sekcja cyfrowa, brak reakcji DSP, diagnostyka zasilania
