... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
Moja propozycja trochę bardziej rozbudowana: [syntax=text]=INDEKS(wysyłki!$D$2:$D$21;... tablicowa. Ta poprzednia sprawdzi się, jak wysyłki będą codziennie.
W załączniku rozwiązanie. Nie wiem, czy to wszystko. zeby sie pojawialo zestawienie na najblizsze 3 miesiace Jesteś w stanie przygotować wzór tego zestawienia?
Załącznik był podmieniony po 5min. Zaciągnij jeszcze raz. Lub popraw: if not intersect ... is nothing then
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Czyli nie możesz porównywać dat? A co dokładnie masz w pliku, jak są zapisane te daty? Jeżeli masz w formacie daty to do porównania też musisz mieć datę, jak string to string. Sprawa prezentacji dat w Excelu jest tu drugoplanowa. Chyba nie załączyłeś przykładowego pliku.
Makro znajdujące liczbę do której są przypisane 3 kolejne daty.
[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
Dołącz plik tutaj
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
U mnie działa (oprócz kopiowania wysokości komórki z tym że tego nie ma w kodzie). Możesz podać cały komunikat błędu? Jest możliwość wciśnięcia przycisku "debug" Jeżeli tak to którą linie kodu wskazuje żółta strzałka (zaznaczenie)? Przy każdym formacie wyrzuca błąd. Jak nie formatujesz inaczej to też? A możesz jeszcze podać jak sformatowałeś komórkę?
Można to prosto zrobić na funkcjach + formatowanie warunkowe, jak zaproponował adamas_nt . Gdybyś jednak upierał się przy VBA - też można: [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_data = Cells(Rows.Count, 2).End(xlUp).Row 'wyczyszczenie starych danych With Range(Cells(1, 3), Cells(Rows.Count, Columns.Count))...
[syntax=vbscript]Sub Kasuj() Dim k As Variant For Each k In Sheets("Arkusz1").Range("TerminyGORNIK") If k <= Date Then Sheets("Arkusz1").Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
A czy byłoby niepoprawne wyciągnięcia dnia z daty jako liczby i skonwertowanie tej liczby na tekst? I analogicznie rok i miesiąc?
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
potrzebuję datę np 15.10.2021 rozdzielić na dzień 15 i miesiąc 10. Następnie połączyć dane z innej kolumny z dniem i miesiącem. Proponuję zamiast kombinować z makrem wprowadzić do kolumny H (tej ze złączeniami) prostą formułę :idea: :D : =E2&" "&TEKST(DZIEŃ(F2);"00")&"."&TEKST(MIESIĄ... i przeciągnąć ją w dół :D , albo nagrać sobie makro...
https://tomaszkenig.pl/kurs-excel-vba/fu...
Na przykład, wersja prosta Nie należy ręcznie usuwać dane. To makro zrobi sam po zmianie daty w komórce B1
Wysłać maila to w zasadzie nie problem, tylko w jakiś sposób trzeba wyzwolić wykonanie tego makra o określonym czasie. To ma być wysyłane jakoś czyklicznie, o stałej porze? Napisz coś więcej. Może harmonogram zadań systemu windows byłby rozwiązaniem. Z jego poziomu można w zasadzie samodzielnie ustawić wysyłkę maila. Można również napisać skrypt, który...
Witam możesz np. tak [syntax=vbscript]ActiveCell.Value = Environ("username") & ", " & Now()[/syntax] nie doczytałem do końca
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
Witam oto z makrem
[syntax=vbscript]Sub KolumnaData() Application.ScreenUpdating = False d = [A1] mz = Columns("MZ").Column For x = mz To 2 Step -1 a = Cells(2, x) If a <> "" And a < d Then Columns(x).Delete Next Application.ScreenUpdating = True End Sub [/syntax]
że makro łączy się z plikiem, który załączyłem i wyrzuca okno z zapytaniem o ręczne wpisanie daty Być może bo w pliku format włoski
Zmienić możesz: [syntax=c]#define __DATE__ "hello"[/syntax] to makro jest datą kompilacji modułu, więc trzeba uważać, bo jak ono wystąpi w osobnych plikach to może się okazać że może mieć różną wartość dla każdego z nich. Lepiej jest utworzyć np. plik "parametry.h", który byłby generowany np. przez skrypt lub wstawić w odpowiednim miejscu w Makefile...
'Exit Sub ' u mnia to nie bylo Prawdopodobnie nie usunuto w Ciebie
W vba, Msg box z zapytaniem o datę, wpisanie, zabezpieczenie arkusza, formuły w komórka sąsiednich rozkminią dzień, miesiąc, rok.
[syntax=vbscript]Mid(Range("B1"), 1, 10) & "_" & Format(Right(Range("B1"), 9), "hh-mm-ss")[/syntax]
Możesz wpisać w jednej komórce =dziś() , w drugiej datę docelową. Różnica większa od zera pozwala uruchomić makro (warunek wewnątrz makra). A pewnie i do makra wciągniesz bezpośrednio tą metodę bez używania komórek.
Witam. Mam arkusz który ma służyć do kontroli wydań i przyjmowań towarów. W arkuszu mam łącznie 40 pól w które wstawiłem przycisk i podpiąłem do niego makro wstawiające datę i do tego momentu to działa. Problem pojawia sie gdy chce to makro przypisać do wszystkich 40 przycisków, wtedy wychodzi na to że musiał bym mieć napisane 40 makr gdzie w każdym...
Podany kod koloruje wszystkie komórki w podanym zakresie mimo, że nie spełniają warunku Zakres B2:E6 sam podałeś. Najpierw napisałeś pytanie, a po odpowiedzi dołączyłeś plik. Pozwolę sobie pomyśleć za Ciebie... [syntax=vbscript]Sub Pokoloruj() ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column For x = 2 To ow...
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Jeśli nie tabela przestawna to myślę, że najlepszym rozwiązaniem jest zastosowanie makra. Takie makro może pobierać datę na którą ma być obliczona godzina wejścia wyjścia i dla wszystkich pracowników wklejać w odpowiednie pola odpowiednie czasy. Jeśli będziesz zainteresowany mogę przedstawić więcej szczegółów.
Jak nie chcesz mieć duplikatów, to załóż na pole Data indeks bez powtórzeń.
Witam, potrzebuje pomocy w stworzeniu makra które bedzie wynajdowało w ciągu znaków datę. Układ byłby następujący: kolumna A - imię i nazwisko kolumna B - numer pesel kolumna C - tekst z opisem W kolumnie C - znajduje sie ciąg znaków z tekstem, gdzie w pewnym miejscu (niepowtarzającym sie) pojawia sie data w formacie (dd-mm-rrrr). Jako efekt - chcialbym,...
Data Base.:) Na przykład Akces.
Wielkie dzięki za pomoc, wszystko śmiga i tak naprawdę nie wiem co wczoraj za niemoc mnie wzięła bo ten kodzik od adams_nt widziałem ale ciężki dzień był chyba i zasłona mi na oczy padła :D jeszcze raz dzięki. Temat zakończony
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Przede wszystkim załącz plik z przykładowymi danymi i pokaż co i jak chcesz filtrować. Napisz też jaką masz wersję Excela i jaki domyślny format daty w systemie operacyjnym. Ogólny schemat postępowania jest tu.[url=https://pl.extendoffice.com/docu...
Witajcie experci excelowi ponownie Kolejny raz potrzebuje Waszego wsparcia. Mam następujący problem do rozwiązania: Są kolumny z datami, wg poniższego przykładu: U V W X Z 2011-03-08 2011-03-08 2011-03-09 2011-05-20 2011-03-08 2011-01-10 2011-01-10 2011-05-10 2011-03-08 2011-01-07 2011-01-07 2011-02-01 2011-03-08 2011-02-10 2011-02-14 2011-03-04 i teraz...
Witam, Mam problem z makrem. Mam bardzo dużą macierz 40 na 140 gdzie sa same daty. np. 2003-07-14. Musze z tej macierzy wybrać te daty które sa w nie wiekszej odległosci od siebie niż 6 dni. np. 2003-04-10 i 2003-04-16 . Potem chce zeby mi np. jakoś zaznaczył te komórki w których znalazł takie daty moze pokolorowac je na jeden kolor , ale jeżeli program...
Histogram ? Jaki histogram ? Mówimy o czymś co przypomina "przewrócony" "histogram" ... to takie długie i "pierzaste, postrzępione" z prawej strony, a z lewej równe jak przy linijce ... poza tym przydałby się jakiś przykład w pliku xls, dane nie muszą być prawdziwe, przecież na obrazkach nie da się nic ustawić autofiltrem ... nie każdy ma Photoshopa...
Wklej kod w zdarzenie arkusza. Stringi masz podstawione pod zmienne, więc ActiveWorkbook.SaveAs FileName:=Path & "\" & Name Nie wiem, czy Excel nie zjeży się na te nazwy. Zmień na polskie: Sciezka, Nazwa . Usuń te dwie linie rozpoczynające się od "Set", są zbędne. Jeśli to ma być kopia oryginału (obie zapisane), to pierwsza linia Thisworkbook.Save...
Filtr działa, wg Twoich danych i ustawień tylko 1 data jest większa niż dzień dzisiejszy. Może przyjęłaś błędne założenia ? Oczywiście trzeba zmienić nazwę arkusza i numer kolumny wg której makro ma filtrować dane ...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Utwórz nowe makro i szukaj plików z filtrem daty modyfikacji. W moim przypadku lokalizacja w LibreOffice 4.1: C:\Users\nazwa_uzytkownika\AppData\Roami...
Jeśli dobrze zrozumiałem opis, to coś takiego powinno spełnić te założenia: [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False If FilterMode Then ShowAllData Set srcSheet = ActiveSheet ost_w = Range("A" & Rows.Count).End(xlUp).Row ost_col = Cells(1, Columns.Count).End(xlToLeft).Column 'generowanie...
Tak, jest to możliwe. Zrób dokładnie to, o czym piszesz i już. Czego ci brakuje? Składni VBA? To doczytaj. Proponuję zacząć od napisania warunku porównania (if), wpisz datę w jakiejś komórce, zadbaj, żeby naprawdę to była data, zmieniaj tę datę i sprawdzaj czy się zgadza. To najprostsza część zadania, dalej rzeczywiście możesz potrzebować pomocy. Proponuję...
Mam do wykonania dwa zadania: 1. Sporządź wykres przestawny pokazujący liczbę wytworzonych sztuk 4 produkowanych wyrobów w 3 oddziałach firmy w okresie 4 kwartału 2012. Dane powinny obejmować minimum 20 rekordów. 2. Napisz makro wpisujące podaną przez użytkownika datę do komórki a1 arkusza, tak, aby chroniło arkusz przed wpisaniem przez użytkownika...
Jak wyżej podane makro działa.
Witam, mam serie dat w jednej kolumnie. Chciałbym żeby makro zapytało mnie, najlepiej w formie wyskakującego okienka jaki zakres dat chciałbym zaznaczyć a następnie żeby makro wykonało polecenie. W przypadku braku zakresu danych wybranego przez użytkownika, najlepiej żeby makro napisało brak daty. z góry dziękuję za pomoc pozdrawiam
Witam z Nowym Rokiem, potrzebuje pomocy do pliku kontrolek pracy, jako, że Nowy Rok nastał czas ułatwić sobie pracę. Nie znam się za dobrze na Excelu, co potrafiłem to zrobiłem ale potrzebuje Waszej pomocy w kilku sprawach. 1) Potrzebuje Makro do zapętlenia daty; tłumaczę w arkuszu Liczydło w kolumnie Z mamy zakres dat w przedziale Z12 - Z95, potrzebuję...
Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
Wróżę problemy z jakimikolwiek poprawkami nawet tego prostego kodu. Makro jest podpięte pod Arkusz1->Worksheet->Change.
W załączniku jest hasło - 'a'. Blokowane jest wpisywanie w kolumnie A. 2x klik na komórkę w A pokazuje datę wprowadzenia. Chcąc zdjąć blokadę, zdejmujemy zabezpieczenie arkusza.
chodzi o wyciągnięcie zawsze tych pierwszych dat Ogólnie to konieczne by było makro z wyrażeniami regularnymi :idea: , w tym konkretnym przypadku można jednak wykorzystać prostą przeciąganą formułę :D [syntax=vbscript]=FRAGMENT.TEKSTU(E3;SZU...
Na taki opis, jaki podałeś, bez pliku wejściowego i wyjściowego, zaproponuję swoje makro. Jak będziesz chciał, to sobie dostosujesz do 'zmiany dat i innych danych'.
potrzebuję aby nowy folder był tworzony w tym konkretnym folderze Jeśli w komórce A1 będzie wprowadzona ścieżka aktywnego pliku z makrem :idea: (np. =INFO("katalog") :D ) to możesz tworzyć nowe podfoldery np. wg takiego kodu :spoko: : [syntax=vbscript]Sub StworzFolder() Dim FullPath As String Dim CheckDir As String Dim PATH As Variant Dim Folder As...
Dim tera as data 1. Winno być "Date" :!: :D ; 2. Chcesz namówić VBA do "samounicestwienia" :D , tylko żeby jeszcze zakończył to makro :cunning: :?:
Zauważ, że wiersze wstawiane są "od końca". W związku z tym daty należy obliczać podobnie. For count = 1 To how_many Range("A" & i + 1).EntireRow.Insert xlShiftDown Range("A" & i + 1).Value = Range("A" & i).Value - how_many + count - 1 Next count
Być może, ale co z powtarzających się kombinacje "data transakcji - kwota - numer karty" ? Z dużej bazy danych takich zdarzeń mogą być spowoduje że wiele niejasności. Skąd się bierze dane w arkuszu RAP? (źródło) Jest to możliwe, w RAP daty transakcji z dokładnością do sekundy?
Witam. Potrzebuję stworzyć makro, które będzie kopiować arkusz 'tamplate' do nowego arkusza nadając mu aktualną datę lub datę kolejnego dnia jeżeli arkusz o danej nazwie już istnieje. Mój kod obecnie wygląda tak: [syntax=vbscript]Sub add() Dim Sh As Worksheet ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") ActiveSheet.Name...
Przecież możesz wpisywać kolejne daty np po przecinku lub po "alt + enter". "Kłopot" nie jest z możliwością wpisu tylko z wynikiem w komórce M2. Ale jeżeli o to ci chodzi to troszeczkę zmieniłem w tej komórce funkcję. Jednak jest zasada by datę zawsze wpisywać w tym samym formacie (zgodnym z formatem daty w excelu). Na marginesie bez sensu jest dodawać...
Panie Macieju, Bardzo dziękuję za wyjaśnienia. Pana post sprawił, że wzbogaciłm się o bardzo cenną wiedzę. Działa - Bardzo dziękuję za pomoc! Czy wyświetlanie kolumny od aktualnej daty (przy założeniu że w wierszach są daty DDMMRRRR) jest możliwe bez makro?
(at)kinggustav Nie pytałem o poradę, napisałem makro i tu go zaprezentowałem. Co do żony, to jest zadowolona, artykuły spożywcze w lodówce i spiżarni się powtarzają, więc większość rekordów to kopiuj i wklej. Dat nie wpisuje "w całości" z palca - w kolumnie z datą jest ustawiony format daty, tak, że wystarczy zacząć wpisywać 25.05, by po przejściu...
Ok, od początku. Potrzebuje napisać makro, które do dat (lista 1) będzie dopisywać miesiąc który jest przypisany do przedziału miedzy data start a data end (lista2). Wynikiem makra jest lista 3.
Jeśli chodzi o korzystanie z pliku to nic trudnego. Wystarczy tylko kliknąć na okno z datą: miesiąc lub rok i pojawi Ci się okno z datą wtedy zadajesz datę którą chcesz i potwierdzasz a makro resztę (ukrywanie niepotrzebnych kolumn) zrobi już samo. http://obrazki.elektroda.pl/2150896600_1...
Szanowna, wcześniej już miałem pytanie: konik95 napisał: W mojej Bazie danych są jednak pewne elementy, które powinny być do wszystkich skopiowanych wierszy dodawane ręcznie? Tylko teraz widzimy jak wypełnić pola( NumerNazwaWersjaData utworzenia dokumentu) Z Numer a Wersja mniej więcej jasne. Dane skąd Nazwa i Data? Wątpliwości, że mamy wymyślić.
Ponawiam temat. Otóż potrzebuję pomysłu na makro porządkujące raw data które dostaję z pracy. Załączyłem plik co i jak. Jakby ktoś chciał pomóc ---> WIELKIE DZIĘKI.
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
Wystarczy przerobić zapis tekstowy na datę (Split), jeśli we wszystkich plikach jest identycznie . Jeszcze prościej byłoby, gdyby zapisywać datę jako datę :)
W jednej linii masz jedną datę, pętla więc jest zbędna. Trzeba by makro "zauważyło" zmianę daty, a jeśli nie (wiele zdarzeń tego samego dnia) Nr kolumny + 1 dodano po chwili Uwaga, zmieniłem załącznik.
Powinno to pomóc. [syntax=vb]Application.Calculation = xlCalculationManual[/syntax] spróbuj to wpisać zaraz na początku oraz na końcu przed End [syntax=vb]Application.Calculation = xlCalculationAutomatic[/syntax] ja mam w swoim arkuszu tylko do sprawdzania kolumny od A do ZZ i 25000 wierszy i czasami makro trwało od 5 do 30 minut :/ Teraz śmiga w sekundach.
Efekt jaki oczekujesz: wpis aktualnej daty i godziny w kolumnie A, jeśli cokolwiek wpiszesz lub skasujesz w kolumnie B :D - tak jak na zrzucie 990806 można zrealizować poprzez makro zdarzeniowe typu Worksheet_Change :spoko: 990807
niestety niewiele mi to pomogło.
Witam, Mam problem z makro. Tworząc pewien raport w każdy poniedziałek filtruje daty w kolumnie Y dla poprzedniego tygodnia. W formularzu Excel umieściłam w 2ch komórkach następujące funkcje; Y3 =dziś(), Y2 =dziś() -6, a następnie w filtrze niestandardowym wybieram większy lub równy Y2 i mniejszy lub równy Y3, aby uzyskać interesujący mnie przedział...
Szukam pomocy w rozwiązaniu blokady kolejnych kolumn, jeżeli data w komórkach pierwszego wiersza będzie mniejsza niż data bieżąca. Chciałem w makro odblokować arkusz, zmienić w pierwszej kolumnie wszystkie komórki na Zablokowane, jeżeli data w pierwszym wierszu tej kolumny jest mniejsza od teraz(), przejść do sprawdzenia kolejnej. Jeżeli kolejna data...
To znaczy potrzebujesz, żeby w makro podać zakres dat za jaki ma być zrobiony wykres oraz jedną wybraną walutę, czy ,ma to robić dla wszystkich walut w wybranym zakresie czasu?
Witam, Jestem tu nowy i chciałbym zapytać czy istnieje funkcja lub jest możliwość stworzenia makra(jezeli ktoś ma stworzone proszę o wysłanie na maila ak.komputery(at)gmail.com) które będzie sprawdzało datę dzisiejszą( dziś()) z datą podpisania umowy na n-nieograniczonej liczbie arkuszy (np umowy na zbyt) arkuszach, a następnie dane z arkusza w której...
Plik ustawiam jako tylko do odczytu, bo o to mi chodzi i jest to intencjonalne. Sam plik .csv otwieram bez pomocy makra w excelu i widzę określoną strukturę. Niestety, kiedy plik jest otwierany przez makro, struktura się zmienia. Może by mi to nie przeszkadzało tak bardzo, gdyby nie zmieniał jednocześnie w konkretnej kolumnie formatowania komórki z...
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Cześć, Mam plik z lista obecności i chciałabym, aby dane były filtrowane w konkretnej kolumnie zawierająca dzisiejsza datę: Makro znajduje i wskazuje mi dzisiejsza datę, ale filtruje tej konkretnej kolumny. Czy mogę ustawić to w ten sposób aby field było wartością komórki? Albo data dzisiejsza? Sub nowenowe() ' ' nowenowe Makro ' Dim daterng As Range...
Są dwa magazyny - A i B. Wyciągam przedmiot z magazynu A, skanuję jego kod kreskowy, i umieszczam w magazynie B. Jak to zrobić, aby w momencie skanowania automatycznie zapisywała się w tabeli data i godzina skanowania? Makro? Chodzi o jakąś automatyczną procedurkę, ponieważ jest dużo przedmiotów, ręczne dopisywanie odpada.
Niby tak ale nie do końca :) Wklejam plik dla lepszego zobrazowania. Klikając "Przycisk 1" makro powinno znaleźć wartość "Data pomiaru" w kolumnie "Data", następnie skopiować "wartość pomiaru" i wkleić w kolumnę "temperatura" (czyli zaraz obok). Dzięki temu, nie trzeba ręcznie wprowadzać zmian dla dat z przeszłości.
Nie za bardzo rozumiem co dokładnie ma robić załączony kod, natomiast takie sprawdzenie jest prawidłowe: [syntax=vbnet]If ws.Cells( ... , ... ).Value + 7 > Now() Then ...[/syntax] Pamiętaj jednak, że: 1. w komórce musi być wpisana data i Excel musi rozpoznać ją jako datę 2. daty w VBA (i nie tylko) są traktowane jako typ rzeczywisty, gdzie część całkowita...
Witam, chciałby powiazac 2 sprawy, mianowicie aby powiązać ze soba makro DATA i PARA (nalezy zmodyfikowac). Chodzi o to aby po uruchomieniu nastapywaly kolejno po sobie czynnosi: 1.odblokowanie arkusza 2. wstawienie daty w pierszym wolnym wierszu kolumny A 3. zaznaczenie tego wiersza w ktorym zostala wstawiona data i zamiana funkcji na wartości 4. zablokowanie...
Są zdefiniowane. Procedura polega na kopiowaniu z jednego pliku danych zawartych w kilku kolumnach i doklejeniu do innego pliku. Po wklejeniu makro ma sformatować datę w pierwszej kolumnie.... Makro jest bardzo rozbudowane i ciężko mi będzie wszystko pokazać. Dodano po 3 Rodzaj błędu to: Run-time Error '6': Overflow
MsgBox, jak sama nazwa wskazuje, no może nie dosłownie, to okno komunikatu. Nie może niczego wybierać. Może być częścią instrukcji warunkowej, ale wartości muszą być zdefiniowane. Przykład: [syntax=vb]If MsgBox("Wybierz Tak, jeśli z lewej. Nie, jeśli z prawej", vbYesNo) = vbYes Then rng = Range("A1:A5") Else rng = Range("A6:A10") End If[/syntax]Zdaje...
Jeżeli w następnym numerze nie ma wpisu to zapisuje czyste PDF z nagłoówkiem poprzedniego numeru Trzeba dodać instrukcje 'if" pewnie są w bazie daty niespełniające kryteria i niektóre mniejsze niż 2022-01-01.
Generowane pliki zawsze są generowane do jednej lokalizacji? Nazwa użytkownika - masz na myśli konto w systemie operacyjnym? Jaka dokładność tej daty/godziny jest Ci potrzebna?
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
Właściwie potrzebuję takie proste makro Chciałeś proste, to masz proste.
można to zrobić w 3 etapach 1. Przejdź do lokalizacji (ChDrive, ChDir) 2. przy pomocy funkcji Dir i FileDateTime zrobić listę plików 3. Sortuj listę malejąco po Data-godzina pierwszy na liście będzie plik, którego szukasz
Widzę że porównujesz daty podmień na to i zobacz (chodzi o to czy masz taki sam format daty na tych komputerach) [syntax=vbscript]If Cells(x, 2) = CDate(DataCzas) Then[/syntax]
Witam, Bardzo proszę o pomoc w napisaniu dla Was pewnie banalnego makra służącego do ściągania danych (rozszerzenie pilów do pobrania "".dat) z servera ftp. Dane znajdują sie w odpowiednich kilku podfolerach , niektóre opisane są rokiem bądź miesiącem. Czy ktoś może mi pomóc?
Makro zadziała przy otwarciu pliku. Zrobiłem kopię arkusza dla porównania. Możesz przed zamknięciem skopiować do "Arkusz1", zamknąć i otworzyć ponownie. Zmienna "kol" to Nr kolumny z datami. Przeanalizuj, dostosuj do własnych potrzeb
Ale jakbym już robił to nie po opcji "wstaw" tylko przycisk "Twórz notę" i sam program (makro) po porównaniu daty zapłaty i terminu zapłaty wystawia noty do wszystkich spełniających warunek faktur. Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Jakieś makro dałoby się naskrobać, ale na jakich warunkach... Słownie dla Calc'a już było...
Na szybko, może Cię nakieruje dodaj jeszcze datę po nazwie: folderPath = Application.ActiveWorkbook.Path 'Wykrywa sciezke pliku Arkusz.Copy With ActiveWorkbook .SaveAs Filename:=folderPath & "\" & "nazwa_pliku" & ".xlsx" .Close SaveChanges:=True MsgBox "Plik został zapisany w bieżącym folderze." End With...
datę produkcji liczba datę przestawia datę
czujnik dolot powietrza skoda podświetlenie wzmacniacz napięcie zasilające jonizator
saeco triak grzałki saeco triak grzałki
Hasło serwisowe do pompy infuzyjnej Medima S300 - bezpieczeństwo i regulacje Junkers Ceraclass ZW24 błąd 9 i trzaski - przyczyny i rozwiązania