Hej. Jak dla mnie widzę tu tylko makro w Excelu. Niestety programista ze mnie kiepski, więc coś tam próbowałem wymyślić, jednak nie gwarantuję, że będzie działać idealnie. [syntax=vb]Sub Makro1() Const MaxR = 20 ' maksymalna ilość powtórzeń If ((Selection.Rows.Count < 2) Or (Selection.Columns.Count < 2)) Then MsgBox "Zaznacz obszar, na którym...
Podpowiadam. Dim i As Long Const max = 20 ' w zależności od liczby wierszy 'lepiej ustalić liczbę wierszy szukając ostatniego Application.ScreenUpdating = False 'w przykładzie dane są od pierwszego wiersza For i = 1 To max * 2 Step 2 'wstawiany jest co drugi wiersz więc max * 2 ActiveSheet.Rows(i + 1).Insert 'wstawimy pod źródłowy 'tutaj przypisujesz...
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Witam. Czy jest możliwość w Excelu aby wyznaczył ostatni wpis po dacie w danym miesiącu. Mam w kolumnie A daty w B kwoty C dostawcy chcę aby Excel zaznaczył na kolorowo wiersz w którym jest ostatni wpis z danego miesiąca. Udało się zrobić aby sumował każdy miesiąc osobno. Tylko chcę aby było widoczne kiedy kończą się wpisy z jednego miesiąca a kiedy...
Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
Akurat robiłem coś takiego do swojego projektu i mam kod pod ręką. Wklejasz go do arkusza, który ma obsługiwać "kolorowanie wiersza" po wpisaniu wybranego znaku (w moim wypadku: litery x do kolumny 1). Kod został rozbudowany o "dynamiczne" ustalanie zakresu kolumn do zaznaczenia (ost_col - ostatnia kolumna nagłówka), obsługę zarówno wpisania pojedynczej...
Sama funkcja wyszukaj.pionowo() też tu nie poradzi. Właściwie tak jak to przedstawiono to na przykładzie to nic oprócz oka ludzkiego nie posegreguje "z pustymi". Bo po czym ma excel poznać że dana z drugiego wiersza B równa "002" jest inna od danej z trzeciego wiersza B równego "002" Za pomocą Wyszukaj.pionowo() z zerem jako ostatni argument efekt będzie...
Zależy mi na tym, aby formuła w drugiej zakładce znalazła wiersze z wybranej daty, następnie znalazła użytkownika z tej daty (jeżeli by go nie było to wpis: BRAK) oraz aby w pierwszej komórce wpisała pierwsze logowanie do systemu, a w drugiej ostatnie z tej konkretnej daty. Formuły tablicowe (zatwierdzanie CTRL+SHIFT+ENTER): wejście: [syntax=text]=JEŻELI(MIN(JEŻELI(((Stycze...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Napisałeś się, napisałeś, a pewnie i tak bez załącznika mało kto się w tym połapie... Ja też po którymś tam warunku wysiadłem, ale z tego co piszesz, to są proste operacje, tylko musisz zastosować kilka pętli. - zacząć możesz od zadeklarowania skróconej wersji arkuszy: [syntax=vb]Set wsrap = ThisWorkbook.Worksheets("Raport") Set wswyn= ThisWorkbook.Worksheets("Wynik")[/syntax...
Kod który Ci podawałem ostatnio działa tylko dla jednej kolumny, takiej samej jak Target.Column. U Ciebie nie działa bo funkcja Intersect() [zwracająca wspólną część dwóch zakresów] poza 15-tą kolumną jest teraz wywoływane na nie takich zakresach jak trzeba. Zmień początek tego makra na taki: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range)...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
Wszystko zależy od tego, w jakim formacie będziesz miał dane, które dostaniesz. W przykładzie jest to x, y, z, x, y, z na przemian. To by oznaczało, że już przy pierwszym pytaniu pojawią się wszystkie nazwiska, jeśli nic się nie zmieni. Możesz skopiować te nazwiska (jednokrotnie, tak jak w arkuszu na drugiej stronie) i wkleić je tam, gdzie być mają....
W Excelu nie ma sensu deklarować obiektu typu "Excel.Application". Wystarczy "Open". Próba nałożenia filtru na jeden wiersz zakończy się błędem, dlatego należałoby określić ostatni w tabeli. Pamiętaj o usuwaniu zmiennych obiektowych z pamięci. Spróbuj[syntax=vb]Private Sub CommandButton1_Click() Dim xl As Workbook Set xl = Workbooks.Open("C:\Documents...
Pokaż w załączniku jak to wygląda, ceny możesz zmienić na fikcyjne. Na czym polega to formatowanie, które chcesz przenosić? Czy ono jest stałe dla całych kolumn, czy każda komórka ma własne? Po tym ostatnim opisie wydaje mi się, że grupowanie arkuszy powinno wystarczyć. Istotne tylko jest czy wiersze w obu arkuszach sobie zawsze będą odpowiadać, to...
Witam, chciałbym ponumerować wiersze w excelu 2016 za pomocą formuły jak w załączonym pliku. W kolumnie A są wartości stałe - liczby porządkowe od 1 do 6, a w kolumnie B (zmienne) - liczba wierszy do ponumerowania. Efekt powinien być taki jak w kol. D. O ile wiem jak to zrobić w przypadku gdyby była tylko jedna liczba porządkowa to nie wiem jak w przypadku...
Witam, określiłem szerokość kolumny "IV" i teraz mam obramowania tylko w wierszach gdzie w kolumnach "C" i "D" są wartości większe od zera, w przypadku wartości "0" jest "po staremu. Pozdrawiam: Keszybz
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
może źle się wyraziłem chodzi mi o obszar roboczy widocznych będzie tylko część wierszy po odfiltrowaniu reszta jest ukryta jak w nowym załączniku czy da się coś takiego zrobić podejrzewam że będzie potrzebne makro, ale pewności nie mam. nowy załącznik raz jeszcze nie chce w filtrze odznaczać pozycji których ma nie wyświetlać bo musiałbym "odptaszkować"...
Witam, Mam 2 problemy do rozwiązania w jednej tabelce i proszę o pomoc. 1) Napisałem formułę do sprawdzania poprawności danych (w kol. E a docelowo będzie ona w kol. D), ale niestety nie działa ona poprawnie. W komórkach E8-E9,E11-E12 pokazuje FAŁSZ zamiast PRAWDY. W skrócie chodzi o to że jeżeli np. $C8=0 to $D8=0, a jeżeli $C8<>0 to w $D8 należy...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
W dowolnej kolumnie zapisz w wierszu pierwszym nagłówek np. towar a w kolejnych wierszach używając zmiennie małych i wielkich liter parę słów (nie pisząc bzdurek bo bzdura wyjdzie) z grupy towar. Zaznacz od pierwszego do ostatniego zapisanego wiersza kolumnę. Teraz kliknij prawą myszkę i wybierz opcję np. Filtruj :arrow: Filtruj według wartości wybranej...
Musisz określić ostatni zapisany wiersz w danej kolumnie, np. poprzez (dla kolumny A): [syntax=vb]Dim lOstRw& lOstRw = Cells(Rows.Count, 1).End(xlUp).Row[/syntax] Później w komórce poniżej ostatniej zapisanej wpisujesz formułę sumowania dla zakresu od wiersza 1 do ostatniego zapisanego wiersza w danej kolumnie (dla kolumny A): [syntax=vb]Cells(lOstRw,...
Cierpliwości kolego, wszystko wymaga czasu. Więc tak, doszedłem do wniosku ze caly problem nalezy rozwiazac od poczatku. Ruszyc baniakiem, wypic pare piw ( o papieroskach nie wspomne ), jak w kartach, dym piwo i przekleństwo:D. Efekt tej walki przedstawiam ponizej, a w zalaczniku przykladzik. Sposob edycji wynikow moze sie wydawac troche dziwny, ale...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Bede bardzo wdzieczny za jakiegos tzw. gotowca. Jako nowo-zarejestrowanemu w formie promocji :) Rozciągnij kolumny na jakieś 250 pikseli, będzie lepiej widać (sam się złapałem na spacjach). Spróbuj[syntax=vb]Sub proba() Dim tbl1 As Variant, tbl2 As Variant, test As Boolean Dim i As Long, j As Long, w As Long w = 2 Range("C2:C" & UsedRange.Rows.Count).ClearContents...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Chodzi o to aby uzupełniało te komórki w których wpisy są na czerwono, i jeszcze jeden problem: patrz dwa ostatnie wiersze(żółte), są to wiersze, które występują w zestawieniu jeden pod drugim i w tym drugim wierszu coś źle liczy.
Witam! Bardzo proszę o pomoc, mam następujący problem chciałbym aby makro wstawiało pusty wiersz po określonej liczbie w moim przypadku chodzi aby wiersz pusty był wstawiany przed ostatnią liczbą mniejszą od 1 000 000 (wartości zawsze posortowane są malejąco) np mam taki ciąg: a 6 541 237 b 3 214 578 c 1 002 478 tutaj makro wstawia pusty wiersz d 987...
Jeżeli jednak chcesz wpisać do aktywnej komórki formułę łączącą dane z arkusza wsh, z ostatniego wiersza i kolumny 9 to należy to zapisać następująco:[syntax=vb] Row_komorki = ActiveCell.Row Column_komorki = ActiveCell.Column ActiveCell.FormulaR1C1 = "='" & wsh.Name & _ "'!R[" & ost_w - Row_komorki & "]C[" & 9 - Column_komorki & "]"[/syntax]
Wielu skrótów tak szybko nie ogarnie, oprócz ctrl+c; ctrl+v, musi użyć alt+tab, przejść do ostatniego wiersza ... Dla kogoś wprawionego wydaje się to śmieszne, bo robi się to "małpimi ruchami". Dla początkującego, a jeszcze w momencie, kiedy ma mnóstwo innych spraw do ogarnięcia, nie jest to już takie proste. Chciałbym to ogarnąć jednym skrótem klawiaturowym,...
Bo "coś" masz w wierszu 3 i 4, być może śmieci z poprzednich prób. Jak je usuniesz to powinno śmigać. Swoją drogą, niepotrzebnie 7x ustalasz ostatni wiersz, wystarczy to zrobić raz na początku, a potem wykorzystać: [syntax=vb]Private Sub CommandButton1_Click() wiersz = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & wiersz).Value = marka Range("B"...
Witam, Mam taki problem - chciałbym zrobić listę, w którym ostatni wiersz byłby linkiem do zdjęcia. Wszystko działa na moim komputerze, ale jak przerzucam na inny to linki są bezużyteczne - c:/cośtam/user/desktop/excel/zdjecie1.jp... Próbowałem wrzucić zdjęcia i plik do jednego foldera (tak aby inny mieli wszystko w zipie) i zmieniłem odnośniki na ../zdjecie1.jpg...
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał To rozwiązanie mimo że zadziała, nie jest dobrym sposobem z dwóch powodów: 1. jest czasochłonne...
1. Czy dane o identycznych wartościach w kolumnach C i F występują zawsze kolejno po sobie? 2. Czy można zrobić tak, żeby obliczenie (i wpis wyniku) następowało automatycznie (nie po naciśnięciu przycisku) po wprowadzeniu ostatniego OK dla danej kategorii?
Rada: Określ ostatni wiersz kolumny C (najlepiej przypisz to do jakiejś zmiennej np. OstWrsC) Następnie zamiast "300" w linii z AutoFill wstaw określoną wcześniej liczbę ostatniego wiersza kolumny C (czyli OstWrsC) Oczywiście zachowaj zasady łączenia ciągów tekstowych ze zmienną (znak & ) Wystarczy, czy gotowe rozwiązanie? Na marginesie: Jeżeli uważasz...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Jasne. Zrobiłem to sobie po swojemu oczywiście bo ze strony nic nie zrozumiałem :-) [syntax=vb] 'Połączenie idetyfikuje ostatni rekord rs.Open "SELECT (at)(at)identity AS NewID", connDB identity = rs.Fields("NewID") 'kod zwracający ostatni uzupełiony wiersz w excelu lp = Range("C65536").End(xlUp).Row 'Zaznacz ostatni wprowadzony wiersz Range("A" & lp).Select...
Podaję przykładowy kod procedury sumującej wiersze zawierające takie same dane w kolumnie "A". Dane muszą być posortowane.[syntax=vb] Sub Sumuj_Wiersze() With ThisWorkbook.Worksheets("Arkusz1") ostatnia = WorksheetFunction.CountA(Columns(1)) + 1 For wiersz = ostatnia To 2 Step -1 If .Cells(wiersz, 1).Value = .Cells(wiersz - 1, 1).Value Then 'sumowanie...
W pierwszej komórce poza obszarem danych (albo drugiej żeby był odstęp) wpisać formułę konwertującą lewą-górną komórkę danych. Zaznaczyć wiersz komórek począwszy od tej właśnie wypełnionej formułą w prawo 10 komórek, potem ctrl-R. Zaznaczyć obszar od pierwszego, właśnie wypełnionego wiersza do ostatniego wiersza danych i ctrl-D. Poczekać aż formuły...
(...) lko wartości liczbowe, czy również daty? Są tam wartości liczbowe. AI: Z jakiej wersji programu Excel korzystasz? Czy używasz jakichś dodatkowych narzędzi lub dodatków, które mogą wpływać na formuły? Nie używam żadnych dodatków. Jeśli jakieś byłyby potrzebne do rozwiązania zadania proszę o informacje. Bezpośrednia odpowiedź na pytanie Aby stworzyć...
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
Otwieram Twoj plik i jest ok, jak dodam jeden wiersz juz się kopie. Skopiuj w Arkuszu 1, ostatni wiersz i wklej go niżej. Albo wpisz kolejna datę i obok w kolumnie D literkę: C U mnie po takiej operacji wszytko wyświetla z błędami. Jak wpiszę zakres od 1 do 35536 to działa... Chyba zostane przy tym rozwiązaniu. Nie chciałbym żeby się to kiedyś samo...
Coś nie mogę sobie z tym poradzić. Wygląda to tak na tą chwilę: Zapisują się dane w arkuszu "Historie" z arkusza "Wydawanie" kolumna C (C4:C14), ale za drugim razem i jak mam inne dane w arkuszu "Wydawanie" przekopiuje znów do arkusza "Historie" w następny wolny wiersz ale przy okazji zmienia wszystkie poprzednie wiersze i wstawia takie same dane jak...
Ogólnie tu jest kwestia poprawnego żonglowania Do while Cells(i,1) <> "" (czyli określenie ostatniego zapisanego wiersza) , warunku if i poprawności adresacji komórki przez liczbę( czyli dla celnego określenia użyj sformułowania Sheets(" [syntax=vbscript] Dim i, c, d As Integer Dim dzien As String i = 1 c = 1 d = 1 'określenie ilości komórek...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Cześć, mam plik w którym znajduje się lista kodów pocztowych miast. chce napisać makro które po zliczeniu do ostatniego wiersza ile jest kodów stworzyłoby mi nowe pliki excel o nazwach z kolumny kod niestety to co mam obecnie tworzy mi tylko jeden taki plik i wyrzuca błąd: [syntax=vbscript]Columns("A:A").Select lastrowA = Application.WorksheetFunction.CountA(Sel...
witam, mam problem z makrem. Męczę się meczę i nic :/// Chcę, żeby makro zaznaczało kolumnę, sortowało ją rosnąco Np: a a a b b b b c c ... a następnie podawało mi zapisywało mi zmienne w ten sposób, żeby każda ze zmiennych definiowała pierwszy wiersz, w którym jest "wartość", a następnie ostatni wiersz, który zawiera wartość "a" i tak ze wszystkimi...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania danych gdy mamy dwie wartości podane - czy da się ten kod...
Rzeczywiście - nie tu deklaracja początkowych zmiennych a i b Tak powinno być [syntax=vb]Sub trzeci() Dim a As Double Dim b As Double Dim c As Double 'Worksheets("dane").Select 'Start przeszukiwanych kolumn c = 1 While Len(Cells(1, c).Value) > 0 'Jeżeli nagłówek kolumny jest "cena" to wykonaj If Cells(1, c).Value = "cena" Then 'Start tabeli a = 2...
Witajcie Jestem jeszcze trochę słaby z excela, dlatego chciałem zapytać Was, jak powinna wyglądać formuła, która w moim mniemaniu powinna byc mieszanką funkcji JEŻELI z funkcją WYSZUKAJ.PIONOWO. Moim zadaniem jest znalezienie zawartości komórki B2 - jest to ciąg cyfr (plik excel nr 1) w jakiejś tablicy (plik excel nr2), i wypisanie sława "TAK", pod...
Witam! Mam w pliku Excel arkusz dla każdego tygodnia roku kalendarzowego o nazwach T-01, T-33, T-43 itd. W arkuszu posiadam makro do szybkiego tworzenia nowego arkusza przenoszące układ i formatowanie obecnego arkusza i dodatkowo przenoszące do nowo tworzonego arkusza wiersze dla których wartość w kolumnie J jest większa od zera. Plik służy mi do cotygodniowego...
:-) Uff... , ulżyło mi. Ja to chyba muszę wrócić do szkoły żeby się nauczyć pisania ze zrozumieniem, bo nic nie pisałem ostatnio, że mam problem z makrem do wysyłki email , a Ty tak to zrozumiałeś. Z resztą, kod do wysyłki już zamieszczałem we wcześniejszych postach. Ale do rzeczy: Potrzeba jest taka, aby Wasz kod uzupełnić o porównywanie czy nazwa...
Witam Mam taki trywialny dla większości z Was problem. Potrzebuję zrobić import wartości z kilku kolumn z jednego skoroszytu (powiedzmy kolumn A, C, G) - ale od wiersza nr 8 do ostatniego niepustego- do drugiego skoroszytu. Plik, z którego pobieram dane każdorazowo ma inną nazwę, więc niezbędne pewnie będzie wskazanie pliku na komputerze. Idealnie byłoby,...
Cześć. Jako typowy human mam niestety problem z elementarnymi rzeczami informatycznymi. Ostatnio sen z powiek spędza mi import danych z wybranych kolumn. Wstyd przyznać, ale na razie robię to na zasadzie kopiowania pojedynczych kolumn i wklejania do nowego arkusza. I tak dwa razy w tygodniu. Sposób jest bardzo skuteczny ;-) ale zapewne można go znacząco...
Dokładnie coś takiego, niestety formuła wyszukuje do końca (do ostatniej komórki). Jak to poprawić aby np. wg kolumny A liczyło tylko do miejsca, w którym kończą się dane. Ten konkretny kod wygląda tak: [syntax=vb] ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 LR1 = Range("A" & Rows.Count).End(xlUp).Row LR4 = Range("G" & Rows.Count).End(xlUp).Row Range("G"...
W "Arkusz1" w kolumnie A i B wstawiłem przykładowe dane. Kolumna C służy jako pomocnicza. Główna funkcja to ZNAJDŹ, opis w pomocy, użycie b.proste. Funkcja MAX zwraca najwyższą wartość zakresu. Dodając jeden dla wartości spełniających warunek (ZNAJDŹ) tworzę Nr kolejny dla funkcji INDEKS znajdującej się w "Arkusz2". Osobiście wolę gdy generowany jest...
Tak cyferki 1,2 w wierszu to numery pytań w kolumnie zaś są miejscowości w których byli ankieterzy. Pierwsze trzy pytania to po kolei płeć "k" lub "m" następnie wiek np. 31-40 a ostatnie z trzech to wykształcenie np. wyższe. Taki jest wzór pierwszych pytań a dalej to już a,b,c itd. w zależności od ilości pytań. Wynikiem była by tabela z podziałem jak...
Ok zmiana w B2 Ale nie "idz" od razu na koniec "zabrakło tabeli na 30/06/2013 ( CO) więc ją skopiowałem od poprzedzającej w prawo mam nadzieję, że zasadnie? " No nie do końca bo kwiecień/ maj ma błąd a co za tym idzie ostatnia kolumna czerwca też jest błędna. Po kolei jeszcze raz: zmieniasz B2 idziesz do końca 1 miesiąca i sprawdzasz ostatni dzień i...
Sortowanie załatwiłem przez nagranie makra i skopiowanie tego co chciałem jak tutaj: Range("A:I").Sort Key1:=Range("B2"), Order1:=xlAscending co do wyszukiwania ostatniego wiersza z nazwiskiem możesz zrobić w pętli przez porównanie. Np (dla wierszy od D2 w dół) taką jak poniżej, to nie wiem za bardzo jak...
Czy spotkał się ktoś może z gotowym rozwiązaniem następującego problemu: arkusz z tabelą czterokolumnową zawierającą spis dokumentów z przedziałami ich numeracji: kol. A zawiera symbol dokumentu, kol. B zawiera pierwszą liczbę z przedziału numerów, kol. C zawiera ostatnią liczbę z przedziału numerów, kol. D zawiera ilość dokumentów wg powyższego przedziału....
W załączeniu przykład rozwiązania z tym że nie jest "idioto odporny" Ja założyłem że użytkownik jest świadomy i wszystkie dane będą wielokrotnością 5 Dodane po dłuższej chwili ----------------------------------------... Zmieniłem przed chwilą załącznik. Skorzystałem z sugestii kolegi adamasa dotyczącej sprawdzania piątego wiersza z rozbudowaniem...
Jest sobie w "łekseselu" procedura np. 'Worksheet_Change', działa ona w ten sposób, że wychwytuje zmianę zawartości komórki arkusza, tj. stawiamy kursor na jakiejś komórce, wpisujemy coś z klawiatury i po wćiśnięciu 'pankracego entera' uruchamiana jest w/w procedura. No i niby mamy co chcemy, ale ...: 1. tutaj dane będą wprowadzane w wiele komórek w...
Moje pierwsze w zasadzie makro VBA w wordzie (pisałem kilka makr w Excelu, ale swój poziom szacuję na podstawowy). Tak więc trochę mojego niechlujnego kodu: Const ilePyt = 50 Const ileOdp = 4 Const pytWTescie = 15 Należy ustawić odpowiednio ilość wszystkich pytań, ilość odpowiedzi na każde z pytań, a także z ilu pytań ma się składać test. Dokument źródłowy...
Witam, mam w pierwszym arkuszu zrobione komórki A1, A2, A3, A4, A5 - sa one zrobione na zasadzie formantów natomiast w komórkach B1, B2, B3, B4, B5 mam już zrobione występujące słowo zależnie co użytkownik wybrał. Komórka A6 jest to data wyliczna na zasadzie (Użytkownik wybrał w komórce jakiś okres czasu więc komórka a6 pobiera dzisiajszą datę i dodaje...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Ostatnio zacząłem bawić się vba w excelu i niestety chwilowo utknąłem ;) mam dwa problemy: 1) Mam userforma w którego wpisywane są dane i po zatwierdzeniu przyciskiem "zapisz" wszystko trafia do odpowiedniego akrusza w excelu. ww. userform wywoływany jest przez przycisk na w innym arkuszu (commandButton) Private Sub cmbDodajDefekt_Click() DodajDefekt.Show...
W kolumnie C sumy są liczone narastająco. Do zawartości C w poprzednim wierszu dodawana jest bieżąca zawartość kolumny A, np. w C10 jest C9+A10 itd. Ponieważ ostatnią liczbą w kolumnie A jest wpis w A9 = -100, to w C9 obliczyło się 44,11 i dalej jest taki sam wynik, bo w kolumnie A są już puste komórki, które w obliczeniach są traktowane jak zera. Działanie...
Hej. W zasadzie czytałem Twój kod, ale jak spojrzałem na te dane w arkuszach to stwierdziłem, że nie będę tego rzeźbić, bo łatwiej by było od nowa napisać. Ale pokieruję Cię trochę. 1. To, że jak przeklejasz wartości i np wskakuje Ci 1luty to łatwo możesz obejść zamieniając format na tekstowy, najlepiej całej kolumny można to zrobić za pomocą Selection.NumberFormat...
Teoria : cells(nr wiersza, nr kolumny) więc (czytaj zielone :) ): [syntax=vb]Dim ostWrs As Long, i As Long Dim ark1 As String Dim ark As Worksheet Set ark = Sheets("Lista pracowników") ark1 = ActiveSheet.Name ' przypisanie zmiennej nazwy aktywnego arkusza Application.ScreenUpdating = False ' wyłączenie odświeżanie arkusza by nie było widać zmian With...
Witam, Myślę że po dwóch latach trochę bym inaczej ten kod dzisiaj napisał (czytaj: uprościł), mianowicie: n , domyślnie równą Nothing .
Wiesz co wziąłeś się za makro nie do końca chyba rozumiejąc zasady. Pierwsza część: Po co to, jak jeszcze nie wprowadziłeś żadnych danych do tablicy: AA = tablica(a, f) BB = tablica(b, f) CC = tablica(c, f) DD = tablica(d, f) EE = tablica(e, f) Wszystkie wartości tych zmiennych (AA BB itd.) będą puste. Druga rzecz Wydaje mi się że nie te pętle zastosowałeś...
Witam, mam w excelu kilka arkuszy (styczeń luty...) w których występują tabele danymi o transakcjach sprzedaży różnych artykułów w danych miesiącach. Wierszy w każdym arkuszu jest różna ilość W kolumnie C określony jest rodzaj artykułu (oznaczenie: a, b, c, d, e), w kolumnach D, E, F, G mam wpisane kwoty sprzedaży w zależności od rodzaju artykułu, i...
nie, nie raczej żeby się to samo z siebie zrobiło, ale widze że chyba przeceniłem excela. To jak to zrobić w VBA?? rejestrator makra mi pokazał coś takiego: Dodano po 4 Ktoś musi je wpisać :) Wklepanie dwóch prostych formuł, skopiowanie jednej z nich przy użyciu kombinacji skrótów klawiszowych w dowolną ilość komórek w kolumnie zajmuje <5 sekund....
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz drugi Main.xlsx Oba plik mają ten sam układ - 20 kolumn....
Tak po przemyśleniu stwierdziłem że w stopce się nie da bo trzeba by było zmieniać stopkę każdej strony a nie mogę znaleźć funkcji odpowiedzialnej za (kierującej na) stopkę danej strony. Pomyślałem więc, że zrobię coś takiego. Sprawdzę ile jest "złamań" strony. Odczytam wiersz złamania i dodam jeden wiersz z sumą od góry do przedostatniej komórki. Na...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
Szukałem na wielu stronach ale niestety nie znalazłem rozwiązania swojego problemu. Przerobiłem całkowicie swój kod, który wygląda następująco: "Run Time Error '2147023706(800704a6)': Automation error. A system shutdown has already been scheduled" w lini [syntax=vb] Set IE = New SHDocVw.InternetExplorer ' ladowanie przegladarki IE'[/syntax] Przeczytałem,...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
Witam sympatyków Excela... Próbuję przy pomocy funkcji, zmusić Excela do automatycznego, wypełniania komórek tabeli w Arkuszu1 , danymi pobieranymi z tabeli w Arkuszu2 Ostatnio, przy bardzo podobnym temacie, dotyczącym Maciej Gonet . Który do rozwiązania użył funkcji. Postanowiłem samodzielnie zbudować podobną funkcję. W tym celu, dla tabeli w Arkuszu1...
Musiałoby być cos takiego, sprawdź Sub CopyCount() Const wrt01 As Single = 72 Const wrt02 As Single = 15 Const wrt03 As Single = 13 Dim i As Integer, licznik As Integer, ark As String ark = "Arkusz2" ' nazwa arkusza docelowego licznik = 2 'pierwszy wiersz ark docelowego Sheets(ark).Range("A2... & Range("A2").End(xl...
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Dziękuję za pomoc. Trochę to nie jasne dla mnie, jestem laikiem w tym temacie, korzystam z VBR dosyć rzadko. Odnośnie tych poleceń czy to są formuły do wklejenia w komórki? Chcę napisać procedurę która będzie automatycznie dzieliła te człony, dodawała znak = oraz + i wklejała je w kolejno kolumny A B C, ponieważ tych linii mam tysiące do edycji, a ręczna...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Podmień Jak zwyklę w punkt :) dziękuję . Działa Jeszcze ostatnia rzecz i stawiam kratę dobrego piwa ! A czy można (pewnie można) dołożyć warunkowanie które będzie uruchamiało różne makra na podstawie zawartości kolumny A w aktywnym wierszu. Wpisując w kolumnę D=AWARIA lub SPRAWNY lub WARUNKOWO , VBA sprawdza co widnieje w kolumnie A i na podstawie...
DZIĘKUJE BARDZO, BEZ POMOCY NIE UDAŁO BY MI SIĘ WYKONAĆ TEGO ZADANIA. W projekcie pozostało mi jeszcze kilka spraw tzw. kosmetycznych. Choć jak dla mnie nie do ogarnięcia I tak: Arkusz rozszerzyłam i ma teraz 18 kolumn (A:S) ---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit);...
witam, jestem bardzo początkującym "programistą" i nie bardzo rozumiem rozwiązania przedstawionego w tym wątku, a również mam problem z funkcją tablicową. Mój kod działa w pętli i to na kilku różnych arkuszach. Nagrany kod wyglada tak: [syntax=vb]Range("H14").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(SUM(IFERROR(('od 13.01'!R[-9]C1:R[1754]C1>=R[-13]C)*('...
W komponencie ListBox chyba nie ma możliwości zrobienia siatki. Do tego musiałbyś wykorzystać inny komponent: jak w projekcie UserForm4 klikniesz prawym na toolboxie / Additional Controls, to jest tam komponent Microsoft ListView Control. Wygląda podobnie jak ListBox, tylko trzeba go skonfigurować. Jest o tyle fajny że działa na nim scroll myszy :)...
czy suma tylko dwóch liczb czy możliwa większa ilość wyrazów? czy wartości mogą się powtarzac? a jakby posortować te liczby od największej do najmniejszej? Dodano po 1 Viola :) (funkcja =PODAJ.POZYCJĘ(C9;B10:B18;0) ) w następnych kolumnach wpisz to samo dla 2000-B1 3000-b1 ...ile chcesz póżniej w ostatniej kolumnie jedziesz sprawdzenie czy jest wartość...
Pozwolę sobie odświeżyć temat bo makro spełnia moje oczekiwania tylko nie mogę sobie poradzić z jego przerobieniem a mianowicie chciałbym, żeby dane z poszczególnych plików txt kopiowały się nie jedno obok drugiego (w kolejnych kolumnach) tylko jedno pod drugim. I jeszcze jedno, gdyby się dało też w ostatniej kolumnie przy każdym wierszu wpisać nazwę...
Witam Mam za zadanie napisać kod do automatycznego tworzenia tabeli przestawne w VBA. To udało się bardzo łatwo... Jednak problem pojawił się w momencie dodania opcji uzupełnienia tabeli źródłowej o dane z innego arkusza. W momencie tworzenia tabeli wyskakuje błąd VBA6.dll dla office'a 2007. bez tego kod kompiluje się normalnie PT.AddFields RowFields:=Array("Użytkownik"),...
W załączniku są pliki końcowe, które bedą używane i teraz fajnie by było, gdyby znalazły się jeszcze następujące rozwiązania: 1. W pliku czerwony1 , jeśli dodatkowo wartości w kolumnach M i U zostaną zmienione na kolor czerwony , to nie zważając na to, czy w kolumach odpowiednio AM i AQ są wpisane godziny , kopiowałoby te wartości razem z wartością...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
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...
OK działa. Super, dzięki. A czy do mojego kodu mogę dodać tworzenie tabeli 2x2 (wiersze, kolumny). i tak, żeby np. w którejś kolumnie pisać dwoma stylami. Tzn. był napis "KolorTest" w którym to napis "Kolor" będzie czerwony a "Test" czarny? Dodano po 5 Może bardziej sprecyzuję o co mi chodzi: W tej procedurze jestem już w stanie (dzięki OJM) wrzucić...
Teraz jest ok. Scieżka nie jest wymagana więc uruchomienie makra na komputerze przy innej sciezce pliku nie jest tez problemem. Co mi jednak wyskoczylo jeszcze to dwie rzeczy. Plik lista.xls zmodyfikowalem tak, aby dostosować go do własnych potrzeb. Przykładowy plik wrzuciłem w załącznik. Powstają dwa problemy: Pierwszy to fakt, że raport zwrotu pobierany...
Witam, Mam następujący problem w Excelu: w arkuszu "Basic" mam dane w dwóch kolumnach - A i B. Od A2 i od B2 (wyżej tytuły). W kolumnie A mam kolejno daty (codzienne) od najnowszej do najstarszej (lata 2002-2010). W kolumnie B odpowiadające datom wartości zmiennej. Chcę skopiować dane z kolumny B do innego arkusza "Divided" w następujący sposób: w kolumnie...
excel ostatni wiersz ostatni wiersz wyszukać ostatni wiersz
skanowanie dwustronne ili9341 biblioteka moduł mazda
Candy GOY1054L – wymiana programatora krok po kroku, zgodność modułu, testy serwisowe Jak sprawdzić pompę AdBlue Bosch, Continental – podłączenie przewodów, test PWM, CAN