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.
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...
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)...
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 arkusz "Indeks" do czego służy, bo w nim są formuły? Jak pisałem wcześnie w arkuszu "Indeks" wpisywane są ręcznie wszystkie kolejne usługi. Jeśli to jest stały klient (jest już w bazie) to po wpisaniu jego numeru wszystkie dane wypełnią się automatycznie. Jeśli nowy klient to zgodnie z wcześniejszą propozycją - menu - dane - formularze - i wprowadzamy...
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...
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ć):...
Męczę się z tym już tydzień, pomóżcie : Pokaż co przez ten tydzień wymęczyłeś :)
[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,...
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...
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...
kopiowanie komórek scalonych kopiowanie komórek excel kopiowanie wartości komórek
awaria ekspresu philips naprawa platformy ready samsung
diagbox lexia transformator blokowy
Nokia 8910 – jak sprawdzić PA (Power Amplifier), objawy i pomiary Netflix nie działa na Manta 55LUA123E Smart 4K UHD – brak obsługi, certyfikacja, rozwiązania
