Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
[syntax=vbscript]Sub Petla() y = 9 For x = 7 To 400 Step 6 Sheets("Arkusz1").Cells(y, 1) = Sheets("Arkusz2").Cells(x, "J") y = y + 2 Next End Sub [/syntax]
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Przetestuj makro z załączonego pliku. Arkusze 1 - 4 to arkusze z danymi źródłowymi Arkusz5 - arkusz na wiersze wytłuszczone
A może zdradzisz w jaki sposób tworzyłeś formularz? Jeżeli przy pomocy kreatora to pola formularza są powiązane automatycznie z polami tabeli. W innym przypadku musisz najpierw powiązać formularz z tabelą a potem poszczególne pola. Makra są tu nie potrzebne.
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Cześć, Mam problem z doszlifowaniem makra, którego zadaniem jest przeniesienie wyfiltrowanych danych do jednego zbiorczego arkusza. Mam już makro, które działa bez zarzutów i zrzuca mi informacje do jednego zbiorczego pliku. Brakuje mi jednak funkcjonalności, która przy wywoływaniu komendy scal pliki w jedno, pobierze te dane, o które ją poproszę. Chodzi...
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
zamieszczać oryginalnego pliku, bo w rzeczywistości te tabele są dużo większe (ok 90 wierszy i 40 kolumn) To na pewno ci się zmieni 'step' jak i ten drugi x+ :)
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby kopiowało z pliku DANE tylko te pozycje które mają taką samą datę jak ta wcześniej wymieniona. Makro miałoby przenosić z jednego pliku do drugiego dane żeby przyspieszyć pracę i nie dublować...
[syntax=vbscript]Sub przeniesienie() Application.ScreenUpdating = False Set wb = ActiveWorkbook.Sheets("Arkusz1") Path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set Filename = Workbooks.Open(Path) For wiersz = 2 To wb.Cells(Rows.Count, 13).End(xlUp).Row sheetName = wb.Range("M" & wiersz) If sheetName <> "" Then With Filename.Worksheets(sheetName)...
Nie wiem jak dziękować! Działa! Trochę poprzerabiałam pod mój arkusz i żeby nie było przycisku kopiuj tylko makro uruchamia z automatu ale działa! Serdecznie dziękuję:) Dodano po 3 Użytkownik PRL pomógł
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
Dzięki wielkie. Makro działa. Super.
Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Ale się kolega rozpisał... ;) Jeśli dobrze zrozumiałem, chodzi o coś w rodzaju korespondencji seryjnej? Sprawdź prosty przykład z załącznika - myślę, że kod nie wymaga dodatkowych objaśnień...
Jeśli masz Excela 2010 lub nowszego to można to zrobić w Power Query bez makro
Najlepiej załącz te pliki i cały kod, który ma służyć do kopiowania. Ten kod jest w pliku "Nowy", czy jeszcze w innym pliku? Jaki jest komunikat błędu? Zakres danych nie musi być na 100 komórek, może być mniej, ale żeby charakter danych był zachowany.
Jestem już coraz bliżej :D Ustawiłem sztywny zakres i działa tak jakbym chciał czyli jak dodaję nową kolumnę to zakres przesuwa się o jeden w dół i dodaje się nowy wiersz. ws1.Range(ws1.(Cells(2, iCol - 1), ws1.(Cells(5, iCol - 1)) .Copy Cells(3, iCol) Jeśli natomiast ustawiam kopiowanie do samego dołu to tak...
A dlaczego za pomocą formuł? Nie można po prostu, po ustawieniu filtra zastosować metod kopiuj, wklej ( Ctr+C i Ctr+V), ? Jeśli nie, to ew. makro jakieś. andie
A właśnie miałem już pisać:) Kod się wysypał przy 'Arkusz5444'. Chodzi oczywiście o puste arkusze, bez żadnych danych. ' Też wydaje mi się lekka 'ściema' z tymi jest 3200 arkuszy Jak wiadomo w nowych 'excelach' ilość arkuszy jest zależna od ilości dostępnej pamięci ale nie więcej niż 1gb Co prawda (at)PRL makro stworzyło mi te 32k arkuszy (pustych)...
rafal24s -spróbowałeś to makro? Też mam podobną potrzebę, ale przede mną jeszcze nauka uruchomienia makra tak w ogóle... O kurcze udało się, Makro działa. Czy zamiast rekord.ClearContents można użyć czegoś innego, w przypadku kiedy wprowadzane dane są w jakiejś formatce -porozrzucane po arkuszu?
Witam, jestem kompletnie poczatkująca jeśli chodzi o tworzenie makr a chciałabym uprościć sobie pracę. W jednym arkuszu (Tab.2b) wpisuję dane w kolumnach odpowiednio: B- numer projektu C- numer raportu parasolowego G- wartość przekazanych refundacji H- data refundacji w drugim arkuszu (rejestr) mam inne dane dotyczące projektów wykazanych w kol.B arkuszu...
Proponuję by autor topika dodał jakiś załącznik może być bez danych (aby były jakieś przykładowe) - łatwiej wtedy pomóc. Nie każdy jest wróżką i jasno wie gdzie co jest.
adamas_nt, to co podesłałeś jest idealne :) Kwestia sformatowania tabelki to już pikuś, zrobi się to na piechotę :) Ale jeśli piszesz, że poprawiłeś jakieś "byki" to już zerkam na poprawiony załącznik :) Dodano po 7 hmmm... Tylko zauważyłem, że jeśli z Arkusz 2 skopiuję całą tabelę do Arkusz 1 i odpalę Twoje makro to gdzieś giną dane z wiersza 49 i...
Witam Z tego co ja wiem to jest z taka operacją trochę zabawy, ale przecież wszystko jest możliwe do zrobienia, pozostaje tylko kwestia czasu i pieniędzy: :roll: Zobacz Topic Simensa nr 17490711, oraz 18003417 na stronie http://www4.ad.siemens.de/-snm-013503893...
Jeżeli tekst w komórce A2 będzie inny, musisz odpowiednio zmodyfikować/wyliczyć argumenty właściwości Characters. Pierwsza liczba oznacza numer pierwszego znaku do modyfikacji, druga ile kolejnych znaków ma mieć taki sam atrybut. Dzięki. Coś jednak szwankuje w makrze, ponieważ arkusz jest cały czas przeliczany, aż po pewnym czasie zamyka mi program....
Dziękuję. Makro Pana JRV spełnia to o co mi chodzi, niestety przy zmianie samej daty od razu pojawia się ona na samym dole, gdy przypiszę do tej daty zysk pojawia się ta sama data na dole z nowym zyskiem. Założenia są takie, że nie może być dwóch takich samych dat. Więc niezależnie od zmiany zysku powinien się on zmieniać tylko w przypisanej dacie....
To tak na szybko. W tym wypadku nie wystarczy przenoszenie samych sum z tabeli do okienek (zapewne inne miejsce sum w arkuszu Dane ). Pamiętaj także o zerowaniu danych (pętle For przy inicjacji okienka i przy OK okienka) i wprowadzaniu danych do "żółtej" kolumny (też poprzez pętlę For pod przyciskiem OK okienka [jednoczesne z zerowaniem])
Witam! Potrzebuję ustawić w załączonym pliku w karcie "dostawca B" formuły lub makro w taki sposób , aby automatycznie kolejno kopiowało wartości z odpowiednich komórek w kartach T-31, następnie z T-32... T-33, T-34 i T-35 ale tylko dla wierszy w których jako producent elementów wybrany jest Dostawca B. Dodatkowo w karcie "dostawca B" nie ma wszystkich...
Dzięki za info. Spróbuję i pokarzę rezultat. Teraz klecę wcześniejsze etapy. Skończyłem 1. czyli przenoszenie danych. Teraz zaczynam 2 czyli układanie danych i usuwanie dubli, a łączenie tekstu będzie w 3 etapie Dodano po 5 Mam prośbę o krótki przykład. Nie dałem rady sam nic zdziałać. Dzięki.
Czyli dzielimy arkusz na 3 cześci 1. Zlecenie - wybrane komórki kopiują się do karty pracownika (Nr. Zlecenia,Data przyjęcia,Zlecenie,Dział,Osoba zlecającaUWAGI + 2 ukryte - chyba że będzie możliwość dodania kolumn, jeśli nie kopiują się do pracowników i je ukryjemy) 3. Grupa interwencyjna - zawiera możliwośc wyboru max 5 pracowników do jednej czynności...
Witajcie, Nie mogę sobie poradzić z następującym problemem. Mam arkusz, w którym jest lista "wolnych" klientów - nazwijmy go Klienci_Potencjalni, oraz kilka arkuszy z klientami konkretnych sprzedawców. Np Klienci_Basia, Klienci_Ania, Klienci_Janek. W arkuszu Klienci_Potencjalni sprzedawca może w pierwszej kolumnie wybrać siebie z listy rozwijalnej,...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
[syntax=vb]DoCmd.TransferSpreadsheet acExport, 8, "Tabela1", "C:\Plik.xls", True, "MojArkusz"[/syntax]
Cześć wszystkim, Jestem kompletnie zielony w tych sprawach, a chciałem zrobić makro przenoszące dane z jednego pliku (nazwa: napa) do drugiego pliku (nazwa: Raport), przykładowo dane z komórki Y przenieść do komórki N. Patrzyłem w internecie jak to robić i połowicznie mi się udało, ale rzecz w tym, że chciałbym, aby pliki dodawały się automatycznie...
Naprawdę nie chcesz pójść w tym kierunku? Zobacz w pliku - Arkusz1 komórka A2 - wybierasz użytkownika i resztę danych przenosi ci się samo. Szybko, prosto i bez makr.
Witam! Jestem tu nowa i potrzebuję pomocy bardziej zaawansowanych użytkowników, ja dopiero staram się uczyć VBA, niestety napotkałam problem jak dla mnie nie do przejścia. Próbowałam przerobić inne makro na swoje potrzeby jednak ewidentnie coś jest z nim nie tak a ja nie potrafię zdiagnozować w czym problem. Przyznam, że nie mam już siły - może znajdzie...
Patrząc na Twoje makro uważam, że bez problemu zrobi to funkcja arkusza ale tak jak pisałem wcześniej, bez przykładu z Twoim układem danych możemy sobie gdybać :(
Odwrotnie [syntax=vbnet]Sheets("I L").Range("BY2:BY101") = Sheets("Dane").Range("B3:B102").value[/s...
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
Witam kolegów i koleżanki. Zwracam z prośbą do was o pomoc, język VBA jest mi obcy. Wszystko dzieje w obrebie tego samego zeszytu o nazwie "Dane" W zeszycie "DANE", arkuszu " Baza" w kolumnie J od komórki 13 mam dwa słowa Auto i Ciągnik. Chciałbym aby w momencie jak pojawi się słowo " Auto" makro przenosiło dane do arkusza "Produkt". Arkusz "Baza" w...
W dołączonym pliku napisane jest makro przenoszące dane z arkusza "Dane" do arkuszy sklepów. Po otwarciu arkusza "Sklep x" arkusz jest czyszczony z zawartości i przepisywane są te wiersze z arkusza "Dane", które mają stany niezerowe towaru. Z rozszerzeniem kodu o kopiowanie obrazków nie powinno być problemów.
Wiele opisów dotyczących kopiowania danych w Excelu znalazłem tutaj: http://forum.idg.pl/excel-makro-do-przen...
A musisz do tego wykorzystywać makro? Nie wystaczą zwykłe funkcje excela? Przy okazji zamieść jakiś przykład z paroma danymi.
excel przenoszenie danych samsung przenoszenie danych makro przenoszenie kolumn
radio fantazja zrobić projektor laserowy vestel gaśnie podświetlenie
jaskinia głęboka jaskinia głęboka
IMU w dronie FIMI A3 - kalibracja i problemy Oporność głowicy nagrywającej – pomiar RDC i impedancji w magnetofonach kasetowych i szpulowych
