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"...
Przypisz nazwę dla zakresu np. A2:A20 w arkuszu '2' Dla A4 użyj 'Poprawność danych' - lista, żródło - nazwa zakresu Dla B4, E4 - funkcja WYSZUKAJ.PIONOWO
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
Powyższa procedura działa, jak sama nazwa wskazuje, w momencie zmiany zawartości komórki w arkuszu. Jak chcesz zrobić, żeby sprawdzane były wcześniej wpisane daty, to skorzystaj z tego kodu: [syntax=vb]Sub SprawdzTermin() ow = Cells(Rows.Count, "B").End(xlUp).Row For x = 2 To ow Step 2 If Date - Cells(x, 2) > 30 Then Cells(x - 1, 5) = "" Cells(x, 5)...
Dzień dobry, Przyznam, że nie bardzo rozumiem o jaki błąd Panu chodzi. Zauważyłem tylko, że w pliku, który Pan teraz załączył nazwa "prac" nie odwołuje się do lokalnego skoroszytu, tylko do skoroszytu na moim pendrivie, na którym miałem plik z przykładem. Coś Excel musiał namieszać przy kopiowaniu plików. Proszę sprawdzić u siebie, czy nazwy które ma...
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, 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)...
Cześć wszystkim. Taki problem napotkałem, jeszcze nigdy takiego czegoś nie robiłem i robię coś źle. Przykładowo chce żeby formula z jednej komórki wkleiła się do danej grupy. Range("A7:A49").Formula = Range("A6").Formula Takie rozwiązanie działa i wszystko jest ok. Ale jak napisać kod żeby ten obszar dało się zmieniać?? Dim ppk As Long, ppw As Long...
Witam, Jestem początkujący w excelu stąd moje pewnie proste pytanie a mianowicie mając w arkuszu kilka tabel potrzebuję napisać makro, które czyściło by parametry wpisywane w tabeli. Problem jest w tym, iż makro to samo powinno szukać, które dane ma wyczyścić i powinno to wyglądać mniej więcej tak: szukaj w kolumnie "A" cyfr i jeżeli znajdziesz pierwszą...
Witam, oto kod do wykresu z makra. Private Sub CommandButton1_Click() ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xl3DColumnClustered ActiveChart.SetSourceData Source:=Sheets("DostepnoscP... ActiveChart.HasLegend = False ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue...
Dzień dobry, Z zakresami sklejonymi zawsze są problemy, lepiej tego unikać. Ale zawsze jakoś można sobie poradzić, czasem drogą okrężną. Ale ja już się trochę pogubiłem w tym Pana problemie: czy Pan chce kopiować z zakresu sklejonego do pojedynczej komórki czy odwrotnie z komórki do zakresu sklejonego? Poza tym ważne jest w jakiej kolejności Pan skleja...
=SUMA.ILOCZYNÓW(--('23500'!$A$1:$A$49=$F... Dlaczego kolumna z dostawcą(firmą) = mHD? 1. Uwaga generalna jeżeli w odniesieniu do jakiegoś zakresu nie jest podana nazwa arkusza -to takie odniesienie dotyczy aktualnie aktywnego arkusza (w którym wyliczana jest dana formuła) - tzn. konkretnie tutaj, że dana formuła sprawdza, które wiersze w kolumnie...
Dziękuję. Faktycznie na potrzeby tego wątku przy zamianie na odwołania do adresów komórek z nazw zakresów (w celu anonimizacji arkusza) wycięłam jeden nawias i drugi był bez pary. W pierwotnej formule wszystkie nawiasy się jednak zgadzały, a formuła nie działała w formatowaniu warunkowym. Okazało się, że decydującym problemem było jednak odwołanie do...
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...
Hej, Jestem totalnym excelowym laikiem i pisze w zapewne większości prócz mnie banalnej sprawie. Temat klaruje się następująco: 1 plik to baza danych klientów która ma kilkadziesiąt tysięcy pozycji z kolumnami: Nazwa firmy/Kategoria/e-mail 2 plik to wylistowane kategorie na podstawie chciałbym usunąć wierze w pliku nr. 1 - po prostu zbędne pozycje Podsumowując:...
To jest nazwa zakresu danych(MIASTA1), minimalnie 2 kolumny(wybiera sie wartosc ze 2 kolumny) Poszukiwanie w 1 kolumnie tego co jest w B4. Jak nie znaleziono to wynik =""
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".
Witajcie, Mam problem z funkcją jeżeli w programie Excel, próbuję znaleźć w danej kolumnie/zaznaczonym obszarze wybrane słowo i wpisać w kolumnie obok odpowiednią cyfrę z wcześniej przygotowanego zakresu np. Aythyanyroca nadałem 1 Aythyacollaris nadałem 1 Spatulaquerquedula nadałem 3 Próbuję użyć do tego funkcji JEŻELI. Czyli jeżeli nazwa w komórce...
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...
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...
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
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...
witam dane sa generowane przez urządzenie na serwer w takiej postaci jak napisałem wyżej.Niestety nie mam możliwości ingerencji w sposób rejestracji tych danych. Nie ma problemu impotem wszystkich lub jednego pliku *.dat do excela - robię to identycznie jak z importem *.txt Import z folderu o zmiennej nazwie i zmiennej nazwie pliku *.dat poradziłem...
Argument "tblList" to nazwa zakresu w tej "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... Hmm, patrząc na na to SUMA(SUMA.JEŻELI * Coś_Tam)), nie jestem pewien czy dobrze rozumiem. Na pewno chodzi o warunkowe przenoszenie/kopiowanie?
Witam, mam takie makro: [syntax=vb] Sub Mail_Range() 'Working in 2000-2010 Dim Source As Range Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long Dim I As Long Set Source = Nothing On Error Resume Next Set Source = Range("A7:O65").SpecialCells(xlCellTypeV...
Dwa razy w roku wykonuję na sprzętach z kolumn A-D (naliczenia na wszystko) takie konkretniejsze czyszczenie malowanie. Aby tego dokonać moi pracownicy muszą pobrać od magazynierów poszczególnych rodzajów materiały do tego celu magazyn farb, paliwa, elektryczny. Więc w tym arkuszu wykonałem sobie takie ogólne naliczenie rzeczy potrzebnych od tych magazynierów...
Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi o to żebym mógł szybko podzielić ten raport...
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...
Na pierwszej zakładce, trzeba 3 nazwy zakresów (Zobacz przykład)
For j = 0 And 2 To 9 -??? For j = 0 To 9 If j<>1 Then '......... End If Next
Przypisuj jako dwie zmienne w postaci stringu. Podstawiaj jako nazwy. Np ark= ActiveSheet.Name 'nazwa obiektu rng= ActiveCell.Address 'nazwa zakresu odwołanie: Sheets(ark).Range(rng)
Bezproblemowo zaznacz właściwe zakresy i zdefiniuj dla nich nazwę.
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...
Taka kombinacja z arkuszem pomocniczym, listami przez poprawność danych, nazwami zakresów... Może działaj w tym kierunku?
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(),...
Trochę to wszystko zagmatwane ;) Wydaje się, że w kodzie txtBox'a wystarczy jedna instrukcja Select Case oraz podprocedura. W przykładzie dla PS3 (lewy TextBox po staremu, prawy po mojemu). Resztę sobie dorób, jeśli działa zgodnie z oczekiwaniami. Do procedury przekazujesz tylko jeden argument: Nazwę zakresu jako String.
dla Adres to nie dobrze, poniewaz nie zawsze wybor bedzie dobry Wystarczy tylko zakres Nazwa, Adres z pomocy funkcji WYSZUKAJ.PIONOWO
Napisałem... Edycja nazwanego zakresu w zakładce Formuły>Menedżer nazw. Możesz też równie dobrze zamiast nazywać zakres, wpisać jego adres w polu "źródło" okna poprawności danych.
Trzeba znać nazwę arkusza. Nabela odpowiada rzeczywiste Zdjęcia w #1 ?
Najprościej - indeks po nazwie zakresu...
Przeczytaj jeszcze raz (deklaracja zmiennej i odwołanie się do wektora): 3. Nie przypiszesz zakresu do zmiennej tablicowej w ten sposób. Można Np tak Teraz, jeśli[syntax=vb] Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("O4:O36")[/syn... owszem, zadeklarowałeś obiekt, ale co ze skoroszytem Excela? Musisz się do...
Spróbuj po prostu nazwać zakres i podzielić sumę przez ilość liczb: =SUMA(zakres_nazwa)/ILE.LICZB... lub =SUMA(G22;G33;G44)/ILE.LICZB(...
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
No to pokaż (załącz) ten krnąbrny plik :D Albo spróbuj metody poprzez nazwany zakres: nadajesz dla całego skoroszytu nazwę - Zakres = Arkusz1!$B$2:$B$2000 a potem dla listy rozwijanej wprowadzasz =Zakres :spoko:
Witam! Można też po przestawieniu trochę kolumn, ustawieniu nazw dla zakresów i wstawieniu kilku formuł zrobić to tak jak w moim załączniku. 827023
Dobry wieczór, Najwygodniej zdefiniować dane do wykresu za pomocą formuł nazwanych. W załączniku przykład jak to zrobić. Proszę zwrócić uwagę, że przy definiowaniu zakresów na wykresie trzeba używać nazw kwalifikowanych, tzn. poprzedzonych nazwą skoroszytu, ewentualnie arkusza i wykrzyknikiem. Pozdrawiam
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
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!
Cos nie tak z lista 'Wybierz ZO (nazwa skrócona)' - nie ma wyborzu. Sprawdz zakres '=Nazwa_ZO'.
Zdefiniuj obszar wydruku z menu Dane i nie musisz przejmować się zakresem spoza niego. Jeśli obszar jest dynamiczny możesz określić go (Sheets(nazwa).PageSetup.PrintArea=zakre... w procedurze zdarzeniowej Workbook_BeforePrint. Lub w tej samej procedurze usunąć wszystko, co "wystaje" poza określony zakres...
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:
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...
Spróbuj formuł z załącznika. Zwróć uwagę na nazwane zakresy i formułę nazwas w Menedżerze nazw. A na przyszłość swoje dane przykładowe umieszczaj w pliku, a nie w tekście.
Istnieje kilka sposobów zapisu odwołań do zakresów komórek w różnych arkuszach. Odwołanie bezpośrednie w stylu Excela: [syntax=vbscript]Range("'Samochód części automatic (2)'!B2#")[/syntax]Nazwa arkusza jest fragmentem adresu zakresu. Nazwę arkusza umieszczamy w apostrofach jeśli zawiera spacje, znaki specjalne lub jest liczbą; oddzielamy od adresu...
Hej, chciałbym zmienić wiersz "Range("A66:N66" & i + 1).ListObject.ListRows.Add AlwaysInsert:=True" tak, aby zamiast A66:N66 podać nazwę nagłówka tabeli. Niestety nie mogę odwoływać się do konkretnych komórek ponieważ powyżej utworzonej tabeli użytkownik ma możliwość dodawania i usuwania wierszy. Private Sub CommandButton1_Click() Dim i As Integer i...
nazwa zakresu nazwa excel excel kopiowanie zakresu
radmor ul1200 taśma docisnąć sharp pionowe
software lenovo tablet software lenovo
Brak reakcji reala gazu w maszynie myjącej - przyczyny i diagnoza Wymiana przedniego amortyzatora w Toyocie Yaris 3 - krok po kroku