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...
Zamiast nazwa = ThisWorkbook.Sheets("zam_od_han... 4).Value // tutaj chciałem przypisac do zmiennej nazwę pliku, jest inna od Application.ScreenUpdating = False // nazwa_pliku ze wzgledu na potrzebny format Set plik = Workbooks.Open(Filename:= _ nazwa_pliku) Sheets("dyl").Select Windows("wzorzec_zamowienia.xls...
Najprawdopodobniej zaznaczasz >1 komórkę. Dopisz warunek: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Cells.Count = 1 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End If End Sub[/syntax]
Chciałbym do tego makra dodać to, że wszystkie te pliki, które zostaną zapisane po odpaleniu makra i wybraniu ilości kopii otwierają się [syntax=vbscript]Workbooks.Open sciezka & Cells(2, 3) & ".xlsm"[/syntax] I chesz otworzyć na raz 10 plików? Porąbany pomysł.
No ... trochę utrudniłeś zadanie. Było cos niedawno z pracownikami na różnych wydziałach - tworzenie ciągłej listy pracowników. Kolega adamas tam zaproponował pewne ciekawe rozwiązanie. Tu też by trzeba było zrobić podobnie. Najpierw zrobić taką sama tabelkę jak jest, tylko bez dubli w kolumnach a potem ustawić w jednej liście. edit: Choć jak się okazało...
ale jak to zrobić? jestem całkowicie zielony, jest to moja pierwsza styczność z excelem :/ Nazwy definiujemy w menu Wstaw->Nazwa->Utwórz (excel2000) W załączeniu przerobiony przykład z wykorzystaniem zdefiniowanych nazw.
Może. Makra mogą być w kodzie arkuszów, kodzie modułów, formularzów i klas Może być wiele, ważną rzeczą jest mieć różne nazwy.
Wszystko mi działa... Jeśli wszystko oprócz sortowania, to nie mamy wielkiego pola manewru. Spróbuj to wykonać bez apostrofów dla sortowanego pola. Potem - jeśli dalej nic, usuń słowo kluczowe ASC. I koniecznie sprawdź, czy pole nazwa rzeczywiście zapisałeś jako nazwa.
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
Trochę naokoło (odwrotna numeracja), ale prosto. Zakładając, że dane zajmują zakres A1:A4 w B1 wpisz =A1&LICZ.JEŻELI(A1:A$4;A1) i skopiuj/przeciągnij w dół.
Do zmiennej dato powinna być przypisana nazwa podfolderu.
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
... Innym rozwiązaniem z makra :arrow:Uwaga - Zmieniono formułę dla nazwy "namOblozenie"
Np.: http://office.microsoft.com/pl-pl/excel-...
Pytanie do autora tpiku Teraz zwróciłem na to uwagę. Jak zrobiłeś nazwy tabel "Czesci", "Glowna" itd. że edycja ich jest niemożliwa (W menadżerze nazw - szary ekran w adresie tabeli) Jak to osiągnąć? Dodane po chwili ----------------------------------------... Już wiem: wstaw tabelę, a potem w menadżerze nazw zmiana nazwy.
Propozycja z obszarem pomocniczym wydaje mi się rozsądna, bo można łatwo sprawdzić, co oznacza to "najwięcej", bo w jednym przypadku może to być 1, a w innym 4. Ponadto gdy kilku sprzedawców ma tyle samo, to formuła wskazuje pierwszego na liście. Gdyby miała wskazywać wszystkich, to byłoby to dużo bardziej skomplikowane, nie mówiąc już o tym, gdzie...
Można to osiągnąć za pomocą funkcji tablicowych np. tak. Formuła działa dla każdego wiersza. https://obrazki.elektroda.pl/1892042000_...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
EXCEL automatycznie dopasował krótką nazwę do długiej W Twoim (uszkodzonym :cry: ) pliku jest 9 nazw długich i 19 nazw krótkich :D Do czego więc EXCEL ma dopasować 10 krótkich nazw :please: Gdyby liczba nazw była równa w obu kolumnach to moim zdaniem wystarczyło by posortować osobno kolumny :idea: Jeśli jednak z jakiś dziwnych powodów :D chcesz wyszukiwać...
Cześć Jeśli Nr maszyny jest liczbą, to można go podstawić jako argument 'ile kolumn' funkcji PRZESUNIĘCIE. A jako argument 'ile wierszy', pozycję w kolumnie A (nazwa wyrobu).
W pętli For i = … zmienna sterująca musi być liczbą, a u Ciebie były to odwołania do komórek. Spróbuj tak: [syntax=vbscript]Sub FillCol() Dim start As Long, fin As Long, i As Long start = Range("B" & Cells.Rows.Count).End(xlUp).Row + 1 fin = Range("A" & Cells.Rows.Count).End(xlUp).Row For i = start To fin Range("B" & i) = "XXX" Next i End Sub[/syntax]
żeby wyszukiwało konkretną firmę z arkusza1 i wpisywało dane do jej tabelki z 2 arkusza. Jeśli zaniechasz niepotrzebnej "wieloznaczności" :cunning: , zrobisz sobie w arkuszu 1 pomocniczą tabelkę, która z tekstu wyłuska wszystkie istotne informacje - to jest to możliwe np tak jak na zrzucie i w załączniku :spoko: 967121 967122
aby tylko ta fraza się ukazywała Do takiego działania Comboboxa konieczne byłoby utworzenie specjalnego kodu VBA :cry: - wydaje mi się jednak, że niewarta "skórka wyprawki" :D Zgodnie z właściwościami Comboboxa - każda wpisana litera w polu edycji wywołuje w reakcji - system podpowiedzi :!: , a lista wyboru ustawia się z pierwszym wyrażeniem spełniającym...
Dzień dobry, Jeżeli położenie komórek jest stałe, to znaczy w kolejnych komórkach ma Pan tekst oryginalny (w przykładzie A1), wynik (w przykładzie B1) i położenie "X" w tekście wynikowym (w przykładzie C1) może Pan nadać nazwy swojej formule oraz jej parametrom (zgodnie z zasadami Excela). Można to zrobić w Menedżerze Nazw (Excel >= 2007) lub przez...
Np. tak: [syntax=vbscript] ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartArea.Copy Range("R87").Select ActiveSheet.Paste ActiveChart.Parent.Name = "drugi_wykres" ' nadajesz mu nazwę Debug.Print ActiveSheet.ChartObjects("drugi_wykres")... ' tak odwołasz sie do skopiowanego wykresu [/syntax] andie
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
W prostszych przypadkach mogą też wystarczyć funkcje SUMA.JEŻELI i SUMA.WARUNKÓW. A w nowym Excelu 365 również funkcja FILTRUJ w połączeniu z SUMĄ.
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".
Po pierwsze - załącz plik przykładowy, a nie obrazek (ew plik jako uzupełnienie obrazka). Po drugie - opisz bardziej szczegółowo te "parametry". Czy w każdej pozycji kolumny C będzie występował dokładnie jeden? Czy może być 0 lub więcej? Jeśli więcej, to jak mają być wyświetlone? Czy w tekście w kol. C ten "parametr" będzie zawsze oddzielony spacjami...
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Wypróbuj takie coś: [syntax=vbscript]' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe kolumny ' 4. Dane do scalenia mają nagłówki...
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(),...
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Tak ma być?
Dobry wieczór, Propozycja rozwiązania w załączniku. Formuły wprowadzone do 17-go wiersza (poz. 12). Dalej trzeba skopiować. Proponowałbym usunąć listy rozwijane z kolumny F, bo jak się coś wprowadzi z tej listy, to zrobi się bałagan, wystarczą listy w kolumnie E. Formuły w kolumnie O są w zasadzie niepotrzebne, pełnią tylko funkcję informacyjną - jeśli...
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
Mianowice niektóre nazwy miejscowości są 2-częsciowe. :cunning: W Polsce występują także nazwy miejscowości 3-członowe (np NOWY DWÓR WEJHEROWSKI,GÓRA ŚWIĘTEJ MAŁGORZATY itp.) :please: , ale to nie jest żaden problem dla sortowania - trzeba tylko dostosować formuły rozdzielające - przykładowo: 962956 oraz w kolumnie B [syntax=vbscript]=PODSTAW(A1;C1;"")[/syn...
Trzeba dołączyć nie obrazek, tylko plik Excel, a następnie można pokazać na Twoim przykładzie. W skrajnym przypadku powinny być widoczny nazwy wierszy i kolumn.
Na pierwszej zakładce, trzeba 3 nazwy zakresów (Zobacz przykład)
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
O Benek:) Jeżeli 'aktywujesz' to dopisz sobie [syntax=vbscript]MsgBox Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row[/syntax...
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Widzę, że pytający nie odpowiedział, ale mi etr tym postem, choć 1,5 roku po odpowiedzi, pomogłeś bardzo! Dzięki!
Przyjrzyj się symbolom dolara ($) w moich formułach i zobacz, co one oznaczają. U mnie zostały specjalne użyte, ale nie w każdym kontekście będą działać. Przeanalizujmy, co robi formuła, którą widać rozpisaną w okienku. Jak sądzę jest to formuła dla pola F20. Na początku szukasz nazwy z pola C19 w zakresie C25357:C25371, co w teorii powinno zwrócić...
Nie ma takiej możliwości. Ale jest prosty sposób, mianowicie w pierwszym wierszu wpisujesz nazwy kolumn jakie chcesz i po kłopocie,
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
Wystarczy chyba WYSZUKAJ.PIONOWO =WYSZUKAJ.PIONOWO(A1;Arkusz2!A:B...
Witaj. Funkcja suma.jeżeli powinna wystarczyć. https://obrazki.elektroda.pl/2893490500_... W formule nazwy zamiast wpisać na sztywno nazwę "P1" wpisałem adres A12, w ten sposób po przeciągnięciu w dół pobiera z kolumny po lewej kolejne nazwy produktów.
możesz trochę rozwinąć bo nie jestem specem w excel:( Użyj google lub wpisz w youtube podane słowa a znajdziesz wyczerpującą odpowiedz jak ich użyć.
Osobiście tego nie testowałem ale wygląda, że da się to zrobić przez WinApi: WlanGetAvailableNetworkList - [url=https://docs.microsoft.com/en-us/wi... dostępnych sieci WlanQueryInterface - [url=https://docs.microsoft.com/en-us/wi...
Na pewno funkcją, jaką należy zastosować jest LICZ.WARUNKI. Jeśli z pierwszą częścią nie powinno być większych problemów, to z drugą... Spróbuj: [syntax=text]=LICZ.JEŻELI(A!C1:C24;"B")-... auta")[/syntax]Przy takich nazwach arkuszy, Excel "traci orientację" (patrz apostrofy) ;) kryteria2 równie dobrze będzie...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
chciabym uniknąć duplikowania się wartości (nazwisk) wstawianych w jednej kolumnie za pomocą listy A może w ogóle wykluczyć z listy już użyte? W przykładzie lista dynamiczna jako nazwa + kolumny pomocnicze.
[syntax=vbscript]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\" & Sheets("nazwa_arkusza").Range("Y1")[/syn... Założenie jak wcześniej. Oba pliki umieszczone w tym samym folderze. W komórce Y1 znajduje się dokładna nazwa pliku łącznie z rozszerzeniem. Powinno działać.
Rozdzieliłem ten poprzedni przykład na 3 pliki, ale zdecydowanie lepiej pracuje się w jednym pliku. Zastosowałem podwójne nazwy, bo zauważyłem, że Excel jest wtedy bardziej stabilny. Możesz spróbować normalnie, z pojedynczymi nazwami, stabilność może też zależeć od wersji Excela. Ten plik główny powinien być otwierany jako ostatni. Jeśli chodzi o wskazanie,...
Poza tym arkusz (sheets) nie ma w visible "opcji" True. Oczywiście ma :) Właściwość Visible obiektu może przyjąć wartość True, False. Tu raczej podejrzewam błąd w nazwie (1004), lub włączoną ochronę skoroszytu (struktura). Spróbuj marcinj12 . Wstawianie nowego: Można wykorzystać zdarzenie 'Private Sub Workbook_NewSheet(ByVal Sh As Object)'. Wyłączyć...
Spróbuj tej wersji: [syntax=vb]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-01-24, autor Darek ' ' Dim maxIndex, maxX, maxY, nextFree, tmp, x, q As Integer Range("A1").Select maxX = ActiveCell.SpecialCells(xlLastCell).Colu... maxY = ActiveCell.End(xlDown).Row maxIndex = Round(maxX / 2) Dim nazwy() As String Dim wartosci() As Integer ReDim...
Prześledź co jest w zmiennych s i nazwa.
Jednak potrzebuje kod napisany pod VBA :cunning: Jeśli dane masz posortowane wg kolumny pomieszczenia :!: to możesz uruchomić makro wyliczające sumy :please: [syntax=vbscript]Public Sub Sumujwgpomieszczen() i = 11 While Not IsEmpty(Cells(i, 2)) Cells(i, 9).FormulaR1C1 = "=COUNTIF(R11C2:RC[-7],RC[-7])" Cells(i, 8).FormulaR1C1 = _ "=IF(R[1]C[1]=1,SUMPRODUCT(--(R11C2:RC[-...
Czy w takim razie mogę prosić o pomoc na przykładzie tego pliku z zalacznika? Jeśli wszystkie pliki CSV mają taką strukturę jak w Twoim załączniku ? - to proponuję wykorzystanie tutaj pętli realizującej odpowiednio skonfigurowany import danych tekstowych ! Po uruchomieniu makra z pliku KonwertCSV-XLSX.XLSM - konieczne będzie wskazanie folderu roboczego...
W takim razie może coś takiego: Pomysł bazuje na tym iż index ostatnio dodanego wykresu jest najwyższy Na początku deklarujemy : [syntax=vb]Dim wykres As Shape[/syntax] a zamiast tego [syntax=vb]ActiveSheet.Shapes("Chart 217").IncrementLeft -84# ActiveSheet.Shapes("Chart 217").IncrementTop -4.5 ActiveSheet.Shapes("Chart 217").ScaleWidth 1.07, msoFalse,...
[syntax=vb]Dim przed Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long With Target If .Cells.Count > 1 Then Exit Sub If .Column > 5 Or .Column < 3 Then Exit Sub End With If Target.Value = przed Then Exit Sub Application.EnableEvents = False i = Target.Row Range("A" & i).Value = Environ("Username") Range("B" & i).Value...
Dobry wieczór, Pierwsze pytanie, czy to ma być rozwiązanie w Excelu, czy w Visual Basicu? Jeżeli w Excelu, to można wykorzystać iteracje, żeby w ciągu znaków znaleźć pierwszą literę. Zakładam, że pierwsza litera to początek nazwy miasta. Aby zrealizować obliczenia iteracyjne, należy w opcjach Excela zezwolić na iteracje. Potrzebna też będzie komórka...
Ogarnięte . Zamykam, był błąd w definiowanych nazwach
Wyskakuje mi #NAZWA?
Jednak w tym rozwiązaniu nie możesz się pozbyć innych modeli bo błędnie będzie wyliczał % Bo z założenia ma liczyć % w wierszach więc jeżeli się pozbędziesz innych grup stracisz procenty (będzie 100%). Nie można ich usunąć, ale można je ukryć lub zgrupować - zaznacz kolumny D:K i prawy klawisz myszki -> Ukryj lub Dane -> Grupuj. Licznik z kategoria...
Już wcześniej pisałem. Nazwa!
jednakże z każdym nowym dniem zmienia się nazwa samego pliku ... i pewnie jest jakaś zależność tej nazwy, prawda?
Pętla sprawdzająca nazwy arkusza w kolekcji: [syntax=vb]For Each ws In Worksheets If ws.Name = "Arkusz2" Then MsgBox "Arkusz istnieje" Exit For End If Next ws[/syntax] Jeżeli tworzysz arkusze programowo, to całość powinieneś albo ująć w blok obsługi błędów (On Error GoTo myError) i/lub sprawdzać, czy nazwa jest prawidłowa (Excel ma ograniczenia co do...
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
=JEŻELI(D2-(R2*I2-5)<0;ZŁĄCZ.TEKSTY(" plus ";(D2-R2*I2+5)*-1);JEŻELI(D2-(R2*I2-5)&g... minus ";D2-R2*I2)))) =JEŻELI(D2-(R2*I2-5)<0;ZŁ... ";(D2-R2*I2+5)*-1);JEŻE...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
nic z tego Pokazuje mi się tylko napis "NAZWA?"
Dla twojego przypadku z załącznika. *dane aktualizowane są w arkusz 1 Tworzysz arkusz roboczy z całą aktualną bazą *niech będzie to w arkusz 2. Kolumny J K L uzupełniasz tak jak chcesz.*Najlepiej by było jakby wartości z kolumny M były przed J K L *czyli z przodu W arkusz 1 w kolumnach J K L używasz formuły wyszukaj.pionowo: Jeżeli będziesz miał problemy...
tutaj freeware do zassania: http://www.office-addins.com/files/index...
Tak na szybko to zamiast "efekciarskiego" paska, ja zwykle wstawiam wewnątrz pętli takie coś: [syntax=vbscript]For w = 2 to ost_wiersz Application.StatusBar = "Wykonywanie operacji " & w - 1 & " z " & ost_wiersz - 1 DoEvents 'operacja właściwa... Next w Application.StatusBar = False[/syntax] Natomiast wdaje mi się, że Twój program działa wolno, bo nie...
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Działa :D dzięki za pomoc od dwóch dni z tym walczę teraz tylko to wcisnę w makro :) Wyskakuje błąd: #NAZWA?
Jeżeli umiesz wpisywać dane z formularza, co zakładam, skoro gdy makro będzie tworzyć arkusz to przydzieli mu nazwe z formularza(to potrafie akurat zrobić ) to problemem może będzie znalezienie ostatniego wiersza. Opcja bardzo prosta Dim PierwszyPusty As Long PierwszyPusty = Range("A1").End(xlDown).Row + 1 Pod PierwszyPusty masz indeks pierwszego pustego...
Dodaj warunek sprawdzający zawartość komórki w wierszu z nazwami klientów.
dla Adres to nie dobrze, poniewaz nie zawsze wybor bedzie dobry Wystarczy tylko zakres Nazwa, Adres z pomocy funkcji WYSZUKAJ.PIONOWO
Nie do końca działa to rozwiązanie. Po zmianie dat wyjazdu/przyjazdu w polu I11 (arkusz 2) pojawia się #NAZWA?
Wszystko ładnie działa, dzięki. Jeszcze przydałoby się makro na pozbywanie się przyjaznych nazw?
Zmień na [syntax=vbscript]Nazwa = Mid(Filename, InStrRev(Filename, "\") + 1)[/syntax]
Hmm, racja. Może, nie rezygnując z powyższego zabezpieczenia, spróbować z eksportem arkusza do nowego pliku z nadaniem nazwy?
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
No właśnie - ja pracuje na Excell 2003 i formuła =_xlfn.IFERROR(SZUKAJ.TEKST("żółty";d2);... zwraca mi błąd #nazwa?
Przy tego rodzaju pytaniach zawsze należy załączyć przykładowy plik z oczekiwanymi wynikami. Tu chcesz mieć listę TOP5, ale czego? Jeśli wartości z kolumny trzeciej, to tam jest tylko jedna wartość większa od zera. To jaki ma być wynik? Jeśli to chodzi o te wartości, to można je uporządkować np. funkcją MAX.K lub MAKS.WARUNKÓW. Ale wyniki mogą być różne,...
A z funkcją fregment.tekstu się nie da? Tak jak pisałem wcześniej w hiperłączu nie zadziała podstawienie częściowej nazwy
Niby spoko ale czasochłonne dla mnie :cunning: Widać, że masz niewiele doświadczenia z Excelem i nie potrafisz nawet wykorzystać natywnych możliwości programu :cry: Pierwsze 6 wierszy (te z kryteriami filtrowania) możesz zawsze ukryć przed użyszkodnikami :D tego arkusza. Warunki filtrowania zapisane są w postaci samo aktualizujących się formuł więc...
Jesli tak: [syntax=vb]Arkusz1.Cells(w, kol).Copy Arkusz21.Cells(poz, kol_doc)[/syntax] Ponadto czy istnieje Arkusz21 ? Nie nazwa wkladki, tylko kodowa nazwa(widoczna w edytorze VBA)
Co rozumiesz przez "arkusz od 8 do n"? Masz arkusze które nazywają się Arkusz1, Arkusz2, ... Arkuszn czy masz n arkuszy o innych nazwach?
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Z całym szacunkiem, ale OpenOffice, to nie MS Office i vice versa. Na przyszłość nie używaj zastrzeżonej dla M$ nazwy Excel.
Wywołaj w kodzie arkusza 'Kredyty' (makro 'ListaZb' w module) [syntax=vb]Private Sub Worksheet_Activate() ListaZb 'nazwa uruchamianego makra End Sub[/syntax]
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)
nazwa arkusz excel nazwa zakres excel nazwa arkusza excel
pułapka basowa programatorem rt809f podświetlenie łącznika
suszarka kondensacyjna ładowarka dynamo
Moretti 4T 80 cm³ – oryginalne rolki wariatora 16x13 mm 6,0 g, GY6 139QMB, tuning Technics SH-8055 – opinie, recenzje, wady i zalety korektora 12-pasmowego