lecz widoczny wynik to sam wiersz Sumy A jaki zakres komórek obejmuje nazwa Cena :?: :D Jeśli chcesz sumować "tylko widoczne" - zmień formułę na =SUMY.CZĘŚCIOWE(9;[Cena]) :idea:
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Dzień dobry, Formuła nie może nigdy dawać pustego pola, a co najwyżej pusty tekst, który jednak pozostaje tekstem. W takim przypadku do testowania nie może być użyta funkcja CZY.PUSTA, tylko LICZ.PUSTE (ta działa inaczej, choć polska nazwa nie sugeruje różnicy), albo po prostu ="". W związku z tym przesyłam poprawioną wersję. Dodałem jeszcze spację...
1. Najprościej wyłączyć obsługę błędów For Each element in kolekcja . Np [syntax=vb]zakres = Array([a2], [c3], [d5]) For Each kom In zakres If kom = "" Then kom.Value = "-" Next[/syntax]
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
!R1C1:R24944C10 to bym chciał by było skasowane To, co chcesz skasować, to przecież zakres danych do tabeli przestawnej.
Mam do rozwiązania następujący problem. Bardzo proszę o pomoc osoby, które znają się dobrze na excelu o wskazówki lub odpowiedź jak rozwiązać ten problem. W kolumnie A występuje nr który się zmienia w nieregularnych odstępach wierszy. Czyli nr 5555 występuje w komórce od A1 do A3, nr 6666 występuje w komórce od A4 do A9, nr 2352 występuje w komórce...
Witam jakich należy użyć formuł aby uzyskać taki efekt jak w załączniku pozdrawiam serdecznie
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
Witam. Czy mogę prosić o pomoc w dopracowaniu poniższego kodu? Kod służy mi do wydrukowanie arkuszy o nazwach od 1 do 10 do pliku PDF. Niestety kod ma na sztywno wpisane że za każdym razem mają się drukować arkusze od 1 do 10. Ja jednak potrzebowałbym aby wydrukowały się tylko te arkusze które w danym momencie potrzebuję. Jako pomoc do tego można by...
Jeden ze sposobów wykorzystam, albo pierwszy gdzie procedura będzie uruchamiana w momencie kiedy będę tego potrzebowała albo drugi sposób kiedy procedura działa za każdym razem jak użyję filtra. Sprawdziłem dla pierwszej opcji i działa doskonale więc chyba przy tym zostanę, po zastosowaniu kodu w docelowym plik wygląda tak: [syntax=vb] Option Explicit...
Witam, Mam makro które stosuje filtr zaawansowany w arkuszu „baza” wg parametrów z arkusza „parameters” - zakres zdefiniowany jako nazwa „parametry”. Stosuje filtrowanie zaawansowane gdyż plik musi być shared wiec nie mogłem zastosować formatu tabeli i obiektów slicer. Makro przestaje działać gdy włączę opcje shared....
Dzięki kolego, o to właśnie mi chodziło. Chociaż przyznam że już kiedyś przeglądałem ten temat ale o nim zapomniałem Dodano po 12 A czy w komórce która ma rozwijaną listę za pomocą poprawności danych można jako listę rozwijaną zadać wszystkie zakresy które zaczynają się w nazwie od słowa 'nam'? Dokładniej, mam listy pracowników których zakresy nazywają...
Witam Mam problem przy filtrowaniu zaawansowanym. Po wybraniu opcji Zakres listy - lista do filtrowania (Arkusz2!$A$2:$G$93") Zakres - zakres kryteriów (Arkusz!Kryteria) N5:P6 Kopiuj do - Arkusz1!B$5:$H$5 wyskakuje błąd w wydzielanym zakresie występuje nazwa pola lub jest ona niepoprawna Ten sam błąd jak wpisałem z ręki kod Sheets("Arkusz2").Range("A2:G93").Advanc...
eee chyba się nie zrozumieliśmy, nie wiem co masz na myśli przez zakres "B2:B7" ale na pewno nie chciałem tego kopiować. Pobrałem Twój plik, ale nie to miałem na myśli tworząc ten post. Otóż on ma skopiować zakres od "B2:G2" i tak jak napisałem na początku wklejać go w pola B3; B4; B5 ... aż do B29. Gdyby pojawiła się jakaś nazwa dostawcy w polu A30...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
czyli w moim przydaku wyglada to tak =WYSZUKAJ.PIONOWO(B2;Arkusz2!I2:J146;Ark... B2= pole nazwa z arkusza 1 J2= pole magazyn z arkusza 2 ale wyrzuca mi bład. #ARG, oczywiście $I$2:$J$146 robie w $ bo to stały zakres i nie chce by się zmieniało przy przeciąganiu do niższych komórek. Zakres tabeli w arkuszu 2 zawężyłem tylko do 2 kolumn (nazwa...
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Jak przygotować kod QR, bądź paskowy, żeby zczytywał dane i wprowadzał je do odpowiednich kolumn. Potrzebne mi są konkretnie dwie dane zakodowane w kodzie - imię i nazwisko oraz nazwa szkoły. Próbuję ułatwić sobie życie i wykorzystać czytnik plus excel do klasyfikacji biegów. Każdy zawodnik dostaje kartkę samoprzylepną z wydrukowanym kodem, po wbiegnięciu...
Zrobiłem to na około ale działa, może komuś się kiedyś przyda. Skrypt otwiera excela, robi na nim działania - czyli tworzy nowy arkusz, kopiuje z Arkusza 1 odpowiedni zakres i wkleja do nowego. Następnie całość nowego arkusza jest zapisywana do tabeli w accesie. Pamiętajcie żeby dopisywać w accesie w moim przypadku "objExcel" - gdyż później nie chce...
Tak jak Pan zrobił jest super, ale oczywiście mam problem (pamiętając żeby kopiowana tabela była w tej samej kolumnie i wierszu parzystym) żeby po skopiowaniu do mojego arkusza wyskakuje błąd "nie można używać odwołań do innych arkuszy lub skoroszytów dla kryteriów Formatowania warunkowego". a muszę zmienić odwołania do komórek gdzie jest rok i miesiąc...
Witam Pewnie temat juz dawno był i zmoka. Potrzebuje rozwiązania na problem.. Mam arkusz kalkulacyjny i potrzebuje w niego za jednym pociągnięciem skopiować dane w kolejną pustą komórke z innych arkuszy xls o rożnej nazwie ale z tych samych komórek C1:F25. nazwa aruszy jest zupełnie przypadkowa. Coś na zasadzie otwórz plik.. formie dialogowej. ma ktos...
'Nazwapliku = ActiveWorkbook.Name - chyba nie potrzebne jest potrzebne, ponadto potrzebna nazwa arkusze i zakres [syntax=vb] Tabela.SourceData="[" & Nazwapliku & "]Arkusz1!A1:D25" Tabela.RefreshTable[/syntax] jak arkusz ma ruzne nazwe: ark=activeWorkbook.Sheets(1).Name [syntax=vb] Tabela.SourceData="[" & Nazwapliku & "]" & ark & "!A1:D25" [/syntax]
Dzień dobry, Nie można było z tym przykładem od razu? Po pierwsze - w funkcji WYSZUKAJ.PIONOWO drugim argumentem jest zakres danych. W tym zakresie danych w pierwszej kolumnie szukamy nazwy towaru, a z drugiej kolumny odczytujemy jego cenę. Zakres danych znajduje się w innym arkuszu, dlatego do jego zdefiniowania wygodnie posłużyć się nazwą, która będzie...
Rozważania "na sucho" ... mało kto je lubi ... łatwo się pomylić i narobić "głupot", przydałby się jakikolwiek załącznik pod te wzory ... ale spróbujmy ... Kod nr 1 : 1. " zakres As Variant, rate As Variant " Co to jest 'zakres' i 'rate' ? Jeśli są to zakresy kmórek, to po co 'Variant' a nie ' Range ' ? Nie jesteś pewien z czym masz do czynienia ? Przecież...
przy kodzie: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End Sub jak naciskam Del albo wklejam jakiś zakres komórek to wyskakuje mi błąd :/ Na żółto podświetla:...
Witam serdecznie. Jestem nowym użytkownikiem trochę początkującym w makrach i VBA w Excelu aczkolwiek mam problem: Chciałbym napisać makro kopiujące kolumnę komórek z pominięciem pustych do NOWEGO pliku (ścieżka stała, nazwa zależna od 1 komórki w arkuszu) .xls Nawet nie wiem czy potrzebna jest pętla czy wystarczy sprytne makro. Proszę o przykład na...
Spróbuj to: Sub nowe() Application.ScreenUpdating = False Dim lastLine As Long Dim findWhat As String Dim toCopy As Boolean Dim cell As Range Dim i As Long Dim j As Long findWhat = CStr(InputBox("Enter the word to search for")) lastLine = ActiveSheet.UsedRange.Rows.Count j = 1 For i = 1 To lastLine For Each cell In Range("A1:Q1").Offset(i - 1, 0) If...
Witajcie, elektrodowi specjaliści. Mam złożony problem, z którym obecnie nie mogę się uporać, a ponieważ czas mnie nagli, chwilowo poradzę sobie "ręcznie". Jednak chciałabym wiedzieć, jak to rozwiązać w przyszłości, bo na bank jeszcze będę z podobnymi dokumentami walczyć. Mam arkusz, w którym wylistowane są artykuły sklepowe. W komórce mam dane takie,...
Wg mnie masz dwa "błędne" rozwiązania. Pierwsze to to że na sztywno przypisałeś obszar do NAZWA w związku z tym nie pojawia ci się nowa pozycja jeżeli dołożysz ją do "słownika". Tu można zamiast "stałego" wskazania obszaru, wykorzystać adr.pośr() i adres() by "zakres" NAZWY był "płynny". Druga rzecz polega na tym że nie zablokowałeś dolarami ($) "obszaru"...
Na pierwszej zakładce, trzeba 3 nazwy zakresów (Zobacz przykład)
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
Kod pobiera dane i robi raport. Tyle, że robi jeden a ja potrzebuję każdy wiersz w osobnym... i to w osobnym arkuszu a nie skoroszycie. Patrz załącznik. Private Sub CommandButton1_Click() 'ustawiamy arkusz z danymi testowymi Dim wksDaneTestowe As Worksheet Set wksDaneTestowe = ThisWorkbook.Worksheets("Test&q... 'tablice zawierajace...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
Witam. Mam taki nietypowy zadanie do zrobienia, chciałbym utworzyć makro, lub napisać formułę która na podstawie dzisiejszego dnia, obliczy ile zostało dni roboczych do końca miesiąca. http://obrazki.elektroda.net/93_12639399... Zrobiłem takie pomocnicze tabelki: 1. nazwa dnia 2. numer dnia 3. dni: robocze-"0" wolne-"1" 4. jeśli zaznaczony...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane") 'nazwa arkusza z danymi ost_wiersz = wsdane.Cells(Rows.Count,...
hmm nie wiem czy dobrze rozumiem ale: w kom. B17 możesz wpisać =WYSZUKAJ.PIONOWO(D17;$E$1:$G$7;2;FAŁSZ) i przekopiować w dół Można zamiast $E$1:$G$7 zdefiniować tablicę np. imie najprościej zaznaczasz obszar i w miejscu gdzie Ci pokazuje nr komórki klikasz i podajesz nazwę (ewentualnie wstaw - nazwa - definiuj) --- Aby pozbyć się błędu można skorzystać...
[syntax=vb]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\, ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, ' w komórce C1 - zakres...
Argument "tblList" to nazwa zakresu w tej "drugiej" tabeli? -tak, tblList to zakres w drugiej tabeli Po drugie: dlaczego tak komplikujesz? Jeśli funkcja arkuszowa to (pojedyncze) CountIf . Ale prościej byłoby wykorzystać Range.Find i jeśli błąd, to znaczy że nie ma... - nie umiałem sobie poradzić inaczej jeśli chodzi o kod wiec zastosowałem funkcje...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
Rozwiązanie Pana marka003 jest ciekawe, ale dość zagmatwane. Problem można rozwiązać dużo prościej, ale nie przez funkcje tylko przez operację konsolidacji. Wadą takiego rozwiązania jest konieczność powtórzenia operacji po każdej zmianie danych. Moja propozycja jest następująca: za pierwszą kolumną z danymi dodajemy kolumnę złożoną z samych jedynek,...
Tu jest szczęście[syntax=vb] Sub KopiaRobocza() Dim nazwa As String Dim path As String nazwa = Range("H19").Value path = "C:\" fileSaveName = path & nazwa & ".xlsx" ThisWorkbook.Worksheets("Kopia robocza").Range("A1:D45").Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions"...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Zakładam, że chodzi o zajęcia w liceum albo na studiach? Należy zastosować narzędzia programowania języka VBA w Excelu. Dokładny kod skryptu zależy od tego jak procedura ma działać. Czy ma działać na wyeksportowanym pliku czy też ma działać w czasie eksportu. Jeżeli procedura ma działać na gotowym pliku Excelowskim to kolejne pytanie jest takie, czy...
Nie jestem pewny, czy Koledze o to chodzi, ale poniższy przykład możesz sobie przerobić: [syntax=vb]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\,...
Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xlsx. Importować chcę wybrane komórki z wybranych Arkuszy wielu plików o dokładnie takim samym formacie. Wszystkie te zródłowe znajdują się w tym samym folderze . W trakcie studiowania formum prawie udało mi sie osiagnąć oczekiwany cel. Niestety arkusze źródłowe zawierają formuły...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply parts of given (def = 40) rows excl one- sheet files '...
Nie dajesz przykładowych plików więc trudno to ustawić do Twoich potrzeb :cry: Proponuje spróbuj coś w tym stylu (po dostosowaniu do swoich potrzeb ścieżki, nazwy plików, arkuszy i zakresów :!: ): [syntax=vbscript]Sub Import() Dim xlapp As Object Set xlapp = CreateObject("excel.application") Dim wb As Object Set wb = xlapp.Workbooks.Open("C:\Test\Nazwa.xls"...
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
nazwa zakres zakres nazwa nazwa excel
lodówki bosch opinie tester napięcia baterii kanlux bezpiecznik
astra parujące szyby astra parujące szyby
STILL RX, FM-X, EXU – kod A3344: zwarcie AI-4 do UBat, blokada napędu, diagnostyka LG NB2430A soundbar – wybór trybu Bluetooth na pilocie, przycisk F/INPUT/SOURCE
