[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
Użyj WYSZUKAJ.PIONOWO()
.. Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza... [syntax=vb] Sheets("Arkusz1").Select Range("G20").Select Selection.Copy Sheets("Arkusz2").Select Range("G20").Select ActiveSheet.Paste[/syntax]
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
Nowy kod był niedokładnie przepisany, zostały 2 linie ze starego kodu, które należało usunąć. Poza tym została zmieniona struktura logiczna kodu. [syntax=vbscript]Else If[/syntax]to nie jest to samo co [syntax=vbscript]ElseIf[/syntax] Poprawiłem pierwszy blok, tak jak pisałeś, dalej już nie sprawdzałem. Myślę, że to powtarzanie kodu w tej formie jest...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
"Zabawa" ciągami się kłania.
Spróbuj z "=" w FormulaLocal nie tu: YTD(i,j) = TemplateYTD.Cells(i,j) a tutaj cCellYTD.FormulaR1C1Local = "=" & YTD Ale przydałby się arkusz z przykładem...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
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...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Przeczytaj w pomocy funkcje WYSZUKAJ.PIONOWO
Powinno działać.
Zobacz takie rozwiązanie.
Witam Dlaczego petla? :) [syntax=vb] m = Month(Date) Range(Cells(2, m), Cells(Cells(Rows.Count, m).End(xlUp).Row, m)).Copy Destination:=Range("N2") [/syntax]
Cześć, spróbuj takie makro [syntax=vbscript]Sub Przenies() Dim O As Worksheet: Set O = Worksheets("Obliczenia") Dim N As Worksheet: Set N = Worksheets("Nowe Dane") Dim i&, Ow&, Nw&, a$ Ow = O.Cells(Rows.Count, 1).End(xlUp).Row + 1 Nw = N.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With O .Activate .Range(Cells(Ow...
Tak. Tyle, że w zależności od poziomu zabezpieczeń może być monit lub przy wysokim poziomie może nie działać makro/makra.
Sheets("DATA ENTRY " & s)
nie mam możliwości przesłania pliku ( nie wiem dlaczego) Jak to jest .XLSM - spakuj RAR lub ZIP Dodano po 2 komórka G3 - data od, komórka G4 - data do Nie ma tam tego w komorce G4 - OPIEKUN, G3 scalona z B3 dane wprowadzone przez użytkownika ( kolumny B:M) N:U - nie trzeba?
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
U mnie działa...
Tak, no i jeszcze wiersz z imionami. Jest na sztywno. Jeśli zawsze będzie o jeden wyżej, linię: wkb.Sheets(1).Cells(wrsDst, 1) = .Cells(2, kol) zastąp: wkb.Sheets(1).Cells(wrsDst, 1) = .Cells( wrs-1 , kol)
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
Zrobiłby to w ten sposób: (dopisz formuły w szarze komorki)
Jeśli makro, następnie tak
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
Dla przykładu No właśnie dla przykładu, to przydałby się przykładowy plik. Dodano po 4 Nie pisz na PW proszę, skoro plik dotyczy tematu.
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...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Podałeś zdecydowanie za mało informacji. Jeśli Twoje dane robocze liczą ok. 10 tys. wierszy, to przykład powinien obejmować ok. 50 wierszy w reprezentatywnym układzie. Należy to pokazać w załączonym pliku wraz z oczekiwanym wynikiem. Z przykładu, który pokazałeś nie wynika m.in. 1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być...
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,...
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ć.
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...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
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)
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.....
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
mnożenie :D To zwykła matematyka. Zasadniczo przetłumacz na polski i wszystko stanie się jasne :D
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
Witam Męczę się już kolejny dzień, nie wiem co zmienić w tym kodzie aby Dane z pliku "A" w którym jest tabela z danymi (A1:M30) - wiele komórek scalonych, kolorowa i w ogóle no i dane oraz formuły. Problem w tym, że formuła kopiuje tylko do pierwszego arkusza a di tego wyskakuje komunikat "subscript out of range" a ja chciałbym kopiować do arkusza w...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Witam, jestem calkowicie ciemny jezeli chodzi o pisanie makra, i potrzebuje pomocy. Chodzi o to ze chcialbym aby makro kopiowalo zawartosc z komorki np. A1 do komorki B1 ale w okreslone miejsce np. Zawartosc komorki A1: mocne Zawartosc komorki B1: Dzis opady byly bardzo slabe Chodzi teraz o to zeby slowo "slabe" z komorki B1 zastapic automatycznie slowem...
Witam, Nieczęsto zwracam się z prośbą na forum, ponieważ wynajduję informację w innych tematach. Z dzisiejszym problemem nie mogę sobie poradzić, nie wiem nawet przy pomocy czego można to ugryźć. Polega to na tym, że mam Arkusz1, a w nim ok 10-15 kolumn, A Lp., B Zadanie (w niej stałe wartości I, II, I-II), C Nazwa, itd. Chciałbym aby na podstawie kol....
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
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ć,...
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
Witam Mam problem. Nie bardzo znam VBA, stąd zupełnie nie wiem jak napisać chyba proste makro. Proszę więc o pomoc kogoś, komu to nie sprawi większego problemu. Plik Excel ma 2 arkusze: Arkusz1 i Arkusz2. W obydwóch są takie same kolumny i podobne dane, które często porównuję. Arkusz1: - kolumna A - komórki A1:A500 zawierają ciągi 26 cyfr (komórka w...
Witam Stosując poniższą formułę po kliknięciu na przycisk kopiuj działa wszystko OK , ale tylko w wypadku gdy kopiuję z arkusza na którym znajduje się przycisk ( czyli z X1) ! Jeżeli jednak chcę kopiować z innego arkusza (w ostatniej linii wpisuję np. X5) , a przycisk znajduje się na arkuszu X1 - to niestety nie kopiuje z arkusza X5. I w tym momencie...
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
kopiowanie excel excel kopiowanie excel excel kopiowanie arkuszy
preamp mikrofonowy zasilacz elwro zamiennik makita
zmywarka wyrzuca bezpiecznik battery eeprom works
Zgrzytanie w pralce: przyczyny i rozwiązania Jak uruchomić automatyczną naprawę Windows 11?
