beforePrintPage :?: VBA nie obsługuje standardowo takich zdarzeń. Można oczywiście tworzyć funkcje typu UDF, jeśli standardowa obsługa zdarzeń nie spełnia naszych oczekiwań. Zmodyfikowany kod autora w module Workbooka zapewnia każdorazowe wypełnianie stopki na każdej stronie wydruku odrębnie dla każdego arkusza :idea: W tej sytuacji niezrozumiałe jest...
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Zamień dzen = Format(Weekday(Date, 1), "dddd") na dzen=Range("AA13")
Musisz to odwrócić. Najpierw zapamiętanie nazwy pliku: zapisz w ukrytym arkuszu wartość '.SelectedItems(1)' (path+filename) i użyj jako argument 'Open' (Append lub Output) przy zapisywaniu. Jeśli wszystko odbywa się w jednej sesji, możesz przypisać do zmiennej globalnej. String do zapisu (wiersz arkusza) poskładaj w wewnętrznej pętli For. Żeby było...
Witam! Chcialbym prosic o pomoc w napisaniu makra do przykladu z załącznika. Chodzi o to aby stworzyc przycisk w zakładce "dane" ktory bedzie zapisywal plik na pulpicie w formacie xls o nazwie z komórki "nazwisko" Chcialbym aby po zapisaniu pliku informacje wpisane do arkusza "dane" zostaly wyczyszczone i przeniesione do akrusza "dane2" ulozone w kolejnosci...
Dalej mi nadpisuje plik bez monitu o nadpisanie Załącz kod lub cały plik z kodem.
Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Wystarczy znać dokładny czas rozpoczęcia i zakończenia pomiarów oraz ich ilość. Nawet jeżeli odstęp między pomiarami nie będzie wynosił dokładnie 1 minuty, to mając powyższe dane możemy go wyznaczyć bardzo dokładnie. Wyniki i tak będzie pewnie obrabiał komputer, bo nie wyobrażam sobie robienia tego "na piechotę", więc problemu też nie ma, komputerowi...
Witam! Mam mały problem z MS Excelem (2002). Przy nadpisywaniu dokumentu (arkusza) Excel mnie pyta o znalezienie pliku do zapisania mimo tego, że wcześniej plik ten był otwarty (zapisany na dysku). Pojawia sie tabelka "Zapisz jako...". Wcześniej tego problemu nie było, Office był instalowany od nowa. Pozdrawiam i z góry dziękuje za pomoc.
Cześć ! Mam tabelę z danymi (ok 5000 wierszy) Kolumna A Kolumna B Kolumna C Dzień msc waga liczba wystąpień muszę policzyć średnią wagę, więc jeżeli w kolumnie C jest wartość inna niż 1 to musi powielić liczbę wierszy aby liczba wierszy zgadzała się z wystąpieniami. Np 1maj 100kg 5 - w takim przypadku musi dodać 4 wiersze (może być bez wystąpień), żeby...
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
W "Dodaj do Magazynu" brakuje (mi) Nr faktury i daty zakupu (łatwiej znaleźć w segregatorze w razie czego i przyda się to do zestawień). Chyba źle myślę. Dodając nowy towar do magazynu powinno określać się tylko jego cechy (jm, ceny, nazwę, kod...) Stany magazynowe (jak już pisałem) powinny być wyliczane na podstawie dokumentów magazynowych. Czyli...
Nie wiem co robie źle, tez się nadpisują godziny. :(
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 W mojej pracy dostałem zadanie polegające na pewnego rodzaju konsolidowaniu tabelek. Każdy pracownik wypełnia taką samą tabelkę (jedną konkretną kolumnę) ale tylko te rekordy które ich dotyczą. Następnie ja mam za zadanie ze wszystkich tych tabelek zrobić jedną pełną. Jak mogę szybko i sprawnie przeprowadzić taką operację? Pozdrawiam
Formuła ActiveWorkbook.SaveAs Filename zgłasza komunikat o istnieniu takiego pliku. jak zmusić formułę do nadpisywania bez pytania?
Myślę, że to można zrobić formułami (ale może ktoś zaproponuje kod VBA). Formuły w wierszu 6. od kolumny C byłyby początkowo takie: [syntax=text]=MAX(JEŻELI(CZY.TEKST($B6:B... formuły są teraz w wierszu 7. Jeśli Excel starszy niż 365 lub 2021, to formuły tablicowe. Tam, gdzie trzeba wpisujesz...
Ok, to był powód dlaczego sie nadpisywały. Zmieniłem i działa, dziękuje!
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Próbowałam dodać apostrof, niestety przy kolejnym zapisywaniu/nadpisywaniu tego pliku apostrof samoistnie znika, co powoduje przy kolejnym otwarciu powrót do początku problemu czyli postaci typu 3,11E+25
Witam, mam wersję 2013, ale myślę, że będzie to wyglądało tak samo. 1. Jeżeli chcesz pobierać dane z innego pliku to musisz mieć otwarte oba pliki (ten do którego wpisujesz dane i ten do którego chcesz je importować. 2. W pliku do wpisywania danych ustawiasz w pierwszym wierszu funkcję =dziś(), a w kolejnych dane które będziesz uzupełniał. 3. W pliku...
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,...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
Skoro usuwasz wartość poprzednią (nadpisując ją) to excel tego nie policzy. zrób tak: wyznacz 12 kolumn (każdy miesiąc) w 13 kolumnie suma 12-tu (+ co tam chcesz doliczyć stałego). Dla szefa przygotuj to tak że ukryjesz miesiące wcześniejsze i kolejne (nadal z zerowymi/do wypełnienia polami) - uzyskasz w widoku: bieżący miesiąc i sumarycznie narastająco...
Wypróbuj, dostosuj do własnych potrzeb Like , do wyrzucenia :)
Myślę, że obie propozycje są dobre, a zainteresowany wybierze sobie co mu bardziej odpowiada. Przeprowadzenie nowej konsolidacji po zmianie danych też nie wymaga wielkiego wysiłku, bo parametry konsolidacji są pamiętane, więc zależy tylko jak bardzo zmieniły się dane. Jeżeli nowa konsolidacja ma zastąpić starą w tym samym miejscu, należy stare wyniki...
Ten skrypt nie kopiuje dokładnie - nadpisuje ostatni wiersz, bo nie przesuwasz zmiennej NextRow na kolejny wiersz. Kod po poprawkach: [syntax=vbscript]Private Sub CommandButton1_Click() Dim FolderName As String, fileName As String Dim NextRow As Long Dim ws As Worksheet Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (filefilter:="Microsoft...
Witam wszystkich. Proszę o pomoc w temacie przesuwania wierszy w excelu. Chodzi mi dokładnie o to, że w komórce A1 mam zmienną wartość która się sama aktualizuje co 1 sekundę. Chciałbym zrobić tabelę zmian tej wartości w funkcji czasu. W tym celu trzeba stworzyć tabelę np. 1000 zmiennych w kolumnie A w ten sposób aby w pierwszym wierszu była aktualna...
Chodzi mi o to, żeby wpisując np 1 znalazło mi plik dok_1 wpisując 2 znalazło mi plik dok_2. Pliki te różnią się od siebie tylko końcówką nazwy, po znalezieniu pliku chciałbym albo wpisało mi do komórki A2 arkusza, który służy do wyszukiwania - wartość komórki C4 szukanego pliku. Wartości mogą się nadpisywać po wyszukaniu innego pliku.
Witam, Czy istnieje możliwość nadpisywania istniejącego pliku nowym plikiem bez utraty danych? Co przez to rozumiem... Mam co godzinę generowane z system zestawienie, które jest eksportowane do Excel'a. A następnie zapisuje to do arkusza o nazwie "Arkusz1" Chciałbym żeby, każde nowo wygenerowane zestawienie w pliku Excel po zapisaniu w docelowym arkuszu...
Może nadpisywać, nawet lepiej jakby nadpisywało. Bo one tylko raz drukują te naklejki dla danego pacjenta. I jak dojdzie nowy pacjent, żeby nadpisywało dane tego nowego pacjenta za tego poprzedniego i tak dalej. Chodzi o to, żeby każdy nowy pacjent, był nadpisywany w naklejkach. Mogę załączyć ten pliczek jak potrzeba, może będzie bardziej czytelny,...
Wygląda to tak, że dane klientów znajdują się w pliku Excel, natomiast dokument wystawiany jest przy pomocy Worda. Dziennie wystawiane jest około 7-10 dokumentów dostawy. I chciałabym dowiedzieć się czy jest możliwość jakiegoś zautomatyzowania tej procedury, ponieważ dotychczas wszystko było wklepywane ręcznie. Przez "nadpisywanie" rozumiem to, że tak...
No tak zgadza się. Pętla nie jest mi potrzebna. Ale taki kod działa więc jest ok. Plik będzie generowany raz na jakieś dwa dni, dlatego nazwa generowanego pliku zawiera formułę aktualnej daty z komórki "B3". Bardziej zależy mi aby za każdym użyciem makra generował się w katalogu "wyniki" nowy plik. Wówczas w katalogu "wyniki", po jakimś czasie mam kilka...
Przy ukrywaniu czyszczona jest zawartość ComboBox'a. W tym momencie tblTmp jest pusta (i=0 w Change). Oczywiście jeśli zaczniesz pisać (Change), lista się wypełni. Aby to uzupełnić, trzeba przypisać listę w przypadku i=0 przy Change. Dopisz linię za Combo.Clear [syntax=vbscript] If i = 0 Then 'jeśli nic nie dodano to skasuj listę (zapobiega nadpisywaniu)...
Niepotrzebnie się wtrąciłem i namieszałem. Nie uwzględniłem podpowiedzi kolegi PRL. Wróć do kodu z przed mojej podpowiedzi dodaj na chwile apostrof przed zmienna nw i sprawdz co się dzieje :) Jeszcze raz zamieść cały kod. Na pewno w tym kodzie przedstawionym wyżej "b.Cells(10, 4) = a.Cells(x, "O")" nadpisuje to co było linię wyżej więc tez dodaj przed...
Nie chodzi o format a o to że na niej nadpisywałeś a więc instalowałeś zapisywałeś pliki. Jeśli nie to np. TestDisk - PhotoRec może odnaleźć plik
Chodzi o standardowy podpis zapisany w pamięci Outlooka, który dodawany jest na końcu wiadomości. Wklejając nadpisywany jest podpis, więc tak myślę, że trzeba go wcześniej zapamiętać i dodać po wklejeniu, tylko nie mogę sobie z tym faktem poradzić..
Dzięki Piękne byłem na dobrej drodze :] To działa - działa PRAWIE jak należy - jedyny problem jaki jeszcze występuje to taki że owszem wpisuje w odpowiednie pole (po lekkich zmianach) wartość... ale jest to wartość pusta... Nie wiem albo nie mogę trafić w pole zaczytywania albo może format danych w pliku2 jest coś nie teges... Udało mi się zczytać jedną...
już nie ma szans na odratowanie danych ? Nadzieja powinna umierać ostatnia :idea: :D Jeśli ten pendrive jest sformatowany w FAT, oraz nie jest on przeładowany plikami (nie nastąpiło nadpisywanie) - to na pendrivie po otwarciu go w jakimś edytorze hexadecymalnym zwykle zobaczysz taki obraz jak na zrzucie :spoko: 1009039 Jak widać jest tam parę plików...
Wypadało by jednak założyć nowy temat, wtedy (w uzasadnionych przypadkach) zawsze możesz kliknąć [pomógł]. 1) Końcowy znak. Sprawdź jeszcze raz ustawienia czytnika. 2) Makro. Zależy czy komórka po wpisaniu kodu jest w trybie edycji, czy nie (prawdopodobnie opcja w czytniku). Czy następny kod jest nadpisywany, czy dopisywany w komórce? 3) Inaczej. Jeśli...
[syntax=vb] .Offset(1, -3).Resize(.Rows.Count / 2, 12). _ SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets(2).Select Sheets(2).Cells(ostWrs, 1).Select ActiveSheet.Paste [/syntax] Poprawiłem końcówkę, tak żeby nie nadpisywało mi wyników. Mam tylko problem z pobieraniem połowy danych. Jeszcze tylko pozostaje zamiana Copy na Cut i usuniecie...
Sub CreateWorkbooks() Dim wbDest As Workbook Dim wbSource As Workbook Dim sht As Object Dim strSavePath As String Application.ScreenUpdating = False 'Don't show any screen movement strSavePath = "Grafiki.xls" Set wbSource = ActiveWorkbook For Each sht In wbSource.Sheets sht.Copy Set wbDest = ActiveWorkbook wbDest.SaveAs strSavePath & sht.Name wbDest.Close...
Z częścią sobie już poradziłem. Ale czy mogę dostać chociaż podpowiedź w jaki sposób stworzyć Macro, które będzie kopiowało cały wiersz z jednego arkusza (po naciśnięciu odpowiedniego przycisku) i przenosiło go do drugiego arkusza - nadpisywało, tzn stare wiersze będą zostawione, a nowy będzie lądował zawsze poniżej ostatniego zapisanego wiersza? Dzięki...
Witam, pracuję nad makrem które sukcesywnie będzie zczytywać odpowiednie dane z sieci WEB i wszystkie je zapisywać. Udało mi się już zmusić excel do automatycznego zczytywania danych co minutę. Problem polega na tym, iż taki plik coraz bardziej zużywa RAM. W związku z czym mam pytanie jak poradzić sobie z tym problemem? 1)Czy można włączyć excel który...
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) SUPER ! Działa :) PS zauważyłem kropkę ;) A jeśli mógłbyś mi powiedzieć, co trzeba wpisać by makro pozwalało raz stworzony nowy arkusz nadpisać, czyli powiedzmy żeby pozwalało na stworzenie nowego pliku w tym samym miejscu z nowymi danymi...
Dziękuję Macieju za odpowiedź ale to nie jest to o czym mówię, bo ta formuła nadpisuje mi drugi warunek, i tak wszystkie daty poniżej dziś+30 dnia są wyświetlane na pomarańczowo, a chodzi ot o aby podświetlały się się tylko od dzisiaj do dziś+30 dzień
Nie ma możliwości zmiany formatu pliku, zawsze jest plik Word i jest nadpisywany z taką sama nazwą... chodzi o zapis w tabeli kolejno w ostatnim pustym wierszu danych (wartości z żółtej tabeli) po każdej aktualizacji... Dodano po 1 Wykres może być z samej delty T...
Generalnie mam jeden plik o nazwie "raport_data" w którym mam "arkusz1" z którego chce kopiować dane do "arkusza2" w tym pliku ale tak jak w tym raporcie zbiorczym czyli jedna dana pod drugą odpowiednio dla danego dnia. Umiem zrobić makro żeby kopiowało dane ale po wygenerowaniu nowej doby te dane się nadpisują. pozdrawiam Dodano po 2 Zasada taka jak...
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
nadpisywanie pliku excel excel makro nadpisywanie komórek nadpisywanie dysku
hikvision konfiguracja zdalny dostęp projekt podnośnika śrubowego focus zamka
odpowietrznik toyota odpowietrznik toyota
Najlepsze telewizory 21-22 cale: LG, Philips, Samsung Siemens EQ.7 zablokowany zaparzacz - czyszczenie i odblokowanie
