[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
Najpierw makro, które wstawi przecinki.
Witam. Nie miałem nigdy doczynienia z VBA. Teraz muszę skorzystać z pomocy. Mam taki problem. Mamy 3 zeszyty o nazwach:"Robert","Asia","Mirek" oraz Zeszyt "ZBIOR". Dane w tych zeszytach zawarte są w "arkuszu1". Chciałbym aby Makro mi zeszytów"Robert","Asia","Mirek" kopiowało do zeszytu "ZBIOR" do komórek o zakresie(b4:b4016;M4:4016) bez otwierania zeszytów...
oczywiście, że tak. jednak nie rozwiąże to mojego kłopotu. Tym bardziej, że codziennie muszę wykonywać koło 1000 kopiuj/wklej. Dlatego potrzebowałbym rozwiązania bardziej automatycznego
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Cześć, mam problem z przyciskami, w których umieściłem makro, które kopiuje wartości z komórek C6:C45 w zeszycie Sheet1 do zeszytu PASS (A3:AN3). Jak wciskam przycisk "Pass" wartości są kopiowane do zeszytu pass, ale jakoś dziwnie bo nie w jednym wierszu tak jak bym chciał tylko łapie kilka wierszy?? Drugi problem jest taki, że nie wiem jak to zrobić,...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
Czy jest jakiś sposób na współprace C++ Builder z Excelem? Mam taki kłopocik mianowicie robię dużą ilość obliczeń dla jednej zmiennej następnie kopiuje wyniki do nowego Arkusza, zmieniam zmienną i znowu kopiuje:( Jest to strasznie żmudne:( Obiło mi się o ucho że można użyć GetActiveOleObject ale leciutko nie mam pojęcia jak do tego się zabraćL Można...
Próbowałem w ten sposób zrobić makro. W zeszycie 2 zaznaczam to co mnie interesuje następnie kopiuje do ostatniego filtrowanego wiersza w zeszycie 1, tylko coś mi to nie wychodzi mógłby ktoś zerknąć? Poniżej kod: (powstały w oparciu o to co udało mi się wyszukać jeżeli bardzo źle to wygląda proszę o wyrozumiałość :)) Range("A1:H4").Select Application.CutCopyMode...
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
-kinggustav Właściwie to źle napisałem... Makro ma wpisać formuły a nie kopiować dane ponieważ założenie jest takie że gdy w których z zeszytów z których są pobierane dane nastąpi jakaś zmiana ma być także aktualizowana w zeszycie głównym dlatego formuła z odwołaniem do innego zeszytu. -JRV O to właśnie chodziło! Tak to jest jak się nie zna podstaw...
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Trzeba tylko pamiętać o zmianie miejscami kolumn z wierszami. Tak patrząc po tym csv, to na moje krzywe oko na maroko, to: [syntax=csv]Czas i data;sggw/KONW1/Nadążny/S [W/m2];sggw/KONW1/Poziomy/S [W/m2] 2006-01-01 00:00:42;0,0;0,0 [/syntax] powinno wyglądać raczej tak: [syntax=csv]"Data";"Czas";"sggw/KONW1/Na... [W/m2]";"sggw/KONW1/Poziomy/S [W/m2]"...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny (a w tabeli dane liczbowe do przyporządkowania). 2. Poszczególne...
E tam "zlituje" zaraz ... zwykłe "sie mu zechce" i tyla ... bo jak się zagmatwy"wowawoło"wuje proste sprawy, to ludziskom innym się nie chce ... Drugie marko ma drukować wszystkie arkusze z skoroszytu "akrusz ocen" ale przez zapisam makro musi poprosić o podanie ścieżki zapisu jak i makro musi dopisywać numerek przy każdym zapisie (tak żeby nie nadpisać...
Hey Proszę o pomoc lub poradę co jest nie tak. Mam na dysku arkusz do którego poprzez makro lądują dane ( tylko do pierwszego wiersza (A1:X1) . Każdy nowy zestaw danych leci do osobnego arkusza w tym skoroszycie teraz mam ( 480 arkuszy ). Inny arkusz kopiuje te wiersze wkleja jeden pod drugim. Czyli po skopiowaniu powinienem mieć 480 wierszy pluj wiersz...
Czytam to już n-ty raz i... Nie napiszę jak to zrozumiałem, bo (znowu) forumowicze będą mieli ubaw ;) Znalazłem tylko oprogramowaną kolumnę "J" w arkuszu "Przyjęcie próbek" i kopiowanie. Natomiast plik "Kopiuj-Ściskanie" zawiera w "Arkusz1" jakby wzorzec dla arkusza wynikowego, który przecież już istnieje. A może w nim będą wyniki (liczby w wielu wierszach)...
Miałem problemy z ìntenetom. Tylko teraz było. teraz przykładowo mam w "Spisie_" osiem komórek, w których będzie funkcja W pliku zobaczym max 6(7) komórki, która wypełnia makro. Na tej podstawie i wykonane makro. Nie można odgadnąć, co jest siódmym i ósmym. będzie funkcja, która będzie pobierała dane z Zeszytu"Dane_" W pliku Dane_ nie widać żadnych...
... jak dołożyć w kolumnie A informację, które dane z którego pliku pochodzą na podstawie jego nazwy ... 1. Przecież w kolumnie 'A' masz skopiowane dane (z otwieranych po kolei plików). Jeśli wkopiujesz coś w to miejsce, to "stracisz" owe dane. Na pewno do komórek kolumny 'A', a nie jakiejś innej, leżącej poza zakresem, przed chwilą, skopiowanych danych,...
"DataChart" Jeszcze nie zaglądałem do załącznika, ale dlaczego właściwie w "Sheets("DataChart")" usuwasz dane tylko z jednej kolumny ".Columns(1)" skoro końcówka kodu sugeruje, że może ich być więcej (?) - zmienna "counter": Dodano po 1 Dane kopiuję z pliku sam do arkusza, zapisywane są w pliku tekstowym na karcie SD na mierniku. Nie importuje calego...
nie ważne czy plik jest otwarty przez użytkownika czy zamknięty Ważne ... będzie zupełnie "inne podejście do tematu" ... Jeśli plik będzie zamknięty, to najczęściej zastosowane zostanie ADO, jeśli nie znamy rozplanowania dnych w arkuszach zamkniętego zeszytu. Jeśli znamy i wiemy co, gdzie, w jakiej komórce, to można się tam będzie dostać "zwykłą formułką"...
Tak. W zeszycie READY, wyselekcjonowane są już gotowe dane. nie zawierają one pustych komórek, to zrobiło inne makro (mało skuteczne, ale działające).Te informacje z arkusza READY maja trafić do pierwszej "czystej" komórki kolumny A arkusza Sheet3.W arkuszu Sheet3 znajdują się oczywiście dane, które wcześniej odczytałem z arkusza READY i tak w kółko...
Nie jestem pewny, czy Koledze o to chodzi, ale poniższy przykład możesz sobie przerobić: [syntax=vb]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\,...
Dobudowałem trochę - ale mimo kilkugodzinnych prób nie wyczaiłem gdzie w makrach są odpowiednie odnośniki aby coś pozmieniać. Pod przyciskiem OK formatki Świetnie działają przejścia i chciałem aby jeszcze w arkuszu WPIS w kolumnie D wpisywało cyfrę znajdującą się przy wybranej pozycji z SŁOWNIKA (kol A). W zależności od tej wartości wpłata będzie wpisywana...
Witam Chciałbym skrócić czas, który poświęcam na kopiowanie danych pomiędzy plikami Excela. Próbowałem zrobić jakieś makro, ale co zrobię krok do przodu to później dwa w tył i najczęściej jeszcze spędzę nad tym kilka dobrych godzin. Mam grupę użytkowników, która uzupełnia dane w Excelu. Każda osoba ma folder ze swoim osobnym plikiem. Są to cztery kolumny....
Kiedyś ktoś z tego forum obdarował mnie poniższym kodem. Wszystko działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? Wiem że mogę przyrównać zakresy ale jak to zrobić gdy ilość skoroszytów w lokalizacji jest zmienna ? [syntax=vbnet] Sub ImportujPlikizWieluLokalizacji() '...
Na wstępie WITAM wszystkich czytających, Chciałbym wykonać cennik w Excelu - ale taki bardziej inteligentny:) 1. Kupuję produkt w Euro w cenie netto (czyli to jest moja DANAx) 2. Muszę wymnożyć cenę zakupu przez średni kurs euro (czyli to jest DANAy) 3. Do tego dorzucam marżę np. 50 groszy (DANAz) 4. Do tego doliczam koszt transportu np. 30groszy (DANAq)...
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
Witam Prosiłbym o pomoc w znalezieniu odpowiedniej formuły ewentualnie stworzenie makra w celu wykonania następującej czynności: W zeszycie znajduje się 12 arkuszy (dla każdego miesiąca) - arkusze tylko do odczytu. W komórkach znajdują się formuły obliczające dane pobierane z jednego arkusza w którym znajdują się STAŁE dane, oraz dane wpisywane w kolejnych...
... jak powinien wyglądać kod? 1. Deklaracje planowanych zmiennych/stałych pracujących w procedurze 2. Przypisania wstępne/wyjściowe do powyższych 3. Pobranie danych o nagłówkach - do tablicy lub bezpośrednio, w locie ... np.: PRL , do wyszukiwania w pierwszym, nagłówkowym wierszu arkusza z tabelą ... np.: [syntax=vbscript] With .Range(.Cells(1, 1),...
Cześć, bardzo dziękuje za pomoc :) Efekt końcowy jest prawie taki jak chcieliśmy uzyskać. Nie mam zastrzeżeń, do działania bo wszystko działa tak jak trzeba, lecz: 1. Zamienione są dane Firma 1 (t) z numerem karty. Firma 1 (t) - to wartość wyrażana w tonach, czyli MASA z dokumentu WZ Numer karty - to ta górna wartość z dokumentu WZ, nr karty/przepustki...
Witam. Jest to jak najbardziej możliwe np formułą: =ADR.POZR(G8) a w g8 adres do komórki (zwykły tekst) ''C:\Users\Desktop\[Zeszyt1.xlsx]Arkusz1... Wtedy w komórce w której jest pierwsza formuła pojawi się wartość z drugiego arkusza. Tylko oba arkusze muszą być otwarte żeby to działało. Wydaje mi się że dużo wydajniejsze było by makro kopiujące dane...
...jak powinno wyglądać makro kopiujące cały arkusz ? ...nie potrafie tego zamienić na cały plik Arkusz - część składowa skoroszytu. W skoroszycie może być wiele arkuszy. Plik zapewne w tym przypadku rozumiany jako skoroszyt. np Zeszyt1.xls Przepraszam że się wtrącam ale zdecyduj się co chcesz kopiować. Myślę że chodzi o arkusz ale... Zapis kopiujący...
Dla plików z nagłówkami w 27 wierszu, ale tylko dla nich oraz odbezpieczenie arkusza. [syntax=vba] Option Explicit Sub Scalaj_v2() Dim Licznik As Long, LW As Long, LK As Long, LW_Docel As Long Dim TenZeszyt As String, Folder As String, Plik As String Dim WERSJA As Variant Dim StatBarPocz As Boolean Dim Skor As Workbook Dim Skonsolidowany As Worksheet,...
Rozwiązałem swój problem w nast. sposób: Sub drukowanieprawidlowe() ' ' drukowanieprawidlowe Makro ' ' Dim i As Integer i = InputBox("Numer wiersza") Workbooks.Open Filename:="C:\Users\Dominik\Desktop\Zesz... Application.Left = 1 Application.Top = 1 Application.Width = 720 Application.Height = 780 Windows("Zeszyt1.xlsm").Activate Cells(i, 1).Select...
Robie tak jak mówisz i otrzymuję coś takiego Sub Makro3() ' ' Makro3 Makro ' ' Range("A2:F2").Sel... Range(Selection, Selection.End(xlDown)).Selec... Selection.Copy Windows("Zeszyt1.xlsm")... Range("A2").Select ActiveSheet.Paste End Sub
Można zrobić "czysty" plik z makrem. Kopiować go i potem dodawać dane. Innym sposobem jest export makra do jakiegoś pliku (a własciwie nie makra a całego modułu więc oddzielny moduł dla danego makra jeżeli nie chce się więcej kopiować) a potem jego import. Poniżej kod Workbooks("Zeszyt1.xls"...
Cześć, Mam taki problem. Potrzebuje stworzyć makro, które porównuje dwie tabele z dwóch plików. Wartości które się nie zgadzają muszą zostać wypełnione kolorem czerwonym. Chodzi o to by w Zeszyt1 dla każdego produktu w którym cena i marża nie zgadza się z Zeszyt2 komórki powinny być wypełnione kolorem czerwonym. Niestety nie mogę skorzystać z formatowania...
hmmm,na przykład przy użyciu makra ? bo znalazłem takie makro.. Sub kopiuj() Dim plik As Workbook Dim i As Long, pierwszyWiersz As Integer, ostatniWiersz As Long 'jesli nie dalej niz wiersz Nr 32767 wystarczy As Integer pierwszyWiersz = 1 ostatniWiersz = Sheets("Arkusz1").Cells(pierwszyWiersz, 1).End(xlDown).Row 'jesli w tym samym katalogu Set plik...
Witam Mam pewien problem z makrem. Załączyłem plik zeszyt1.xls. w którym są dwa arkusze: raport i temp. Zabawa polega na tym, że chcę z arkusza TEMP przekopiować dane do arkusza raport wg konkretnego nadawcy. Zrobiłem makro które to kopije poszczególne komórki tylko w wierszach z wybranym nadawcą ale nadawcę muszę zdefiniować ręcznie w kodzie makra,(np....
Witam, sprawa zapewne jest prosta,ale nie wiem jak ją ominąć lub zdefiniować. Mam schemat otwierania pliku i on działa , lecz potrzebuję zrobić zabezpieczenie takie, aby nazwa pliku otwieranego była sprawdzana. Plik ma na na przykład nazwę KWS 13-01-2012.xlsx ( gdzie data może być zmienna np. KWS 14-01-2013, KWS 31-01-2013 itp itd natomiast początek...
Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik zapisywał się pod nazwa z komórki P18. Po kliknięci...
W nich sa zapisane wartosciami 3 kolumny: A B C jak widac czescia wspolna jest: Kod: Workbooks.Open Filename:="D:\NIPY\STRONA\XLSX\a.xlsx" Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlUp)).Select Selection.Copy Windows("Zeszyt1.xlsm").Activate...
Witam, przygotowuję makro, które kopiuje określone wiersze z wielu plików xls i zapisuje je do jednego arkusza tworząc swojego rodzaju bazę. Niestety nie jestem zbyt zaawansowana jeśli chodzi o VBA, wiec moja metoda jest dość chałupnicza:( najpierw podaję nazwę pliku Excel go otwiera ale problem polega na tym, że kopiując wartości z pliku źródłowego...
Witam, mam problem. Nie bardzo znam VBA, stąd zupełnie nie wiem jak napisać makro. Proszę więc o pomoc kogoś, komu to nie sprawi większego problemu... W pracy codziennie porównuję dwa pliki wyeksportowane z różnych systemów. Oba pliki mają gdzieś ok 1500 wierszy danych (w załączniku wersje skrócone do 8-9wierszy) i jedną wspólną rzecz która mnie interesuje,...
makro kopiujące makro kopiujące arkusz makro kopiujące wiersz
schemat instalacji elektrycznej simson zwiekszyc natezenie attribute interrupt
Czerwona dioda zmienia się na zieloną i miga - przyczyny Dahua IPC-HFW1230S – czy kamera ma slot na kartę microSD? Modele S4/S5, obsługa SD
