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...
Jakiś przykładowy plik? Łatwiej będzie pojąć co autor ma na myśli. :D
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]
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...
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ć,...
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...
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...
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?
http://obrazki.elektroda.pl/4774308800_1... Jeśli korzystasz z programów z pakietu LibreOffice to z pewnością ucieszysz się, z powstania Open365. Podobnie jak LibreOffice jest to darmowy i otwarty pakiet, który ma być alternatywą dla 'następcy' Microsoft Office, działającego w chmurze Office 365. Open365 jest aktualnie w fazie beta-testów....
O Witaj, dziekuję, wykorzystam Twoja podpowiedź, choć to kasowanie to mi nawet pasuje. A czy z tą wysyłką też mi cos podpowiesz? :)
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...
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...
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...
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
Witam ponownie. Prosiłbym jeszcze o cierpliwość adamsa i ewentualną pomoc w usprawnieniu mojego programu , ponieważ mimo moich wielu,wielu kombinacji nie udaje mi się go naprawić, a działa prawie dobrze (oprócz): 1. Kiedy wpisuję pierwszy raz w lub k nie dopisuje reszty , ale po zatwierdzeniu enterem wpisuje i leci błąd. Następne linie już wpisuje normalnie....
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ź...
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...
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...
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...
chcę aby mój program robił prawie to samo co programik do którego podałem link w poście powyżej tylko z tą małą różnicą iż dane niebyły by przedstawiane za pomocą dokumentu Accessa tylko wyświetlane w oknie mojej aplikacji. Czyli chce kolega wyświetlać dane bazy SQL na ekran, jakaś forma ekranowego raportu ? Co do typu bazy jest to baza SQL-owa nie...
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...
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'.
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,...
[syntax=vbscript]Sub Kasuj() For Each k In Range("TerminyGORMIK") If k <= Date Then Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Wygląda prawie idealnie. Nie wszystkie tylko wiersze się przenoszą do zakładki "zalatwione" poniżej któregoś wiersza tylko są kasowane...
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)
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...
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?
a da sie zrobić ze po zeskanowaniu/wpisaniu w zółtym polu numeru narzędzia wprowadzany numer zniknie zeby nie trzeba bylo kasować recznie?
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
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...
Deletując (kasując) wpisaną liczbę wszystko przebiega OK, jedynie w momencie kasowania ostatniej cyfry pojawia się błąd.
Typowe (najtańsze) pendrivy wytrzymują do 5000 cykli kasowania / zapisu. Jak intensywnie był używany ten pendrive?
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ą,...
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Po co ochrona, jesli np. przed tym(zamykaniem) "użytkownik przez przypadek kasuje jakąś formule"? W kazdym razie mozna uzyc zdarzenia[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each s In Me.Sheets s.Protect 'ew. haslo Next Me.Save End Sub [/syntax] Ale lepiej mieć zapasowe arkusze i przed zamknięciem kopiowanie formuł, lub, jeśli...
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:...
Zwykle na czas działania pętli wystarcza wyłączenie zdarzeń i odświeżania.[syntax=vb]Sub Kasuj() Application.EnableEvents = False Application.ScreenUpdating = False For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).delete shift:=x1Up End If Next Application.EnableEvents = True Application.ScreenUpdating =...
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...
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...
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...
Masz pełne uprawnienia do zapisywania/kasowania w folderze w którym chcesz tego dokonać.
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?
Przecież zaznaczając komórkę i rozpoczynając pisanie, domyślnie kasujesz tekst, który w niej był.
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
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
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.
ktoś bardziej zaawansowany No to nie ja. Tyle tylko że ja będę miał kolejne pliki csv A próbowałeś 5 razy klikać w 'importuj' nie kasując danych? Pewnie nie, a to takie klikanie pozwala dodawać dane z kolejnych plików...
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
Kasowanie: [syntax=vbscript]Sheets("Arkusz1").Range... & Cells(Rows.Count, "C").End(xlUp).Row).Delete[/syntax] Jak widzisz czytanie z csv co sekundę? P.S. Tak sobie myślę, czy dobrze, że wybrałeś do tego zadania Excela...
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ż...
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...
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...
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? :)
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...
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
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ś...
Oto działający kod z komentarzami: [syntax=vb] Public Sub kasuj() 'Deklarujemy obiekt skoroszyt Dim VBAplik As Workbook 'Przypisujemy mu bieżacy skoroszyt Set VBAplik = Application.ActiveWorkbook 'Jeżeli odowołujemy się do nieaktywnego arkusza w skoroszycie to musimy użyć jego indeksu lub nazwy 'w VB nie ma obiektu Arkusz - jest Worksheets(2) lub Worksheets("Arkusz2")...
usuwam wiersz z tym punktem z tabeli i od nowa wczytuje tablice zaczynam od punktu który był wcześniej najkrótszą odległością Spróbuj to inaczej rozwiązać. Dlaczego kasujesz wiersze? Czy ja dobrze zrozumiałem, że w arkuszu 'Baza' szukamy najbliższego punktu dla punktu wyjściowego 'C27'?
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...
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]...
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 ;)
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.
Ale tekst usuwa się Backspace a Delete kasuje maila jak na niego najedziesz. Poprawki do systemu i do outlooka 365 wszystkie pobrałeś? W środę Firma Microsoft udostępniła tymczasową poprawkę znanego problemu, który powoduje nieoczekiwane awarie aplikacji Microsoft 365, takich jak Outlook, Word i OneNote, podczas pisania lub sprawdzania pisowni tekstu....
Witam Chodzi o to podam przykład działania makra Z Arkusza kraje1 program kopiuje nazwę jednego kraju z listy- pierwszego i wstawia nazwę tego kraju w komórkę J1 w arkuszu Dane1, następnie kopiuje dane do 2 arkuszy , następnie przechodzi do następnego kraju z listy drugiego i wstawia nazwę w komórkę J1 (kasując poprzednia) dane się przeliczają dla drugiego...
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...
Nie wiem dlaczego upierasz się aby zapisywać kolejne wiersze Excela w osobnych plikach, masz je przecież w pliku głównym ! Ja sie na niczym nie upieram. Tak sobie to wymyslilem i wedlug mnie sprawdzalo sie. po co osobne pliki? Gdyż z reki dopisuje co przekazano. jak cos sie zmieni lub pomyle sie moge zawszwe zmodyfikowac. Po wydaniu sprzetu kasuje...
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...
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,...
To więc odpaliłem Excela wprowadziłem hasło i ponownie zapisywałem ten plik jako inny - niestety bezskutecznie - nadal jest na nim hasło - a openoffice sobie z tym nie radzi... a czy nowy plik zapisałeś kasując hasło czy tylko zmieniłeś jego nazwę, zmiana samej nazwy nie powoduje likwidacji hasła ustawionego w opcjach zapisu, musisz je wykasować.
- nie twórz nowego obiektu cmd dla każdego rekordu jak i nie dodawaj parametrów. Utwórz zapytanie raz, przed wejściem w pętlę. Dodaj dwa paramtery, nie podając wartości. Zgadza się. Dodatkowo, jeśli driver ma coś w koncepcji "prepare command", należy tego użyć przed pętlą. To "prośba" do serwera aby dokonał czegoś w rodzaju pre-kompilacji i optymalizacji....
Witam :) Chcialem zapytac o pewna modyfikacje, otoz chcialbym alby plik generejuacy sie podczas zapisu nie posiadal przycisku "next" Niestety moje modyfikacje nie dzialja. udalo mi sie skasowac przycisk "next" ale niestety kasuje sie on rowniez w arkuszu zrodlowym. Prosze o pomoc PS oczywiscie mam na mysli przycisk "zapisz" zamiast "next"
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ść...
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...
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...
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
Ok dorobiłem makro,które kasuje też zbędne kolumny, może to wyeliminuje jakieś błędy... Sprawdziłem u mnie 3 razy i za każdym razem dobrze filtruje. Sprawdź jeszcze raz.. może spróbuj też na innym kompie, może to wina systemu.
To działa, ale jeśli przykładowo w drugiej kolumnie mam jakies wartości i funkcje, to kasuje mi zawartość wyniku po przecinku np.: 6,768543 zapisana jako 6,76, to w drugiej kolumnie(gdzie jest funkcja np. mnożenia obu kolumn) wynik wynosi np. 9,870000. tzn. ze niewidoczne cyfry po przecinku na miejscu 3,4,5...stają sie zerami. 6,768543*6,76=9,870000
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...
Kolejna prośba. Wiem, że dla Was będzie to sprawa prosta, ja się cały czas uczę i będzie mi potrzebna pomoc: W Arkuszu 1 wprowadzam dane w wierszu 1 Po naciśnięciu przycisku ZAPISZ (tutaj właśnie potrzebuję makra) kopiuje wpisane dane i wkleja w kolejny wolny wiersz w Arkuszu 2 (jednocześnie kasując wpisane dane w Arkuszu 1 i przygotowując go do dalszej...
Hej Chcę napisać proste makro lub funkcję która: z pliku A zawierającego dwie kolumny: imię_nazwisko numer_id będzie w pliku B wystąpienia imię_nazwisko zmieniać na numer_id Myślę że najwygodniej by było gdyby makro wywoływał skrót klawiszowy i podmienial zaznaczone imiona i nazwiska na numery ID. Na razie robię to naokoło, tj dostawiam kolumnę z wyszukaj...
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...
Dzień dobry Potrzebuję pobrać dane z pliku excel który generuje się co dobę w następujący sposób - dane przykładowo z komórki A1 "arkusza 1" dnia 13.03.2019r powinny być kopiowane do "arkusz2" w pozycji "A2" w dniu 13.03.2019. Następnie po wygenerowaniu nowej doby na 14.03.2019r dane z komórki A1 "arkusza 1" dnia 14.03.2019r powinny być kopiowane do...
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.
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...
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...
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...
Dziękuję ale to mi nie zadziałało; Gdzieś w necie znalazłem taki sposób, który zadziałał tak jak chciałem; [syntax=vbnet]Sub kopiuj() Dim komorki As Range 'komórka docelowa - wystarczy lewy górny róg zakresu' Set komorki = Worksheets("BAZA").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) Range("WprowDane!O1:AE1").Copy 'kopiuj' komorki.PasteSpecial xlPasteValues...
Jak szybko odpisałeś :) Express :) Bardzo dziękuję Wam za pomoc! :) Jak na razie plik liczenia sredniej sprawuje się dobrze, liczy mi % klasy A i tylko go wpisuję ręcznie w tabelę raportu :) Muszę jednak kopiować arkusze początkowe, bo jak z zmianie 1 bedzie wiecej egzemplarzy a w zmianie 2 mniej, to wtedy jak przeklejam tabelę, to zostaje koncowka...
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ć
Ten, o którym piszę L302-C329. w jednych radiach jest tego sygnału za dużo (A.42), w innych za mało (Sunker), a w jeszcze innych (A48 Excel) jest tam przęłącznik poziomu w.cz. W tym wypadku jest jeszcze bardziej skopane, bo ten obwód jest rozstrajany pojemnością C701 na odbiorze. Taką cewkę L302 starczy namagnesować śrubokrętem i już po niej. ku edycji...
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ł...
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.
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Jak zmusić ten filtr do pracy dodatkowo z liczbami? Dodatkowo użyłem tej formuły w paru kolumnach jednocześnie. Teraz kasując zawartość komórek z kryteriami (paru jednocześnie) skrypt sie zawieszą na komunikacie Run-Time error 13: Type mismatch debug: If Target.Value = "" Then Jak filtrować dla paru kryteriów jednocześnie? Jak filrtrować po dacie np....
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,...
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....
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...
Nie jestem guru od makr w VBA, ale coś takiego powinno zadziałać (zrobiłem testy na prostym arkuszu wklepanym z palca). [syntax=vb] Sub Makro1() Dim xo As Integer xo = 2 Columns("A:B").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom,...
kasowanie wierszy excel excel kasowanie danych kasowanie błędów kasowanie bledow
buzzer zegarek sprężarka kompresora lodówki testy akumulatorów
Ładowanie akumulatora Dyson - czas, wskaźniki, optymalizacja ESP8266 Arduino IDE – przykłady socketów TCP, UDP, WebSocket, TLS 2024
