w zaznaczonym przeze mnie zakresie Nie doczytałem, post zmieniłem Sub KopiuZaznaczone() Dim kom As Range, i As Integer, ostWrs As Long ostWrs = Sheets(1).Range("G65536... + 1 For Each kom In Selection If Left(kom.Address, 2) = "$G" Then If kom.Value = 1 Then ActiveSheet.Rows(kom.Row).Copy.....
W Excelu 2003 kopiowanie danych spod filtra kopiuje także dane ukryte, a nie tylko widoczne rekordy. Nie chcę w tej chwili sprawdzać, ale chyba / być może ten problem nie występuje w Excelu 2007 (albo myli mi się z Open Office - tam na pewno kopiują się tylko widoczne rekordy przy autofiltrze). Aby uniknąć tego kopiowania ukrytych rekordów wchodzi się...
Mam jeszcze jedną sprawe. Próbowałem zrobic tak aby mozna było porównywać dane w dwóch arkuszach ale od róznych rekordów.tzn w arkuszu2 zaczyna sie od 1 a w arkuszu1 od np24. Zmontowałem taki kod ale coś nie działa.Możesz mi podpowiedzieć co jest źle Sub Przycisk1_Kliknięcie() Dim jest As Boolean Dim TabData() As Date Dim TabSp()...
1) Kryterium 1: dokonali transakcji w 2009 roku, 2) Kryterium 2: dokonali transakcji za min. 50zł. Dlaczego nie użyć autofiltru? Wynik kopiowac oddzielnie i zrobić tabelę przestawną.
Chciałam skopiować 50% rekordów wraz z notatkami i zadaniami z jednego konta na drugie. czy taka możliwość istnieje w Essentialu i jak wykonać to zadanie? Nie chciałabym metodą prób i błędów zniszczyć całości.
Może źle szukam porady, ale jako początkujący nie mogę znaleźć sposobu, by w formularzu wykonanym na podstawie tabeli, móc skopiować cały rekord i zapisać jako nowy pod koleją "wolną" pozycją w tejże tabeli. Rekord zawiera "sporo" danych z których większość jest powtarzalna - stąd skopiowanie go i zapisanie jako kolejna pozycja, zaoszczędzi mi czas...
Chcesz aby przy kopiowaniu pomijal wiersze, gdzie juz wpisano recznie w kolumnie X? Dodano po 1 po y=y+1 wpisz[syntax=vb] z = wkb.Cells(wkb.Rows.Count, "x").End(xlUp).Row +1 If z > y Then y = z[/syntax]
Możesz użyć obydwu składni, przy czym krócej będzie INSERT INTO ... SELECT. Przy składni INSERT INTO ... VALUES(...) musisz podać wartość dla każdej kolumny, a więc dla każdej (poza pierwszą, która ma otrzymać stałą wartość) musisz dać podzapytanie (SELECT (kolX) FROM tabela WHERE ... ); każde z tych podzapytań - jak zauważyłeś - zwraca wartość dla...
Witam wszystkich Muszę umożliwić użytkownikowi Excel'a wykonanie zapytania do bazy Accessa. Warunek kwerendy zawarty jest w komórce arkusza a baza danych Access jest zabezpieczona hasłem. Zapytanie jest stałe a zmienny jest tylko warunek (chodzi o wybór rekordu/rekordów tabeli A względem jednego pola). Wynikiem może być pojedynczy rekord lub kilka rekordów...
Uciekłem od problemu, używając korespondencji seryjnej w MS World, połączonej z tabelą, w której zostały umieszczone odpowiednie pola. Zasysanie kolejnych rekordów - z excela.
Najlepsze przycisk. Nie należy wypełniać LP. Podczas skopiowania danych makro będzie wypełnić sam. Oznacza to jednocześnie może być kilka rekordów po kliknięciu na przycisk.
Napewno z programu nie będzie można podglądać poprzednich lat (bo nie chcesz zmieniać programu). Więc chyba jedynym sposobem będzie kopiowanie rekordów z jednej tabeli do innej. Zalecałbym użycie trigera tylko nie z samym rokiem a z dokładnym czasem czyli dorobić kolumnę z datą i czasem np "wpis_data" i w trigerze (at)wpis_data=Date dzięki temu będzie...
Mam bazy na 2 serwerach. Mają one identyczne tabele i chciałbym by skrypt uruchamiany np cronem o północy najpierw czyścił wszystkie tabele na serwerze A a następnie kopiował do nich zawartość tabel z serwera B. Nie wiem jak się do tego zabrać. PS dziennie dochodzi około 25k rekordów więc co dzień będzie coraz więcej.
Hej, Bardzo dziękuję za szybką reakcję! Jednak nowe makro za każdym razem zwraca info 'brak ulicy XXX' nawet jeśli wpisuję całą nazwę dokładnie tak, jak jest w Arkuszu "Baza". Nie mam pojęcia o VBA i nie umiem również zmienić kodu tak, żeby wyszukiwał również po fragmencie nazwy, np. 'bieża' dla 'Bieżanowska 78C', a w przypadku 2 lub więcej rekordów...
w całym temacie widzę z dziesięć drobiazgów, które są zrobione nieprawidłowo, lub które można ulepszyć. Np kopiowanie imienia, nazwiska świadczy że w bazie jest niedobrze z relacjami. W docelowej tabeli powinien być tylko id (ucznia), a podczas ew. odczytu wykonywana relacja (join)
kolumnę id pozostaw pusta Dziękuję - to rozwiązało kwestię kopiowania / wklejania. Okazało się, że jest tam jeszcze jedno pole, które musi mieć zawartość unikatową (nie pierwsza kolumna, ale inny ID) i bez unikatowości tejże kopiowanie wywalało błędy. Czy w Access da się jakoś odszukiwać takie kolumny / zmienne które muszą mieć unikatowe wartości?...
Witam, czy możecie podpowiedzieć mi czy jest jakaś formuła w excelu lub makro (vba) aby wykonać poniższą czynność? Sorki, za ewentualny złe zaadresowanie mojego pytania, ale nigdzie w sieci nie wyszukałem pomocy i zalogowałem się tutaj z pomocą o wsparcie. Jestem samoukiem i zabrakło wskazówek w sieci :) Opis mojego przypadku 1. Zrzucam dane ( różnych...
Witajcie mam następujący problem. Chciałbym aby macro tworzyło tabelę przestawną (tak jak w załączonym pliku), a następnie filtrowało po kolei każdy kraj do końca i wszystkie dane dotyczące danego kraju kopiowało do nowego arkusza o nazwie danego kraju.(Macro zawsze powinno tworzyć tyle arkuszy ile pojawiło się rożnych krajów) Dla każdego kraju jest...
makro wykrzacza mi się na linii: "If Sheets(wybor) Is Nothing Then" Faktycznie tak się dzieje :cry: - wymień tą część kodu od If ... do End If na kod: Nie do końca też rozumiem do czego służą dodatkowe arkusze z nazwami kolekcji Służą nadaniu jakiejkolwiek logiki robionym przekształceniom :D Zapisywanie wszystkich "wyciągów" (wielokrotnie po 3000 -...
Generalnie popełniłam błąd i makro powinno działać dla daty ukończonej , powinien powstawać nowy skoroszyt a nie arkusz. Nie wyczuła Pani nuty ironii w moim dopytywaniu o szczegóły zadania ? :D Przewidując taką ewentualność, że jeszcze nie do końca ułożone są założenia funkcjonalności tego pliku (czy skoroszytu ? czy arkusza ?) próbowałem zmodyfikować...
Dzień dobry, Zawracam się z prośbą o pomoc. Starałem się przeszukać forum, niestety nie znalazłem pomocy dla rozwiązania problemu. Chciałbym utworzyć makro, które znacznie usprawniłoby moją pracę. Mianowicie, (jak w załączonym pliku) potrzebowałbym kodu, który kopiowałby po kolei każdą komórkę z kolumny "A" z arkusza#2 i wklejał ją w kolumnie "C" 14...
Witam, jestem początkujący w temacie VBA a mam następujący problem: 1) plik .xlsx zawiera ok. 30 tys. rekordów 2) w kolumnie K jest ok. 100 unikatowych wartości 3) chciałbym, aby makro vs. ww. kolumny otworzyło ok. 100 plików w wybranym w kodzie folderze - w nazwie każdego pliku powinny znaleźć się poszczególne 100 unikatowe wartości z kolumny K, dane...
Proszę, plik w załączniku Załączniki: STOCKO Order confirmation 2906412.pdf Konwertowanie przykładowego dokumentu pdf autorki można przeprowadzić dwuetapowo: 1. kopiowanie istotnych treści z Adobe Readera do arkusza "temp" 869198 lub wykorzystanie przekształcenia jakimś softem typu "pdf to csv"; 2. wykorzystanie makra vba do konwersji łańcucha stringów...
natomiast nie wiem jak dokonać pakowania dbu(pack) finalnego usuwania rekordu PACK czy jest jakieś polecenie kopiujące rekordy spełniające warunek for trim(opis)='POLAND' do nowego pliku. Copy To nowy_p For trim(opis)='POLAND' W wyniku w/w polecenia powstanie plik nowy_p.dbf Pozdrawiam JK
Ciężko powiedzieć, na SSD przeniosłem tylko 1 system, na drugim kompie nic nie było przenoszone i jest tak jak było na HDD. Czy żadne usługi nie zostały wyłączone? Świadomie nic nie ruszałem w usługach. Może jakaś aplikacja je wyłączyła. Używam zainstalowanego Avasta, i odpalam co jakiś czas Malwarebytes i ADWCleaner. Może one coś wyłączyły. Nie mam...
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo formuły będą się kopiować z kilku "zakresów" np. Range("D2:E2")...
Jesli dużo uszkodoznej powierzchni to może kopiować i kopiować. Mój rekord to ponad 3 tygodnie :)
Witam Z racji tego, że całkowicie nie czaję VBA i pomimo prób mi nic nie wychodzi zgłaszam się do was drodzy forumowicze. Potrzebuję makra, które kopiuje rekordy B5:B10 z arkusza (Arkusz1), następnie wkleja te rekordy w aktywnym arkuszu w kolumnach D:I, a każde kolejne użycie makra wklejało zawartość w nowym wierszu. Z góry dziękuję za pomoc
A jaki przykład? Bo opis nie do końca pojmowalny. :(
Nie lepiej zrobić listę i zamiast kopiować cały rekord skopiować tylko wskaźnik ? Wtedy można by też zrobić dość prosto fifo do usuwania, by nie zajmować za dużo pamięci.
Nie jest do końca zrozumiałe twoje pytanie ale wydaje mi się że najszybciej zrobisz tabelę przestawną gdzie zagregujesz wyniki według kolumny A i przekopiujesz wynik tabeli. Lub prościej załóż filtr na tabeli i skopiuj przefiltorwane rekordy.
Fajnie, działa, dzięki. A możesz mi powiedzieć jak zrobić aby kopiowało zawartość pola z TextBox1 do drugiego TextBox2? Może tak: [syntax=vb]TextBox2.text = TextBox1.text[/syntax]
Próbowałem powyższych sposobów podstawienia lecz to nie jest to. Obecny formularz przebuduję w oparciu o kwerendę a nie tablicę jak mam dotychczas i temat będzie rozwiązany aczkolwiek pojawią mi się inne "niewygody" np. prawdopodobieństwo niepożądanego powielania rekordów. Nadal nie wiem jak pobrać dokładnie tę wartość pola która jest widoczna na ekranie....
cześć, zastanawiam się czy istnieje jakiś łatwy sposób na rozwiązanie mojego założenia. Mam trze zakładki Start ( zawiera dane jakie ja podyktuje - data od, data do, numer klienta ), Dane i Zestawienie. Poszukuje makra, które na podstawie ustawienia dat od - do i numeru w systemie będzie kopiowało wybrane rekordy do zakładki zestawienie. Czy ktoś pomoże...
Jeżeli to operacja jednorazowa to: w excelu 2003 i niżej : Zaznacz kolumnę z danymi. Menu Dane - Filtr ... - Filtr zaawansowany. Zaznaczasz kopiuj w inne miejsce. Okienko z warunkiem zostawiasz puste. W okienku celu ("Kopiuj do:") zaznacz pierwszą komórkę gdzie ma być wklejona lista. zaznacz "Tylko unikatowe rekordy" i wciśnij ok. w excelu 2007 i wyżej...
musisz zadeklarować wskaźnik do tablicy elementów typu "wskaźnik do elementów typu struct dane" w nastepujący sposób: Po co ? Przecież on potrzebuje zwykłą tablicę, czyli jeden wskaźnik na obszar pamięci zaalokowany przez menadżer sterty. Natomiast to co ty robisz, to wskaźnik na pierwszy element tablicy wskaźników. Fakt, w podanym kodzie jest trochę...
Najprościej: Zaznaczyć kolumnę, z menu Dane>Filtr>Filtr zaawansowany wybrać "kopiuj w inne miejsce", zaznaczając "tylko unikatowe rekordy". Podsumowania można wykonać przy pomocy SUMA.JEŻELI.
Cześć, mam problem i nie mogę znaleźć rozwiązania. Stworzyłem kod, który filtruje mi tabelę wg pewnego parametru w kolumnie C. I teraz potrzebuję kodu który w tej pofiltrowanej tabeli w kolumnie A będzie zaznaczał każdy różny rekordy (nie ważne co w nich będzie wpisane, ani ile ich będzie) i każdy wiersz z tym samym rekordem kopiował do oddzielnego...
Tak, jak napisał akmes. Filtr zaawansowany: zaznacz unikatowe rekordy i opcję >kopiuj w inne miejsce<, które wskażesz lub podasz adres. Pola zakres kryt. nie wypełniasz.
Przetestuj ten kod dla zdarzenia Worksheet_Change arkusza Form2. W komórce B4 arkusza Form2 wpisujesz jedynie numer rekordu do skopiowania. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim lLstRw& 'pierwszy wolny wiersz w arkuszu "baaza" Dim lLstRwBs& 'ostatni zapisany wiersz w arkuszu "zbaza1" Dim lFndRec& 'numer wiersza ze znalezionym...
Filtr zaawansowany, kopiuj w inne miejsce, tylko unikatowe rekordy
Witam potrzebowałbym dodać do poniższego makra opóźnienie działania. Mianowicie żeby na przykład po komunikacie "Czy wyeksportować rekordy do pliku Excela?" wyświetliło się kopiuję dane a następnie odczekało powiedzmy 10 minut przed dalszym działaniem
A rozwiązałem troszke inaczej, napisałem makro, które kopiuje rekord z tabelacontent do nowego rekodu do tabeli wynik, w vba wywołałem makro przez docmd.runmacro "macro1" i też działa, ale dziękuje Dodano po 1 Czy ide w dobrym kierunku? funkcja zwraca mi wartość liczbową, ale wkońcu coś zwraca: [syntax=vb]Private Sub Polecenie13_Click() Dim xml As New...
Niestety. Jak masz NTFS to możesz np. sprawdzić, czy został w $MFT jakiś ślad z tych plików, co potwierdzi ich ewentualne nadpisanie lub nie (danego pliku). Wejście na partycję w DMDE i "wszystkie znalezione+rekonstrukcja" -->czysta rekonstrukcja z zaznaczoną opcja "uwzględnij usunięte". Dowiesz się wtedy, czy choć jakikolwiek rekord z tych danych w...
Dasz radę zmienić kod żeby w przypadku 2 lub więcej takich samych rekordów, kolumna GroupID nie kopiowała wszystkich wartości tylko jedną? Np: Camembert | 1 | DL Camembert | 1 | DL Po konsolidacji: Camembert | 2 | DL Bo teraz jest: Camembert | 2 | DL, DL
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
No to mam klopot. To jest dobry wzór. Arkusz opis to ten który ma wyświetlać pojedynczy rekord. Wszystkie pola tożsame z Wydatki ma kopiować
Wiele jest napisane, szczególności niewiele(z wyjątkiem ~30 plików). Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek Gdzie to makro? Co najmniej łączenia plików(nazwy ścieżek plików). Gdzie jest ta tabela przestawna?
W taki sposób Tablica[0]:='tekst .... (wklejomy miedzy cudzysłowami tekst) ....'; Po prostu kopiuje np. tekst artykułu z serwisu i wklejam bez edytowanie, ponieważ porzebuje, żeby tekst był sformatowany tak jak go kopiuje,.
1). Sortujesz dane wg. pierwszej kolumny. 2). W kolumnie CZWARTEJ (jeżeli masz 3 zajęte) korzystasz z instrukcji JEŻELI, przykładowo: =JEŻELI(A1=A2;;A1) czyli: jeżeli komórki a1 i a2 są RÓZNE, to wpisz do kolumny wartość komórki A1 3). W kolumnie piątej postępujesz PRAWIE tak samo, tzn =JEŻELI(A1=A2;;B1) 4). W kolumnie szóstej postępujesz analogicznie...
Czy dobrze zrozumiałem, że chodzi Ci o utworzenie pliku tekstowego (w tym przypadku struktury xml) z danych z zaprezentowanej tabeli? Coś takiego: [syntax=vb]Sub DoXML() Dim x As Long ow = Cells(Rows.Count, "A").End(xlUp).Row Open "C:\Wynik.xml" For Output As #1 Print #1, "<Counter Name=" & Cells(1, 1) & ">" Call Rekord(1) For x = 2 To...
edycja rekordów segment rekordów pliku mysql wyświetlanie rekordów
silnik zamek centralne samsung biały pasek samsung splitter internet
ESP8266 programowy reset – ESP.restart(), esp_restart(), MicroPython, AT+RST Opticum HDTV 5800 S – wyszukiwanie polskich kanałów na Hot Bird 13°E, konfiguracja LNB, lista transponderów
