Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie Po co bawić się w "przyciski" jak można przez 'doubleclick' Kliknij dwa razy na dana cyfrę.
W pierwszy poście było napisane, że formuła miała zwracać pierwszy dzień pracujący. Zauważyłem, że źle napisałem, bo zwracała bieżący dzień. Żeby oprócz bieżącego dnia pracy, zwracała kolejny pracujący (przy założeniu, że nie ma więcej niż dwa dni wolne w kolejności), to formuła powinna być na przykład następująca. =JEŻELI(TEKST(PRZESUNIĘCIE(D...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Zgodnie z zasadami księgowości nota odsetkowa tyczy się faktur już zapłaconych, ale poza terminem. Czyli za czas spóźnienia. Może się tyczyć tych jeszcze nie opłaconych (na dzień sporządzenia noty) ale wtedy jest "kłopot" z wyliczeniem wartości odsetek za zwłokę bo dzień sporządzenia noty...
Sprobuj [syntax=vb]Sub zamowienie() Dim lista As Variant, ostWs As Long Dim kalk As Workbook Set kalk = ThisWorkbook 'Myslim ze tu ma byc wydruk lista = Array("I7", "I9", "L3", "I10", "K33", "J33", "L33") Application.ScreenUpdating = False Workbooks.Open Filename:=("D:\ZEST_ZAM.xlsx") With Sheets("ZEST_ZAM") ostWs = .Range("A" & .Rows.Count).End(xlUp).Row...
Przy założeniach że w arkusz1 dane w kolumnie A rozpocząć 3 wiersz, tabela na arkusz2 rozpoczyna się w 2 wiersze =INDEKS(Arkusz1!A:A;(WIERSZ()-2)*45+3)
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Prototyp. Chcemy aby, po wpisaniu danych w dowolną komórkę pustego skoroszytu, excel sprawdził, czy w skoroszycie pierwszym To nie jest dobry pomysł, żeby za każdą zmianą w jakiejkolwiek komórce przeszukiwać arkusz z pliku z danymi. No chyba, że plik otworzymy przy otwieraniu pliku głównego.
Takie automatyczne kopiowanie możliwe jest tylko poprzez VBA :D Proponuję wykorzystać dla arkusza 1 i 2 prywatne procedury wywoływane zdarzeniami zmian odpowiednio w kolumnie X i L. Przykładowe rozwiązanie w załączonym pliku xlsm :spoko: 864181
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Kopiowanie komórek: [syntax=vb]Sub Kopiowanie() Linia = 2 Sheets("Sheet1").Select Range("C6:H45").Select Application.CutCopyMode = False Selection.Copy Sheets("PASS").Select While Range("A" & Linia).Value <> "" Linia = Linia + 1 Wend Range("A" & Linia).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False,...
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
[syntax=vbscript]Sub ImportujMaszyny() Set r = Sheets("Arkusz1") Set i = Sheets(2) owr = r.Cells(Rows.Count, "A").End(xlUp).Row owi = r.Cells(Rows.Count, "A").End(xlUp).Row For w = 4 To owr Step 14 nr = r.Cells(w, 2) s = Application.Match(nr, i.Range("C1:C" & owi), 0) If s > 0 Then d = i.Cells(s + 1, 3) d = DateSerial(Year(d), Month(d), 1) wr = Application.Match(nr,...
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...
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...
[syntax=vb] Sub myCopy() Dim wb As Workbook, ws As Worksheet ara = Array("D3", "C7:C32", "F7:F32") Set wb = Workbooks.Open("43.01.xls") For Each sn In ThisWorkbook.Sheets ark = sn.Name If ark Like "A-*" Then Set ws = wb.Sheets(ark) For Each rng In ara sn.Range(rng).Copy ws.Range(rng) Next End If Next End Sub [/syntax]
Po tym opisie wydaje mi się, że nie potrzebne jest w ogóle makro. Prawdopodobnie dało by radę zrobić to formułami. Załącz plik z przykładowymi danymi i zobaczymy co da się zrobić.
Jak masz posortowane dane po A i B to wystarczy zrobić kolumnę pomocniczą łączącą dane z kolumny A i B A potem wykorzystać "Sumy częściowe" excela http://obrazki.elektroda.pl/9375537100_1...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
A mi się otwierają w 2016. Może masz coś nie tak z office2016? edit ------------------------------------ Na Twój problem: [syntax=vbnet]Sub Przenies() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("Arkusz1").Cells(Sheets("Arkusz1"... 1).End(xlUp).Row For x = 1 To ostatni_wiersz Sheets("Arkusz2").Cells(3 + x * 12 - 12, 2)...
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
Jeśli tak to czy mogę prosić o wzór makra? Coś ala [syntax=vbscript]Sub elka() i = 1 With Sheets("Arkusz1") For a = 2 To Sheets.Count Sheets(a).Cells(1, 1) = .Cells(i, 1) i = i + 1 Next End With End Sub[/syntax]
Chr(10) = vbLf, Chr(13) =vbCr
Makro w Twoim pliku jest b.dobrze zaszyfrowane. No, może tylko mi nie udało się odszyfrować ;) Żeby nie tracić czasu napisałem od nowa (module2). Wszystko oparłem o w/w funkcję 'Find' Zrozumiałem, że pkt2. w kolejnych miesiącach dotyczy sprawdzania poprzedniego i tak zrobiłem. Sprawdź (nie testowałem wiele), w razie czego dostosuj do własnych potrzeb....
A kopiowanie formatowania nie wystarczy? Pytanie jest bardzo nieprecyzyjne. Kiedy to kopiowanie miałoby nastąpić - na życzenie, po zaznaczeniu komórek do skopiowania, czy automatycznie - gdy zmienia się coś w komórce (to jest trudniejsze)? Poza tym, czy komórka zawiera coś oprócz tego koloru, co ma być pominięte przy kopiowaniu? Czy chodzi tylko o kolor...
Propozycje kodu kopiującego hurtem cały blok w dwóch wariantach. Pierwszy wariant - kopiowanie formuł, drugi - kopiowanie komórek. Porównywałem szybkość działania i oba są znacznie szybsze od pierwotnego, natomiast porównanie między nimi zależy od wielkości bloków. U mnie przy małych blokach komórek (ok. 10 wierszy) szybszy był wariant 1., a przy większych...
Mam już rozwiązanie: należy zaznaczyć komórki, Ctrl+G -> specjalnie -> tylko widoczne komórki: i wtedy albo kopiuj albo usuń itd.
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
To jest porównanie zmiennych, gdzie zmienna "kom" ma domyślną wartość "Value" i jest porównywana ze zmienną "MergeArea", która jest na tyle nieszczęśliwie dobrana nazewniczo, że ma tę samą nazwę co zastrzeżona w vba właściwość "MergeArea" ... :-) ... Skorzystaj nie tylko z właściwości "MergeArea", ale również z "MergeCells", która zwraca info o tym,...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Męczę się z tym już tydzień, pomóżcie : Pokaż co przez ten tydzień wymęczyłeś :)
Na tej liście w Arkuszu1 brakuje komórki z kolumny E. Mam nadzieję, że to nie przeoczenie. Ponieważ łatwiej jest kopiować po kolei, więc wykonuję to jedno dodatkowe kopiowanie w pętli, a później nadpisuję skopiowaną wartość. A tak w ogóle to powinien być Twój załącznik! Proponuję taki kod (też uruchamiany dwuklikiem w wierszu, z którego chcemy kopiować):...
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
[syntax=vbnet]Sub Bazy() On Error Resume Next Dim a As Worksheet, b As Worksheet Set a = Sheets("Baza danych A") Set b = Sheets("Baza danych B") a.Select owa = Cells(Rows.Count, "B").End(xlUp).Row owb = b.Cells(Rows.Count, "C").End(xlUp).Row For x = 5 To owa w = "" w = Application.Match(Cells(x, 2), b.Range("C5:C" & owb), 0) + 4 If w > 0 Then Cells(x,...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
Witaj Sub ddd() Dim OstW As Long Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("Arkusz1") OstW = .Cells(Rows.Count, "F").End(xlUp).Row For Each kom In .Range("F4:F" & OstW) If kom.Value = "tak" Then Range("B" & kom.Row).Copy...
[syntax=vbscript]Sub PobierzDane() k = "b2,b82,c41,e75" kk = Split(k, ",") Set a = ActiveSheet Plik = Application.GetOpenFilename(FileFilter:=... Excela (*.xlsx),*.xlsx", Title:="Wybierz plik...") Set w = Workbooks.Open(Plik) Set b = w.Sheets(1) u = UBound(kk) For x = 0 To u a.Range(kk(x)) = b.Range(kk(x)) Next w.Close False Set a = Nothing Set b...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
przesyłam przykładowe pliki Widzę, że bez VBA sobie doskonale poradziłeś :please: kopiując precyzyjnie puste komórki dane1.xlsx do dane2.xlsx :D
Witam. Jestem bardzo początkujący i mam problem z arkuszem kalkulacyjnym. Potrzebuje zrobić arkusz który przeszuka kolumne A zakladki "DATA" (a1 do nawet 1 000 000 Excel 2010) i jeżeli napotka w jakiejś komórce taka linie: ** Load warning: oldest item is 00:17:52.5636737, older than 15 minutes to skopiuje ją do drugiej zakładki tego arkusza np: "READY"....
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Może takie rozwiązanie Ci będzie pasować: [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 5 Then w = Target.Row nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A" & w & ":D" & w).Copy Destination:=Sheets("Arkusz2").Range("A" & nw) Range("A" & w & ":D" & w).Clear Cancel...
Wystarczy podpiąć poniższe makro :) Sub Kopiowanie() ' ' Kopiowanie Makro ' Makro am 18.12.2009 von xbaj aufgezeichnet ' Dim i As Long, wiersz As Long wiersz = 1 For i = 2 To Worksheets.Count Worksheets(i).Activate Range("M25").Select Selection.Copy Worksheets(1).Activate Range("A" & wiersz).Select...
Witam, Może tak:
Wpisz sobie formuły wyszukiwania (WYSZUKAJ.PIONOWO) w arkuszu 2, następnie skopiuj go do nowego pliku. Ewentualna zmiana będzie dotyczyć jedynie Nr kolumny (trzeci argument funkcji WYSZUKAJ.PIONOWO).
Gdzie należy umieścić dane następujących arkuszow i plików? Windows("plik2.xls").Activate plik 2 .xls to literowka?
W dalszym ciągu nie jest do końca czytelne, bo nie widzę jeszcze powodu, by nie można było zastosować zwykłego kopiowania. Ale zakładając, że droga od danej do wyniku jest wieloetapowa i nie da się jej zapisać w jednej linijce arkusza, to istnieje jeszcze procedura, zwana Tabela danych , która działa właśnie w ten sposób, że podstawia kolejne wartości...
Sorry, nie mogę się powstrzymać :please: a czym się różnią usługi nr 4, że różnicujesz VAT :D jedna z materiałem własnym, a druga z powierzonym :?: :D Różnią się... Jak napisałem to jest arkusz czysto symboliczny i przykładowy. Rzeczywisty cennik dotyczyć ma usług związanych z elektryką. Tu natomiast zainstalowanie głupiego gniazda/kontaktu zależnie...
Bez załącznika i możliwości przetestowania kodu, to jest błądzenie po omacku. W Twoim kodzie nie wiadomo, co oznaczają: [syntax=vbscript]cCellYTD, measures[/syntax]Nie wiadomo, który arkusz jest aktywny w momencie wykonywania kodu. Oznaczenie YTD, jeśli ma być użyte jak zaproponowałem, musi być pojedynczym tekstem formuły, a nie tablicą. W tej formule,...
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
:) Nic nie zaznaczaj, przeczytałem po ludzkiemu kod makra. Jeżeli w tym arkuszu w którym masz przycisk w komórce A1 wpiszesz nazwę arkusza np: X5 To twój kod z moją pierwszą linią Sheets(ActiveSheet.Range("A1") .Value ).Select Range("D6:H10").Select Selection.Copy Sheets("X2").Select ActiveSheet.Cells(6, 4).Select ActiveSheet.Paste Sheets("X1").Select...
Sprobuj np. od E19 do góry E19 =JEŻELI(CZY.LICZBA(A19);E20;A19)
Działa! dziękuję!
Nie do końca rozumiem. Możesz wrzucić plik ?
Spróbuj z dodatkowym zaznaczeniem jednej z opcji Formuły/Wartości i formaty liczb. Uwaga: ilość komórek musi być identyczna (tzn. komórki scalone liczy się jako jedna)
Jasne, że tak można tylko nie bardzo wiem jak to potem wszystko powiązać. Gdybym np wpisywała w każdej zakładce dla każdego pojazdu datę tankowania itd to jak to zrobić żeby excel automatycznie przenosił to do zakładki "dystrybutor" - zużycie paliwa (wtedy niepotrzebny by był arkusz "razem dział"). W ogóle to muszę zrobić tak, że zakup paliwa musi schodzić...
witam, chodzi o kopiowanie tylko i wyłącznie komórek, w których wartość jest większa od 0. w tym konkretnym przykładzie np. w kolumnie wtorek mają być tylko skopiowane komórki d6 i d10, natomiast z wartością 0 (komórka D7) i puste ( komórki d8, d9, d11 i d12) nie mają być kopiowane.
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
ups... niebardzo wiem nigdy zadnego makra nie robilem...a takeze akcess to coś nowego także może cos bliżej????
Wartość komórki C15 powinna trafić do wiersza 1, natomiast wartość komórki C16 do wiersza 2. Jeśli komórka C15 jest pusta, wtedy w wierszu 1 powinno zostać puste miejsce, natomiast w kodzie, który zamieściłam następuje przesunięcie i C16 trafia do 1 wiersza.
No, ale tak zaprogramowałeś (polecenie GoTo) ;) Powinno być (schemat) wewnątrz pętli -wyłączenie obsługi błędów (on error resume next) - przy każdym kroku -wyszukiwanie -sprawdzenie stanu i warunkowe kopiowanie (If err=0 then ... ) Włączenie za pętlą (On error goto 0) lub (książkowo) [syntax=vb]Sub Porownaj() Sheets("Arkusz2").Select ow = Cells(Rows.Count,...
Po pierwsze należy się zapoznać z procesorem, na który ma być pisany program. Szczególną uwagę należy zwrócić na rejestry i organizację pamięci. Dopiero później można pisać program. Podejrzewam, że dowolna książka traktująca o 8051 zaczyna się zwykle od takich informacji. W moim przypadku sprawdziła się np. "Podstawy programowania mikrokontrolera 8051",...
W instrukcji obsługi ww. jest napisane, że połączenie USB umożliwia jedynie kopiowanie zawartości pamięci z aparatu do PC (transfer jednokierunkowy), czyli: aparat -> PC, a nie aparat <-> PC. Kasowanie lub przesył zdjęć z PC do aparatu jest niemożliwy - i to przynajmniej z paru powodów. Kolega nieco błędnie zakłada, że karta umieszczona w aparacie...
Może zamieść ten arkusz z przykładowymi danymi. Popatrzymy. Rozumiem, że chodzi ci o makro, które zrobi w trzecim arkuszu listę produktów (tylko unikalne nazwy, bez ilości) na konkretny dzień na podstawie dwóch pierwszych arkuszy? Jak wskazujemy dzień, wystarczy stać w odpowiedniej kolumnie?
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
Formuła w kolumnie A =JEŻELI(D1=0;"";D1) Resztę wierszy przeciągnij w dół lub =D1 jeśli nie będzie pustych komórek w kolumnie D
Witam Mam pewien problem w arkuszu "Dane" wpisuję sobie w H3 date czyli np. "2012-04-01" w arkuszu "Sheet2" tworzy mi się kartka z kalendarza w której mam zaznaczone przeglądy maszyn w miesiącu KWIECIEŃ 2012 (np 2t = co dwa tygodnie, albo 3m = co 3 miesiące) Jeżeli teraz zmieniam datę na maj czyli "2012-05-01" to komórki w których miałem wpisane dni...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Przestało mi działać kopiowanie komórek w arkuszu. Zaznaczam komórki, ctrl-c i nie pokazuje się obwódka. Po ctrl-v kopiuje się zawartość komórek bez formuł. Zaznaczam ponownie komórki, ctrl-c i dopiero za drugim razem jest obwódka. O co chodzi? I jak się pozbyć tej uciążliwości?
Jesli tak: [syntax=vb]Arkusz1.Cells(w, kol).Copy Arkusz21.Cells(poz, kol_doc)[/syntax] Ponadto czy istnieje Arkusz21 ? Nie nazwa wkladki, tylko kodowa nazwa(widoczna w edytorze VBA)
Temat "wisi" bez odpowiedzi, więc pozwolę sobie wtrącić trzy grosze. Zostaw sobie jeden arkusz niewypełniony (tak, jak masz 'Arkusz1' w tym momencie) i kopiuj go sobie w potrzebie (ppm na zakładce > 'Przenieś lub kopiuj' z menu kontekstowego). Wstawianie daty do komórki skrótem Ctrl+: trwa chwilę. Jeśli robisz to dla kogoś, nagraj w/w czynności rejestratorem...
Witam W prosty sposób to chyba będzie tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then temp = Cells(wiersz, 10).Value Cells(wiersz, 15) = temp wiersz = wiersz + 1 Else wiersz = wiersz + 1 End If Loop End Sub
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
A rzeczywiście. Już poprawiam...
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Wydaje mi się, że najzwyklejsze WYSZUKAJ.PIONOWO powinno rozwiązać problem...
Wychodzi dokładnie to samo, tzn. przy odjęciu jednego wiersza działa, inaczej nie. Dzisiaj zmieniłem adresy komórek i o dziwo działa :D Dziwne, ale skuteczne :D Chciałbym jeszcze ażeby przy wpisywaniu komentarza excel pomijał puste komórki i wpisywał następną niepustą. Da radę? POZDRO I DZIĘKI! :)
Witam wszystkich i proszę o pomoc ... Opis: przygotowuję skierowanie na badania. W jednej z komórek przed nazwiskiem kierowanego znajduje się tekst "Pana / Panią". Chciałbym, aby działało to na zasadzie "niepotrzebne skreślić" - w zależności od płci kierowanej osoby, żeby odpowiednio skreślone zostało słowo "Pana" lub "Panią". W innym arkuszu mam listę...
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
Jak zrobić kopiowanie danych z pliku X do pliku Y Excela za pośrednictwem przycisku w pliku pomocniczym Z Excela Czyli np. X(B5) do Y(C6) ; X(D7) do Y(H5) itd w sumie kilka komórek do skopiowania. Dane kopiowanych komórek zawsze będą takie same. Pliki X i Y mogą być otwarte ale idealnie byłoby jakby z poziomu arkusza w pliku Y można było wybrać (wskazać)...
Witam Chciałbym nawiązać do rozpoczętego tematu. Potrzebowałbym dodać do kodu dodatkową funkcje taką aby kopiowanie odbywało się nie tylko do arkusza 2 ale również do arkusza 3. I najlepiej by było gdyby te dane w arkuszu 3 były zabezpieczone przed jakąkolwiek edycją. z góry dziękuję za pomoc.
JacekCz jest zatwardziałym wrogiem Excela i jak zwykle przesadza. Jasne, że lepiej jeździć mercedesem niż małym fiatem... 90 komórek to nie jest dużo dla Excela. Dużo to byłoby 10 tysięcy albo więcej. Jednak trzeba pamiętać jak działa Excel i co ma się w arkuszach poza tymi przenoszonymi komórkami. Standardowo po zapisaniu każdej kolejnej komórki Excel...
Dzięki podpowiedź. Mam jedno pytanie jak obejść błąd, że nie można wkleić scalonych komórek z wytypowanego zakresu. Niestety kopiowany szablon ma takie komórki a nie mogę się ich pozbyć Pozdrawiam
Witam. Nie wiem jak to zrobić. Próbowałem coś wymęczyć kopiowaniem potem udało mi się filtrowaniem zaawansowanym ale niestety za każdym razem trzeba było uruchamiać nowy filtr. Ja potrzebuje aby kopiowanie nastąpiło zaraz po zmianie statusu na Zaakceptowane. Kopiowanie powinno się wpisywać w kolejne wiersze aby stworzyć w zakładce Północ wszystkie wpisy...
Da się tylko że programista za bóg zapłać tego zazwyczaj tego nie robi a nikt tego nie sprawdza, chyba że skarbówka na kawę się wprasza lub ktoś plagiacik doniósł i rozpoczęto "polowanie na czarownice spod znaku Crtl+C -> Crtl+V" ]:-> w skrócie (modułowo progs opisuję): musiałbyś napisać coś co odczyta format zapisu danych w excelu następnie obsługa...
Witam wszystkich mam taki problem potrzebuje pomocy. W arkuszu1 nazwanym kreator w komórce c6 wpisuje dowolną liczbę w zakresie 10-30 . Twym samym arkuszu jest zaznaczonym obszar d6:e10 prostokąt 2kolumny na 5 wierszy. Obszar ten jest sformatowany i ma wpisane formuły. Nie potrafię napisać kodu który brał by dane z c6 i tą liczbę razy kopiowałby obszar...
Na wstępie mała uwaga. Pisanie makr z pomocą rejestratora, to katastrofa, takimi metodami nigdy nie pojmiesz VBA. A teraz krótko: 1. nazwy nadawane - definiowane, to rzecz święta w pracy z Excelem 2. skoro arkusz2 nosi nazwę "Karta" to dlaczego jej nie stosujesz w kodzie tylko pakujesz "Arkusz2" 3. nie bardzo rozumiem do czego jest Ci potrzebne kopiowanie...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
W załączniku.
makro kopiowanie komórek kopiowanie komórek scalonych kopiowanie komórek excel
silniki kowal audio światłowód panel corel
laptop dziwne zawieszenia laptop dziwne zawieszenia
Oznaczenie 560 na rezystorze SMD i przewlekanym – 56 Ω czy 560 Ω? Rozszyfrowanie kodu Nivona 573: Komunikat "dolej wodę" przy pełnym zbiorniku
