Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Poproś kogoś innego.
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]
Trzeba znać nazwę arkusza. Nabela odpowiada rzeczywiste Zdjęcia w #1 ?
w jaki sposob mozna przeprogramowac makro, tak aby dla niewypelnionych komorek wynik wynosil 0 i nie nastepowalo zatrzymywanie makra? Może tak: [syntax=vbscript]Sub test() Dim lRow&, i&, frm lRow = Cells(Rows.count, "A").End(xlUp).Row Application.ScreenUpdating = False For i = 2 To lRow If Cells(i, "A") = "" Then frm = 0 Else frm = "=" &...
Nie wtrącam się w sposób rozwiązania formuły. Ważne że się to zrobiło samemu i od czegośtrzeba zacząć. Jeżeli już tak liczysz to tam gdzie masz funkcje "odpowiedzialne za remisy" dodaj jeszcze jeden warunek. (w domyśle traktuje że jeżeli puste jest w C5 to i w e5 itd.) ... JEŻELI(oraz(C5=E5;c5<>"");1;0)+JEŻ...
Prawdopodobnie nie zawsze masz aktywny właściwy arkusz. Uzupełnij odwołanie Np Me.ComboBox9.RowSource = Sheets("Arkusz1").Rang... 21), Cells(33, 21)).Address ' data
Załącz ten plik jeśli możesz lub pokaż na screenie jaki jest problem. Wskaż też w jakiej wersji Excela został on utworzony ?
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Formatowanie warunkowe - reguły wyróżniania komórek
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
W załączniku przykładowo formatowanie od trzeciego wiersza.
To cała pętla? Brakuje Loop a instrukcja Exit Do powoduje opuszczenie pętli już w pierwszym przebiegu... Przy takim zapisie a = a + 2 porównujesz co drugą parę. Chyba, że tak właśnie ma być...
Jeśli można z kolumną pomocniczą, to patrz załącznik.
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
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 napisz =JEŻELI(A1=B1;JEŻELI(A1="";0;JEŻELI(B1="...
U mnie bez kolumn pomocniczych, za to z nazwami (żeby łatwiej można ogarnąć formułę). Dane - to zakres danych źródłowych, numkol, numwie, numer - formuły pomocnicze, formuła kolnr zawiera adres początku zakresu wynikowego w formie adresu mieszanego, w tym przypadku [syntax=text]F$2:F2[/syntax]Formuła finalna w arkuszu jest formułą zwykłą, którą można...
Dane - Filter nie dziala ?
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Bardzo dobrze podejrzewasz - sprawdź ile stron masz otwartych w arkuszu. Śmiem twierdzić że masz dwie strony, druga pusta.
zastosowanie zapisu np. =JEŻELI(B1="";"";JEŻELI(D1="";"";SUMA(B1... nie pomaga. A powinno. Spróbuj =JEŻELI(LUB(B1=0;D1=0);"... Ostatnia wartość: Jeśli kolumna nie ma dziur (każdy wiersz jest wypełniony), to zlicz niepuste i podstaw jako argument funkcji ADR.POŚR. =ADR.POŚR("A"&ILE.NIEPUSTY...
Sprawdź, czy o to chodziło.
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
Czy da się to jakoś zrobić w sprytniejszy sposób? Tak makro.
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.
Może to będzie pomocne? [url=http://www.elektroda.pl/rtvforum/to...
A to może być? [url=http://www.youtube.com/watch?v=i6sD... lista unikalnych wartości
:) Jeżeli już się zwracasz do mnie w trzeciej osobie Dziękuję wam bardzo ... ... na was liczyć ... to jednak powinieneś to wyrazić z wielkiej litery lub do słowa was dodawać słowo obywatelu lub kolego, bo tak to jakoś niepewnie się czuje komu dziękujesz :) A dodatkowo (nie żebym się upominał ale na przyszłość może ktoś inny będzie ci pomagał) jak jesteś...
Witaj Jeśli te wykresy muszą być wykonane automatycznie, wtedy ta tabela nie jest w systemie. Część kwestii ma opcje tak lub nie. W innej części tak, nie, lub Brak odpowiedzi jest częścią pytania. Ponadto między tytułem a opcji jest lub nie jest pusty wiersz.
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Podstaw zero, jeśli wartość <> liczba. If Not IsNumeric(ComboBox1.Value) Then ComboBox1.Value = 0 a = 4 + ComboBox1.Value p.s. =PODSTAW(temat;"pomóżcie";...
[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 =...
nie potrafię sobie poradzić aby odpowiednio przekształcić zaproponowane rozwiązania na potrzeby mojego pliku To nie kwestia "nie potrafienia", to kwestia Microsoft'u. Chodzi o nazewnictwo zakładek. Nazwy zakładek do hiperłącza poprzez funkcję "HIPERŁĄCZE" nie mogą posiadać odstępów, ich nazwa musi być "jednociągowa", tzn. taka zakładka nie może się...
Dlaczego w A11 =DZIEŃ(E3+7) ? w E3 nie ma nic(puste)
Przetestuj. Trochę dużo się tych JEŻELI zrobiło...
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.
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Czy posiada ktoś logiczne wytłumaczenie, w jaki sposób działa sortowanie tabelek w Excelu? Mam taką tabelkę - chciałbym ją posortować po róznych kolumnach zachowując oczywiście powiązania wierszy między sobą: //tab.png https://obrazki.elektroda.pl/1341637700_... Zaznaczam którąś z kolumn, klikam przycisk "sortuj", inteligentny excel zauważa,...
Witam Po dwukrotnym kliknięciu na dowolny plik excel(*.xlsx) otwiera się excel i nic więcej nie widać żadnych danych. Ne wyskakuje przy tym żaden komunikat. Pliki otwierają się normalnie jeżeli wezmę w excelu plik otwórz. Wersja office 2013, win 7 pro. Z góry dzięki za pomoc.
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Wg podanych informacji, najprościej którąś z Do. Coś w tym rodzaju: [syntax=vb]wrs = 2 Do While Cells(wrs, 6) <> "" Cells(wrs, 4) = "ble ble ble" wrs = wrs + 1 Loop[/syntax]
Jeżeli [syntax=vb]OstSpend = Cells(Rows.Count, 6).End(xlUp).Row[/syntax] dałeś na początku kodu to na tą chwile kolumna 6 (F) jest pusta
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
podaj jaki bład wywala bo nie kompilowałem tego tylko z glowy, oraz powiedz co zwraca Cell w przypadku gdy jest pusta komorka
Chcesz wstawić formułę wyszukaj w kolumnę G w zależności od danych w kol A? [syntax=vb]ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 ost2 = Cells(Rows.Count, 1).End(xlUp).Row Range("G" & ost2 & ":G" & ost).FormulaR1C1 = "=VLOOKUP(RC[-6],'Previous week'!C[-6]:C,7,0)"[/syntax]
[syntax=vbnet]Sub dodawaniekolumny() For Each arkusz In Sheets arkusz.Range("A1").EntireColumn.Insert Next arkusz End Sub[/syntax]
Od tego trzeba zacząć że nie możesz przyrównać do 8 (liczba osiem) 8:00 (godzina ósma), bo ta druga jest liczbą 0,333.... Druga sprawa wpisany w cudzysłowiu "7:35" jest ciągiem znaków (4 znaki) a w zastosowane w Twojej formule z funkcją Jeżeli "" oznacza ciąg znaków pusty (nie jest tożsamy z zerem)
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Może być coś takiego wklej to ThisWorkbook [syntax=vbscript]Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("B6") = "" Then MsgBox "Blokada wypełnij B6" Cancel = True Else Cancel = False End If End Sub[/syntax]
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Użyj funkcji CZY.PUSTA(adres komórki) w połączeniu z funkcją JEŻELI (), w ten sposób aby gdy wykryje pusta komórkę nie brał jej pod uwagę np. =JEŻELI(CZY.PUSTA(C1);1;0)
Trochę ruchu kombinowanego, i u mnia to działa. Musiałem zmodyfikować plik comp.mod, zamiast 'Pusty arkusz. xlsx ' poprawiono na 'Pusty arkusz. xlsm ' Przycisk 'Wklej do Excel' należy nacisnąć co najmniej 0,5 s.
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.
no właśnie oto mi chodzi jeśli się źle wyraziłem to sorry jak możesz to pomóż Dodano po 2 właśnie oto mi chodzi jak te zakres komórek jest pusty to i total jest pusty
Być może chodzi Ci o coś takiego czy tekst czy liczba, puste też zalicza do tekstu.
Niestety, nie poradziłem sobie. Przeceniłeś moje umiejętności. Wielkie dzięki za pomoc!!!! Mam kolejny problem. Tym razem w Excelu 2010. Mój Excel traktuje pustą komórkę, jako komórkę o wartości 0. A chciałbym, żeby traktował ją jako faktycznie pustą. Czy da się tak ustawić?
Wypróbuj w "główny" takie makro [syntax=vb]Sub makro() ostw = Range("C65536").End(xlUp).Row Range(Cells(ostw - 2, 1), Cells(ostw, 11)).Copy Cells(ostw + 1, 1) End Sub[/syntax]Formuły powinny "ułożyć się" wg kolejności wierszy. Nie wiem tylko skąd pobierać nazwisko klienta...
Witaj Z matematycznego punktu widzenia każda liczba pomnożona przez zero daje wynik zero. Podczas obliczeń Excel domyślnie pustą komórkę pomija lub traktuje jako zero. Napisz w jakim kontekście przy mnożeniu przez zero Excel ma traktować zero jak jeden. Pozdrawiam
...kolego w Twoim wzorcu nawet jeśli zakres "E1:E9" jest całkowicie pusty to pokazuje wynik 3 Chyba u Ciebie... http://obrazki.elektroda.pl/9225081400_1... ">0" oznacza większe od zera Jeśli w komórce jest liczba ujemna lub tekst warunek nie jest spełniony "<>" oznacza niepusta spełniony zawsze jeśli komórka nie jest pusta.
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.
Dalej tak samo w sensie, że plik się tworzy ale jest pusty.
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
Chodzi o to, że Excel traktuje pustą komórkę jako wartość zerową. Konieczne jest sprawdzenie CZY.LICZBA. Wpisz jako formułę formatowania warunkowego =ORAZ(CZY.LICZBA(A1);A1=0...
Jeśli w tabeli masz liczby dodatnie i puste komórki, a chcesz formatować obszar od C4:M101, to zastosuj taką formułę: [syntax=text]=ORAZ(C4>0;C4=MIN($C4:$M... Nie będzie zaznaczał pustych na zielono. Oczywiście obszar formatowania trzeba wcześniej zaznaczyć albo później wpisać do tabelki formatowania.
Załączam plik, w którym po uruchomieniu makra dane są wklejane do kolumny D ( z której później tworzone są komentarze w kolumnie C). Niestety w kolumnie D nie mam możliwości zamiany "0" na "". Co jest tego przyczyną? Edit: Jak pobiorę ten plik z elektrody, to wszystko działa :cry: W oryginalnym pliku nie działa. Przyczyna może tkwić w napisanym makrze?...
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 :)
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.
Cześć! Makra miałem na uczelni jakieś 5 lat temu, więc potrzebuję pomocy.. Chodzi o to, że w jednym arkuszu mam wypisane daty z opisem (A,B,C itd.), które potem makrem automatycznie uzupełniają się w tabeli "DO SKOPIOWANIA". W drugim arkuszu kopiuję ręcznie całą tabelkę z pierwszego arkusza i usuwam puste wiersze. Czy istnieje możliwość aby makra robiły...
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
Korzystając z funkcji JEŻELI w kolumnie C musisz stworzyć formułę, w której: - warunek: komórka z kolumny B > 0 - wartość jeśli warunek jest spełniony: wartość z kolumny B - wartość z kolumny A - wartość jeżeli warunek nie jest spełniony: "" [2 razy cudzysłów, czyli pusty ciąg] Teraz już pewnie dasz radę.
Dzień dobry, Jest taka możliwość, tylko zakresowi komórek tworzących listę trzeba nadać nazwę np. lista i przy definiowaniu źródła trzeba użyć tej nazwy: =lista (ważne, żeby było = na początku). Zakres musi zawierać pustą komórkę, a pole "ignoruj puste" musi być zaznaczone. Powodzenia!
Czy może wypisywać pracowników po kolei bez pustych komórek? :D Owszem można, ale każdy z Twoich warunków (po kolei, bez pustych) to poważna komplikacja formuły :please: Może wystarczy Ci zapis bez pustych :spoko: 1010494
To Kolega ma to w Excelu czy w Accessie? Zwykłę Ctrl+H (aka: ZAMIEŃ) wyrazu ULGA na pusty ciąg nie wystarczy (jedynie w zaawansowanych opcjach zamiany trzba odznaczyć ptaszka przy "Dopasuj do całej zawartości komórki")??
Jeśli dobrze zrozumiałem że trzeba, następnie zdecydowanie tak tylko za co został w A następnie formuła, może tylko numeracji?
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
I się nie dziwię. Twoja formula wycina od spacji przed numerem do spacji przed numerem konta ;) Wpisz: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST(" ?? ???? ???? ???? ???? ???? ????";A1;1)+1;32) A jak już będziesz robił wersje finalną to polecam formułkę: =JEŻELI.BŁĄD(<formuła której używasz>;"") W ten sposób w arkuszu nie pojawi ci się #ARG tylko pusta...
pozostaje mi pusty Excel bez skoroszytu poniewaz Private Sub dFinish_Click() ThisWorkbook.Save ThisWorkbook.Close End Sub Przypadkiem nie Excel 2007?
Witaj. Ogólnie pierwszą funkcję bym poprawił. Jeśli najpierw porównujesz wartości - czy jedna jest mniejsza od drugiej, potem czy druga jest mniejsza od pierwszej, to trzeciego porównania (czy są równe) nie musisz już robić, bo jeśli nie załapiesz się na dwa poprzednie warunki - jest to oczywiste. Tak więc poprawiona wersja może wyglądać tak: =JEŻELI(H8>H9;3;JEŻELI(H8<...
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
No okej ale ma przy okazji wyliczac srednia zapomnialem dodac 😃. Wiec ma wyliczac srednia ocen i przy okazji jak jest pusta komorka to ma napisac "brak ocen"
Wykorzystaj WYSZUKAJ.PIONOWO(szukana_wartość;tablica... Szukana wartość to kod, tablica to kod i druga kolumna, nr kolumny to kolumna z której mają być informację i teraz najważniejsze: 0 wtedy dokładnie będzie szukał kodu i dane nie muszą być posortowane, jeżeli nie znajdzie kodu funkcja zwraca błąd. Więc wykorzystaj tu funkcję jeżeli (jeżeli...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli przy pomocy formul przeniesc...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli pracownicy w danym miesiacu- 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli...
do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
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
Jak się tego pozbyć? Zaznaczyć zbędne wiersze i usunąć. Reasumując nie działa usuń wiersz Sprecyzuj - jak to nie działa? Usuń wszystko - nie tylko dane, ale i formuły! P.S. Jaka wersja Excel'a? PS.II W ostateczności skopiuj to, co cię interesuje do nowego skoroszytu.
Jeszcze raz powiem, że nie mam "dodatkowego (mojego) skryptu". Program, którego używam, działa w ten sposób, że "wlewa" na pusty arkusz dane, które on sam pobiera z Internetu. Nie wiem na czym to polega (nie jest to istotne), ale arkusz Excel jest w zasadzie pusty (nie licząc skryptu napisanego na tym forum).
Można, ale w komórce A1 musi być jakakolwiek zawartość (wystarczy pusty tekst, ale komórka nie może być pusta).
1. Nie chcesz widzieć wyniku? Zastosuj formatowanie warunkowe. Przykład: W komórce A1 ma być wynik odejmowania komórki B1 od C1 opisany stosowną formułą. Formatujesz warunkowo komórkę A1 w sposób: Warunek 1; Formuła jest =LUB($B$1="";$C$1="&q... i ustalasz kolor czcionki na taki sam jak tła, ale wartość komórki będzie wynikiem...
Sumowane są komórki wynikowe formuł... Działania matematyczne na pustych (które są w tym przypadku NULL a nie EMPTY) dadzą w wyniku błąd. Więc... Połącz JEŻELI z CZY.BŁĄD
Jeśli nie masz zer dziesiętnych, to wystarczy: menu lokalne - Formatuj komórki - Liczby - Kod Formatu - wstaw # (krzyżyk). Wówczas jeśli w obliczeniach pojawi się "0" to nie wyświetli się. Wystarczy takie rozwiązanie dla komórek w kolumnie C. A dla kolumny F =JEŻELI(B8*C8*D8/1000000>0;B8*C8*D8/1000...
Dzień dobry, To wszystko jest mało precyzyjne. Czy dane będą w określonej kolumnie? Czy można określić zakres tych danych, czy trzeba analizować całą kolumnę? Wyniki mają być w wierszu w sąsiednich komórkach? Czy ciągi danych będą rozdzielone pustymi komórkami? Czy liczba tych pustych komórek jest nieokreślona? Czy wśród danych mogą być zera ew. liczby...
Nie bardzo zrozumiałem - chcesz wpisać "tekst" jak komórka jest pusta, wtedy już nie będzie pusta. Takie działanie nie ma sensu. Ale mógłbyś to zrobić w innej komórce, czyli: (przykładowo) Jeśli komórka A1 jest pusta, wpisz w B1 "tekst", inaczej wpisz wartość A1 1: w komórce B1 formuła =JEŻELI(A1=0;"tekst";A1) 2: W komórce A1, wartość 0, pusta lub inna
Najprościej oprogramować kolumnę "firma" (procedura zdarzeniowa). Wyślę, że worksheetFunction.VlookUp wystarczy. Jeśli znajdzie wpisuje, jeśli nie, zostawia pustą...
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
pusty komórka excel excel pusty komórka excel makro pusty komórka
wskazać amperomierz toyota corolla żarówki licznik honda
Jak umieścić klucz publiczny w OpenPLi? Oznaczenie płukania w pralkach Beko i innych