Lub tabela przestawna lub: [syntax=vb]Sub kokos() Dim r&, c& r = 2 While Cells(r, 1) <> "" c = Application.Match(Cells(r, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3): Cells(r, 3) = "" While Cells(r, 1) = Cells(r + 1, 1) c = Application.Match(Cells(r + 1, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3) Rows(r + 1).Delete Wend r = r + 1 Wend End...
Lub w inny sposób: [syntax=vb]Sub Kasownik() For Each szukana In Range("1:1") If szukana.Value = "MSISDN" Or szukana.Value = "Kod sprzedawcy" Then kolumna = szukana.Column Columns(kolumna).Delete shift:=xlToLeft End If Next End Sub [/syntax]
Jakiś przykładowy plik? Łatwiej będzie pojąć co autor ma na myśli. :D
Wygląda prawie idealnie. Nie wszystkie tylko wiersze się przenoszą do zakładki "zalatwione" poniżej któregoś wiersza tylko są kasowane...
Zadeklarowałem zmienną publiczną 'suma1' w formularzu. Na liczenie przy Initialize powinieneś wpaść sam. ? Przy zmianie w textBox'ach musisz wyzerować, przeliczyć i zapisać do Label'a. Tu nie możesz liczyć przy zapisie do tablicy, bo suma musi wyjść bez warunków (kasowanie ostatniego znaku). Przykład w polu 'Zmiana'.
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...
a da sie zrobić ze po zeskanowaniu/wpisaniu w zółtym polu numeru narzędzia wprowadzany numer zniknie zeby nie trzeba bylo kasować recznie?
Da się. Przy wyborze kolejnej kolumny nie należy kasować poprzedniego filtra. Za kasowanie odpowiada polecenie [syntax=vbscript].AutoFilterMode = False[/syntax]To polecenie kasuje wszystkie dotychczas ustawione filtry. Tylko nie bardzo wiem jak to miałoby działać. Masz 6 filtrów, chcesz, żeby działanie wszystkich sześciu się nakładało? Jak będziesz...
Super pierwsze działa drugie sprawdzam. Z pierwszym jest jeden problem. Używam tego makra do paru obrazków. Jeżeli wkleję do jednego a później do drugiego to kasuje mi pierwszy obrazek. Jak to zrobić zeby nie kasowało?
Ta nazwa jest już zajęta. Użyj innej nazwy Nie ma takiej opcji, gdyż przed dodaniem arkusza 'klientx' jest on najpierw kasowany...
EEPROMA bym nie kasował :D
Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
Typowe (najtańsze) pendrivy wytrzymują do 5000 cykli kasowania / zapisu. Jak intensywnie był używany ten pendrive?
Ale kasuje datę z wiersza wyżej... W załączniku poprawiony z przyciskiem usuwania ostatniego. (Burza poszła bokiem) Gdybyś zamiast ostatniego chciał kasować pierwszy to zmień w makro UsunWiersz linię: ostatni = True na: ostatni = False (opisane w makro)
Deletując (kasując) wpisaną liczbę wszystko przebiega OK, jedynie w momencie kasowania ostatniej cyfry pojawia się błąd.
Kolego bestler , dobrze się zastanów jeśli nie jest jeszcze za późno, żebyś potem nie żałował tragicznego w skutkach wyboru. Rok temu kupiłem nowy samochód z salonu. Ponieważ oryginalny zestaw navi/audio był bardzo drogi a kasy już mi w portfelu za wiele nie zostało (potrzebne było jeszcze AC/OC), zostałem skuszony podobno równie rewelacyjnym zestawem...
Wprawdzie znalażłem małą "furtke" w programie bo wykasowując po kolei daty, można dostać się do samego początku wpisu, ale nie wiem czy jest to do usunięcia i pozostaje mi jedynie liczyć na to że się nie domyślą Próbowałeś blokować zapisaną część arkusza i pozostawiać możliwą do edycji resztę? Pod Excelem zablokowanie częściowe i zabezpieczenie hasłem...
Masz pełne uprawnienia do zapisywania/kasowania w folderze w którym chcesz tego dokonać.
Dokonałem reinstalacji komputera i zapomniałem przenieś jednego pliku Exela z ważnymi dla mnie danymi. Czy jest możliwość odzyskania tego pliku? Jeżeli tak to proszę o poradę. Nadmieniam, że po reinstalacji kasowałem wiele dużych plików.
O Witaj, dziekuję, wykorzystam Twoja podpowiedź, choć to kasowanie to mi nawet pasuje. A czy z tą wysyłką też mi cos podpowiesz? :)
Czy jest jakiś sposób/program, który kasowałby pliki (excel i word) lub je blokował bez możliwości oglądania/używania itp. o konrentej godzinie i w danym dniu/ po upływie jakiegoś czasu? Np. dajemy komuś do obejrzenia pliki i np. po 20 minutach, przy ponownym właczeniu pliki te stają się bezużyteczne lub ich po prostu nie ma. Dlaczego pytam? Ponieważ...
Dziala pieknie , wielkie dzieki Moze jeszcze jakis pomysl, zeby pozbyc sie tych "kropeczek" , gdyz nawet jesli skasuje wszystkie wiersze , kropeczka zostanie a chcialbym móc przygotowac sie do nowego liczenia ( znów od makro 1 ) bez kasowania calego skoroszytu. Pozdrawiam Piotrek
Dzięki za podpowiedź - pobawiłem się trochę i dobrze mi to działa , z tym ,że jest gdzieś błąd i nieraz (co drugi) przeskakuje kursor o 2 kol do przodu i jeden wiersz do góry. Nie mogę sobie z tym poradzić. Przy kasowaniu rocznym także leci błąd. Pozdro - Janusz
tylko wtedy przy ponownym pobieraniu dane znikną, bo ich już nie będzie w folderze źródłowym Nie znikną, jeśli będziesz dopisywała. Kasowanie pliku źródłowego po skopiowaniu, to taki średni pomysł, bo jak coś pójdzie nie tak, to skąd ponowne wczytanie?
Co do pierwszego spróbuj tak TablicaCenniki(1) = "ABA" TablicaCenniki(2) = "..." .... nazwy_zmiennych = TablicaCenniki(1) 'tu będzie pętla temp = Form_AktCen.Controls(nazwy_zmiennych... W "dalszych konstrukcjach" jezeli już to tak bym uprościł: Chcesz kasować cały arkusz ? Jeżeli tak wystarczy:...
Albo zrób sobie "odtwarzarkę wzorów", czyli makro, które je przywróci, moduł vba zabezpieczysz hasłem oraz przed podglądem, wstawisz przycisk w arkusz ... i wtedy żaden użytkownik ci nie straszny, będzie mógł kasować wzory do woli, co minutę ... jedno wciśnięcie przycisku i masz odtworzone formułki, a złośliwy użytkownik zgrzyta zębami ... Dodano po...
No niestety nie działa tak, albo nie zrozumiałem; Załóżmy że rekordem z którego kopiuje się do arkusza baza jest zakres A1:C1 A jeśli mam formatkę A5 B6 C7 -tak na ukos? Jak to przenieść do wiersza A1:C1 ? Zwykłe wpisanie formuły =cośtam jest automatyczne kasowane po przekopiowaniu, ale w A5 B6 C7 wpis zostanie...
A może by tak makrem kasować? Jakby go zapuścić w pętli, to może jeszcze by procesora wystarczyło na wpisywanie jakichś wartości do tych pozostałych komórek? :)
Masz małą wiedzę na temat możliwości excela. Włącz excel. Otwórz w excelu twój plik notatnika (zaznacz przy otwieraniu typy pliku "wszystkie pliki") Pojawi się pytanie czy "rozdzielany" czy "stała szerokość" W twoim przypadku zaznacz "stałą szerokość" Kliknij Dalej Zaznacz myszką gdzie ma byś podział kolumny. (tych podziałów może być dużo od ciebie...
Nie będę ukrywał - za trudne jak na mój poziom w tej kwestii. Dziękuję za pomoc bo to znaczącą przyczynia się do zwiększania wiedzy, która ciągle jest mała. A co trzeba jeszcze zmienić w pliku oprócz usunięcia kodu:[syntax=vbscript] If Range("A6") <> "" Then Range("A6:L" & wsWyn.UsedRange.Rows.Count).ClearContent... 'usuwamy stare dane [/syntax]...
Ponieważ w wierszu 26, w kolumnach OP istnieją takie dane. ;) Dodatkowo trzeba by ograniczyć że powinno pisać 1 tylko raz. Np. gdy w BCDEF występuje wiersz o danej nazwie i numerze DWA razy, a w OP tylko raz to powinna być dodana 1 tylko jeden raz ;) Jeśli się da to mógłby nawet kasować dany wiersz w OP po dodaniu "z niego" jedynki.
Tak jest jeśli chodzi o import to działa właśnie przy tych ustawieniach co 1 minuta automatycznie mi odczytuje uaktualnione pliki i właśnie się zastanawiałem czy jest szansa zwiększyć częstotliwość tego odświeżania. Ale właśnie boje się ze to wszystko się wysypie gdy będzie tak często odświeżane. Dodano po 5 Tak na dobra sprawę to najważniejszy był...
Dobre macro tylko co zmienić by nie kasowało tabeli bo mam odpowiednio komórki scalone i przeniosło dokładnie zawartość wraz z taka samą tabelka ? Z góry dziękuje za odpowiedź. Wiele jest tematów na temat kopiowania danych z arkusza do arkusza lecz nie mogę wykombinować jak 1.Skopiować tabelkę z zawartością zachowując format czcionkę etc. 2.W tabeli...
Ten kod jest do napisania od nowa, według mnie. Mnie też :) ale nie ma żadnego innego pliku. jest: 1) plik bat, który generuje mi listę z dyskami, które są na komputerach - ta lista nazywa się raport.txt. Dołączyłem w pierwszym poście 2) plik z kodem vba, nazwany plikRoboczy.xls - też go dołączyłem Patrząc na strukturę pliku txt mam wrażenie, że szybciej/lepiej/wygodniej...
No raczej kasowanie tego było by żmudne rzeczywiście. Lepiej dopisać funkcję poprawiającą, czyli zamiast wpisywać w ostatni_wiersz + 1 ( pierwszy wolny ), to wpisałbym jeszcze raz ( poprawne już dane ) w ostatni_wiersz
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...
Próbowałem makrem, ale nie wiem jak zrobić, aby przeskakiwał mi do kolejnego wiersza w drugim arkuszu, nie kasując pierwszego podczas robienia np. drugiej oferty. Ponadto zdarzyło mi się, iż marko kasowało mi nowe dane, więc wolałbym zobaczyć jakiś przykład, ponieważ swoje się wstydzę... Pozdrawiam i jeszcze raz dziękuję DD
Witam, tak dokładny czas rozpoczęcia i trwania zmiany jest w kolumnie ind-07 (2), w tabeli jest tylko informacja dla pracowników. Natomiast główny arkusz ma poukrywane formuły co uniemożliwia mi kopiowanie w poziomie a pozwala tylko w pionie trochę jest to utrudnieniem przy szybkim kasowaniu symboli. Dzięki za odpowiedzi ,może uda się rozwiązać te dwa...
Dzień dobry, Pani dane w arkuszach Sheet1 i Sheet2 z numeratorem, który Pani zastosowała są zorganizowane na zasadzie stosu - a więc można z niego usuwać ostatni element i dodawać elementy na końcu. Zakładam, że taka organizacja danych jest świadoma. Jeżeli Pani potrzebuje dostępu swobodnego do danych, to ta organizacja i numerowanie (jeśli w ogóle...
Witam. mam taka potrzebę: tworze gotową ilościówkę do zamówień, i chciałbym żeby skrypt kasował przed drukowaniem pola z wartością 0, tek żeby zaoszczędzić kartki i uprościc sobie przeglądanie :) ale tak żeby nie zostały puste pola. dziękiz góry za pomoc ;)
Nie rozumiem :( mogę prosić tak bardziej łopatologicznie? Dodano po 5 Ach już rozumiem. Po prostu zmienić zarejestrowane makro tak żeby kasowało wszystko Dodano po 13 To zarejestrowane makro nie do końca działa poprawnie bo niestety nie uwzględnia dodanych pul i jak kliknę na przycisk to nie kasuje mi tych dodanych
Plik jest przykładowy. Plik właściwy służy do importowania danych i doklejania ich do istniejącego już arkusza z danymi poprzednich importów. Importowane są różne ilości danych -wierszy. Od jednego do 60. Dlatego plik przygotowany jest na import maksymalnej ilości danych, a jak jest ich mniej, to puste komentarze są kasowane. Niestety moja znajomość...
Poprzednie tematy ogarnięte, zamiast zwracać info z jakiej daty zostały wstawione ostatnie raporty dodałem na docelowej karcie jeszcze jedną kolumnę w której w momencie wstawiania raportu wstawia "=TERAZ()" co rozwiązuje moje potrzeby. W tej chwili potrzebowałbym aby w momencie wyeksportowania raportu poza automatycznym kasowaniem ilości które zostały...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
Przede wszystkim załącz przykładowy plik, a nie obrazek. Na obrazku niczego się nie zaznaczy ani nie sprawdzi. Tym bardziej, że piszesz, że słabo znasz Excela, więc i wytłumaczyć trudno. Poza tym widać, że masz tam jakieś scalone komórki, to może mieć wpływ na rozwiązanie. Przypuszczam, że to da się rozwiązać formatowaniem warunkowym. Ale musisz dokładnie...
Załącz jakiś plik przykładowy przede wszystkim. Zamiast od razu dokładnie napisać o co chodzi dałeś przykład na 5 wierszy, a teraz piszesz, że Ci makro wolno działa. To trzeba sprawdzić w którym momencie zwalnia, nie sądzę, żeby powodem było kasowanie w kolumnie B. Zresztą z tego wszystkiego można zrezygnować. Musi być precyzyjny opis, co może być,...
Uzupełnię do (at)prot Objętość nie jest jedynym problemem Excela. Drugim jest konglomerat dane+widok+kod, coś co zawsze się rozdziela w tworzeniu oprogramowania, inaczej problemy się kumulują do niebosiężnych rozmiarów. Obowiązuje stara zasada: dziel i rządź. Excel to łączy, owszem to jest przyjazne gdy sekretarka na kolanie ma zrobić śliczne zestawienie,...
Witam Marka i nie tylko. Chciałbym zrobić dalsze usprawnienia programu , ale w tej materii nie mogę sobie dać rady , dlatego proszę o pomoc - sam spędziłem wiele czasu , ale nie mogę znaleźć w makro gdzie dokonać zmiany. Otóż normalnie w okienku gdzie wpisuję, na początku są puste rubryki ( numer i data ). Ponieważ kilka kolejnych wpisów ma ten sam...
Niestety nie udało się zautomatyzować tego zadania, wszystko musiałem robić ręcznie. Skopiowałem cały kod do czterech kolumn (w czterech kolumnach to samo) i w każdej kolumnie kasowałem zbędne elementy. Następnie użyłem opcji znajdź i zamień. Po kilku godzinach pracy w końcu się udało. Dziękuję za wszystkie podpowiedzi i pozdrawiam
Działa super, o to mi chodziło, Z tą liczbą przypisaną już sobie poradziłem. Zamówienie czasami jest na kilkanaście pozycji i żeby na WZ było widomo, że odnosi się to do pozycji np. 14 z zamówienia. Mam natomiast kolejny problem. Maksymalna ilość pozycji musi być 21. Jak zmienię tylko wartość Const MAX = 4 przykładowo na 6 to numer katalogowy wpisuje...
Witam. Potrzebuję makro, które usunie mi cały wiersz z pliku na podstawie danych zawartych w innym pliku. Oto mały opis jak wygląda sytuacja: W pliku nr 1 mam trzy kolumny z danymi A, B, C. Potrzebuję, żeby makro na podstawie wartości z kolumny C przeszukiwało kolumnę C w pliku nr 2 i jeżeli danej wartości nie znajdzie, w pliku nr 2 kasowało wiersz...
Witam, Można zrobić tak by excel zapisał każdy, nawet nowo otwarty plik bez makr, do nowego pliku jako zapisz jako ? Podejrzewam, że można do tego zastosować skoroszyt makr osobistych, ale tak proste zastosowanie jak BeforeClose nie działa :-) Chodzi o zrobienie backupu (przy zamknięciu każdego pliku), gdyż czasem nowo otwarty excel wyrzuca błąd i kasuje...
Jeśli chodzi o faktyczne kasowanie to dla mnie działa coś takiego: [syntax=vb]Sub Makro1() ActiveCell.SpecialCells(xlLastCell).Sele... ActiveCell.Offset(0, 1 - ActiveCell.Column).Select While (True) If IsNumeric(ActiveCell.Value) Then If ActiveCell.Row = 1 Then Exit Sub ActiveCell.Offset(-1, 0).Select Else Rows(ActiveCell.Row).EntireRow.Delete End If...
Dzięki SP5ANJ troszeczke nie precyzyjnie się wypowiedziałem oczywiście pierwsze co sprawdziłem to wyżej wymienione tranzystory były ok więc mi sie pomysły skończyły z tąd moje pytanie. Ale jakież było moje zdziwenie kiedy rano podłaczyłem radio i jest nośna więc uznałem że podniesienie ekranu pod końcówką mocy ruszyło jakiś zimny lut. polutowałem wszystko...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Zmienilem troche koncpecjie i teraz dane z kilku plików wrzucam do jednego. Chciałbym wyszukiwać kilka wartości jednocześnie i usunąć cały wiersz jeżeli w komórce znajduje sie ta wartość. tych wartości na razie jest okolo 25 tysiecy, także przeszukiwanie dlugo trwa. Co byście zmienili? [syntax=vb] Sub kasowanie() Dim i, k Application.ScreenUpdating...
Myślałem o przepisywaniu stanu licznika co minutę i cyklicznego kasowania go, byłaby to liczba 1 bajtowa, i tak po godzinie miałbym 60 liczb, po 24 godzinach - 1440. Data godzina zapisywana jednorazowo po resecie. Resztę zrobiłby mi excel. Być może jest jakiś urządzenie do kart wykorzystujące EIB albo AS-i (lub jeszcze inne występujące magistrale) które...
witam, mam pewien problem, w kolumnie G mam podaną firmę, w kolumnie K model, w kolumnie I kolor - mało istotne, w kolumnie J - ilość sztuk chciałbym, żeby funkcja zliczała mi ilość sztuk produktu danej firmy i modelu, ignorując kolor, postawiając zapis jako jeden wiersz (usuwa wszystkie wiersze z kolorami) nie mam pomysłu na funkcję sumowania ilości...
Ok, zrobiłem tylko, że w komórkach np. A1 i B1 również nie można edytować ani kasować. Mi chodziło, żeby ochronie podlegała TYLKO komórka C1. Screen w zalączniku. Pozdrawiam. http://obrazki.elektroda.net/87_11835738... kliknij aby powiększyć
Dzięki wielkie. Działa wyśmienicie. Przyznam szczerze że nie potrafiłby tego tak napisać pomimo że już coś niecoś potrafię. Ale uwierz mi że takie gotowe kody potrafię wykorzystać w innych sytuacjach i na pewno wykorzystam w udoskonaleniu innej funkcji a w moim przypadku 'Magazyn'. Nawet na podstawie tego co napisałeś poprawiłem już wcześniej napisane...
skasowaniu danych w jakimś arkuszu nic się nie kasuje w "Zestawieniu zbiorczym" Tylko teraz rozprawy o anulowanie danych. Wcześniej o tom rozmowy nie było, tylko kopiowanie. Nie chodziło mi o kasowanie danych, po prostu nie znam zasady działania i próbowałem cokolwiek zmienić, sprawdzić. Możesz mi napisać jak działa to makro, albo chociaż potwierdź...
A jak to ma działać. Czy w tabeli mają się pojawiać kolejne wiersze po każdym wpisaniu danych do UserForm, czy też mają się kasować wpisy i pojawiać nowe w tym samym miejscu. Będzie mi wygodniej dokonać korekt jeżeli zamieścisz plik Excelowski ze wspomnianym UserForm i Makrem jako załącznik i zaznaczysz że za ściągnięcie nie pobierasz punktów.
log: Logfile of HijackThis v1.99.1 Scan saved at 11:27:37, on 2007-06-18 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 (7.00.6000.16473) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\Ati2evxx.exe C:\WINDOWS\system32\svchost.exe...
Na lokalizacji sieciowej mogę zapisywać i kasować (np. stworzyć inny plik txt i go skasować), mogę otwierać plik i je zapisywać. Nie mogę otworzyć do edycji (bo otworzyć tylko do odczytu mogę) tylko tego jednego xls bo mam go zablokowanego przez siebie samego. Dodano po 14 Dzięki za zainteresowanie, problem rozwiązany. "Inny użytkownik" fatycznie jest...
Dobry wieczór, Podejrzewam, że problem wynika stąd, że przy masowym kasowaniu danych Target składa się z wielu komórek, a procedura zdarzeniowa przewiduje obsługę tylko jednej komórki. Proponuję dopisać na początku procedury: [syntax=vb]If Target.Count > 1 Then Exit Sub[/syntax] Może to wystarczy. Pozdrowienia.
Lewy górny róg zdjęcia musi być w wierszu zaznaczonym do usunięcia. Scalenia z reguły nie pomagają, ale jak jest scalenie w wierszu, to w tym przypadku chyba nie powinno przeszkadzać. Trzeba testować, odtworzyć sobie taką sytuację, że obrazek się nie skasował i sprawdzić wszystkie szczegóły. Piszesz dość niejasno, czy w ogóle się te obrazki nie kasują,...
Cześć. Mam do rozwiązania problem. Otóż tworzę sobie w excelu rachunki. Każdy rachunek ma swój numer. Realizuję to przez wybieranie numeru z rozwijanej listy - pole z trójkącikiem i tam mam listę z liczbami. Te liczby znajdują się w osobnej kolumnie . Kolumna z liczbami znajduje się w innym arkuszu niż tworzone rachunki. Każdy rachunek w innym arkuszu....
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
witam, otrzymuje plik prawie codziennie (w załaczniku) w kolumnie A niektóre numery się powtarzają i potrzebowałbym żeby przy takiej pozycji kasowało wiersz zdublowany i dodawało wartości dla kolumn B, C i D (sumowało) niestety czasami wierszy jest więcej 6-7 które się powtarzają wtedy potrzebuje dla tego sume B, C i D ze wszystkich ma ktoś może pomysł...
Dzień dobry, Sprawdzanie poprawności danych ma swoje ograniczenia i trzeba mieć tego świadomość. Działa tylko przy wprowadzaniu danych z klawiatury, nie zapobiega kasowaniu danych. Nie działa również przy kopiowaniu, poza tym daje się łatwo nadpisać przez skopiowanie komórki bez ustawionego sprawdzania poprawności. Jeśli chcemy skopiować regułę poprawności,...
Tutaj poprę przedmówcę. Jeden miesiąc, 350 pracowników i tyle danych. A co będzie z następnym miesiącem? Próbujesz zastąpić excelem porządną bazę danych w dodatku dziwacznie zredagowaną. Nic dziwnego że to musi trochę trwać. Ale rzeczywiście można przyśpieszyć poprzez dodatkowy formularz i formuły wyszukaj.pionowo i indeks. Z tym, że samo otwarcie pliku...
STOPER: a) Zasady funkcjonowania: - stoper HH : MM : SS (kolor czerwony) DD (kolor niebieski) - odlicza czas w górę od ostatniego resetu przyciskiem A - przy kasowaniu przyciskiem A wydaje dźwięk X1 (małe fanfary) - przycisk B start pracy i dźwięk X4 (melodyjka rocky balboa theme song ) - zapisanie startu do pamięci - przycisk C koniec pracy - zapisanie...
Ja widzę każdą zmianę kolor, mam monitor graficzny, ale nie w tym rzecz. Tutaj filmik z innym kolorem: https://www.dropbox.com/s/a63ox30nj10wca... jak widzisz nie jest to problem z kolorem. Być może mówimy o innym działaniu, bo u ciebie kasowało całe wypełnienie tabeli A powinno to działać w ten sposób: https://www.dropbox.com/s/nazbiwwll08uou...
Potrzebuję dodać do swojego kodu konieczność potwierdzania chęci usunięcia danych, jeśli wybrany zakres to więcej niż jedna komórka. Czyli jeśli użytkownik skasuje zawartość jednej komórki, to nic się nie dzieje, natomiast jeśli zaznaczy kilka i będzie chciał skasować ich zawartość, to pojawi się msgbox "czy na pewno chcesz skasować dane z zakresu ......
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Masz stałych kontrahentów, czy będzie się to zmieniać? Lista rozwijalna kontrahentów może być? Nie bardzo rozumiem: 1. "za każdym razem nie trzeba było kasować i zamieniać tytułu płatności." 2. "jeśli wpiszę w tytule płatności już "FAKTURA NR: XXX" to aby dodało się automatycznie w następnej wolnej kolumnie pusta kolumna z wpisaniem "FAKTURA NR:" 3....
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
Ok, mam pewien pomysł, który z resztą również otrzymałem na tym forum, za co dziękuję i liczę, że i tym razem znajdzie się ktoś, kto będzie w stanie wymyślić rozwiązanie. W pliku docelowym w jednej z komórek znajduje się funkcja, która pobiera lokalizację pliku. Po zastosowaniu funkcji cięcia tekstu w wybranym momencie udaje mi się uzyskać lokalizację...
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
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...
[syntax=vbscript]Sub Kasuj() For Each k In Range("TerminyGORMIK") If k <= Date Then Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Jeżeli to vorus, to najszybsza metoda to ściągnięcie Kasperky antivirus albo Bit defender antivirus i zrobić FULL scan. To ma wersje trail 30 dni więc 1 skan i po kłopocie. Tylko że jeżeli zdecydujesz się na ten krok to musisz usunąć nortona jakimś programikiem do kasowania (coś typu revo unistaller). Co do samego antywirusa to norton ma ~20% przepuszalności...
a potem jak jest 2 maj to w wierszu 2 począwszy od komórki B3? Myślę, że "potem jak jest 2 maj to w wierszu 3 począwszy od komórki B3" Dodano po 39 Witaj, Monika. Myślę, że jakoś Edit: Popraw makro dla kasowania [syntax=vb] Sub ZapiszDoBazy() Dim r& If Application.CountA(Range("frm")) = 10 Then With Sheets("baza") r = Application.Match(Cells(2, 2),...
Troche zmodyfilowałem na wlasne potrzeby i jest w miare dobrze - tylko ten pliczek który bede uzywał strasznie dlugo sie łąduje - łącza do innych itd. A to opóźni wszystko - nie wiem może jest jakaś możliwość kopiowania danych lub robienia tych obliczeń na tym pliku (żródle) bez otwierania tego pliku źródłowego. Teraz mój kod wygląda tak: Sub SumaKolor()...
instalacja Office+Worda razem napisać było tam za jeden program 50 złotych więc należało wpisać 100 nie rozumiem? To klienta dwa razy kasujesz za instalacje tego samego? A jak masz zainstalowac office+word+excel +outlook+acces to ile skasujesz 250? A może M$ office zawiera te programy i kasujemy tylko za instalkę pakietu?
:arrow: adamas_nt :) Ok. Dzięki za nakierowanie. Niemniej tam jest "odwrotna" adresacja komórki i w dodatku od zera :) W takim wypadku będzie tak: Sub Main Dim ciag As String Dim x As Integer Dim y As Integer dim ark As Object ark = Thiscomponent.Sheets.GetByName("... 'x = 0 y = 0 ciag = "" Do Until (ark.GetcellByPosition(0,x)....
Dzień dobry, Rozumiem, że oczekuje Pan makra w Visual Basicu, bo w samym Excelu byłoby to dość trudno zrobić. W załączniku ma Pan propozycję rozwiązania w postaci makra uruchamianego przyciskiem z arkusza ALL. Przyjąłem następujące założenia: 1. Plik zawiera tylko arkusze z danymi i jako ostatni arkusz podsumowania (nazwy arkuszy są nieistotne). 2....
Działa :) Wielkie dzięki. Mam jeszcze małe pytanko, ponieważ to ma działać w kilkunastu komórkach + kilkanaście arkuszy, więc moje pytanie - czy trzeba w vb dopisywać ręcznie dla każdej komórki czy można podać jakiś zakres np.: ma to działać tak - od A1 do A20 jeśli w A21 będzie wpisane "w" od B1 do B20 jeśli w B21 będzie wpisane "w" od C1 do C20 jeśli...
Dzień dobry, Proszę o pomoc w zmodyfikowaniu makra. W arkuszu Dane w zakresie F10:F500 wpisywane są ręcznie dane, które wykorzystywane są w innych arkuszach pliku. Do kasowania wpisanych danych jest używane proste makro jak niżej: Sheets("Dane").Select Range("F10:F500").... Selection.ClearContents Range("F10").Select...
To już mam, ogólnie to mam taki kod który działa i niestety muli: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim pozX Dim pozY Dim pozZ 'blokada kopiowania na wielu polach i tym samym operacji na wielu polach If Target.Count > 1 Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox...
markonedj w odpowiedzi na Twoje pytanie ze kasowanego postu z tego tematu. Cytat: "P.S. Czemu do operacji na bazie nie korzystasz z "using" ? " Początek każdej mojej "Form" w projekcie zawiera :[syntax=csharp]using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using...
Jeśli nie ma górnego ograniczenia dla wprowadzanych liczb procedurę Walidacji można zapisać też tak: [syntax=vb]With ark.Range("E6:F" & dstW).Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlGreater, Formula1:="0" .IgnoreBlank = True .InCellDropdown = True .InputMessage = "Wprowadź liczbę całkowitą" .ShowInput...
No nie wiem. Mi to kasowanie działa. Do "grubszego" usuwania możesz zaznaczyć zakres składający się z obu kolumn i nie przejmować się tym w makro... Co do drugiej sprawy: dołóż jeszcze jedną gałąź If Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 3 Then If Not IsEmpty(Target) Then If IsEmpty(Target.Offset(0,...
Tomuś_P tak to jest także makro do scalania, które między innymi też przeglądałem, tylko tyle, że ja potrzebuję dodatkowe funkcje, które wyszczególniłem w pierwszym poście, a których żaden gotowiec nie ma. JRV, jeżeli chodzi o wpisywanie od pierwszego wiersza, to dzięki pomocy kolegów z innego forum, już mam to rozwiązane, co do zakresu danych, to zakres...
Przecież zaznaczając komórkę i rozpoczynając pisanie, domyślnie kasujesz tekst, który w niej był.
Dobry wieczór, Nie da się tego zrobić w samym Excelu bez VBA, bo jeśli do komórki miałby być wprowadzany tekst "nie dotyczy" automatycznie, w zależności od wyboru w innej komórce, to w tej samej komórce użytkownik nie móglby wprowadzać daty "z ręki". Można zrobić tak, żeby zmiana w kolumnie A generowała zdarzenie, które byłoby obsługiwane w ten sposób,...
Aj, cholender. Nie pomyślałem, o tym. To prawda, dokładnie tak się dzieje. Większość "dużych" programów obsługuje pracę wielodokumentową. Np. Excel. Jednak bardzo wiele z nich nie integruje się "kompletnie" z Shell'em Windowsów (czyli explorer.exe) i nie używa jego "zaawansowanych" funkcji, np. DDE/Open, tylko do otwierania rejestruje się po staremu...
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"),...
Myślę, że można to zrobić na przykładzie jaki jest w załączniku. Kolejne wstawiane obrazki będą mieć różne nazwy, więc trzeba sie odwołać do obrazka, który jest umieszczony w danej pozycji w arkuszu. W przykładzie odwołanie jest do obrazka umieszczonego w tym samym folderze co arkusz, ale oczywiście wszystko można sobie zmienić. Przyciski: Wstaw i Kasuj...
excel kasowanie danych kasowanie błędów kasowanie bledow kopiować excel excel
amplituner pioneer gramofon wodomierz magnes karta zabezpieczona zapisem
galmet wyswietlacz galmet wyswietlacz
Sony Smart TV - Dioda miga 5 razy - co oznacza? Nieszczelny piec na pellet - wpływ na działanie i zużycie