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].
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.
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ć...
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]
[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]
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...
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...
"Zabawa" ciągami się kłania.
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.
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...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
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...
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...
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)...
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...
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,...
Przeczytaj w pomocy funkcje WYSZUKAJ.PIONOWO
Powinno działać.
Zobacz takie rozwiązanie.
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...
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]
.. 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]
Użyj WYSZUKAJ.PIONOWO()
Sheets("DATA ENTRY " & s)
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....
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
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...
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?
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.
U mnie działa...
Poproś kogoś innego.
Zrobiłby to w ten sposób: (dopisz formuły w szarze komorki)
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)
Dla Twojego przykladu [syntax=vb] Sub kopie() Dim i As Long For i = 1 To 4 Sheets("Output").Shapes("Rectangle " & i).TextFrame.Characters.Caption = Sheets("Output").Range("B" & i * 7 - 3) Next End Sub [/syntax]
Dobry wieczór, Jeżeli rok wyrażony jest dwiema cyframi, interpretacja daty zależy od ustawień systemowych. Jeżeli w ustawieniach systemu operacyjnego domyślny format daty jest w kolejności rok-miesiąc-dzień, to data - czy to pobrana z internetu, czy wpisana bezpośrednio, tak zostanie zinterpretowana. Gdyby rok był zapisany czterema cyframi, komputer...
Można zwykłą pętlą For + kopiowanie komórek, np. [syntax=vb]Sub kopiowanie_danych() 'Arkusz1 to jest Worksheets("DANE") 'Arkusz2 to jest Worksheets("WARUNEK") 'Arkusz3 to jest Worksheets("DANE WYJŚCIOWE") Application.ScreenUpdating = False Dim war As String With Arkusz3 war = .Range("A1").Value If .FilterMode Then .ShowAllData .Range("C7:G" & Rows.Count).ClearContents...
chodzi mi ... tylko o nagłówek w stylach formatowania Jeśli tak to proponuję po wprowadzeniu całej treści raportu do Worda - przeprowadzić modyfikację stylów przy pomocy VBA w samym Wordzie :D Przykładowo jeśli będziesz miał wprowadzoną w treści raportu trzystopniowe numerowanie działów, rozdziałów i podrozdziałów (typu 1. ; 1.1. ; 3.1.5. ) to można...
Poprawiłem błąd.
Zeby tworzyla sie historia/baza danych rzeczy zeskanowanych danego dnia To nienajlepszy pomysł.
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
W załączniku.
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
Jeśli makro, następnie tak
Wypróbuj: [syntax=vbscript] Sub xyz() Const pathSrc As String = "C:\test1\" ' folder źródłowy Const pathDest As String = "C:\test2\" ' folder docelowy Dim StrFile$, WbkSrc As Workbook, WbkDest As Workbook StrFile = Dir(pathSrc & "*.xls") Application.ScreenUpdating = False Do While Len(StrFile) > 0 Name pathDest & StrFile As pathDest &...
Witam, Mam taki problem do rozwiązania. Musze zrobić połączenie między dwoma plikami exela, tak by wpisując nowe dane do jednego pliku uzupełniało mi dane w 2 pliku. Nie wiem czy możliwość taka jest w exelu czy po prostu powinnienem napisać program w c++, który po odpaleniu uzupełnia 2 plik exela. Wolałbym pierwsze rozwiązanie, które byłoby automatyczne....
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ć,...
witam mam problem a przyznam że makr/vba do tej pory nie używałem mam raporty które generują się codziennie, w zależności od miesiąca 30-31 raportów jeden raport składa się z 3 arkuszy, nazwy arkuszy są niezmienne, chciałbym automatycznie kopiować całą zawartość wierszy które w 2 kolumnach spełniają różne warunki. dodatkowa trudnosc jest taka ze 1 warunek...
Jak przerobic to makro, aby dane z komórek z jednego arkusza: B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 pobierało do mojego arkusza , ale w te same miejsca, czyli B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 ? [syntax=vb]Sub Otworz() Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet Application.ScreenUpdating...
Jestem początkującym użytkownikiem VBA Mam następujący problem: Chciałbym skopiować wybrane wiersze plików excela do jednego zbiorczego excela. Pliki Excel z którego chce pobierać dane mają zawsze taki sam format. Chce kopiować wszystkie niepuste wiersze które znajdują się pod stałą wartością w konkretnej komórce. Makro, które zasysa lokalizację plików...
Witam Mam pewien problem. Potrzebuje skopiować zakres danych (D3, C7:C32, F7:F32) do tych samych adresów, do innego skoroszytu, ale do arkusza o tej samej nazwie. Arkuszy jest około 100 - 150 Czy jest coś takiego możliwe?
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...
Hej, szukam rozwiązania następującego problemu: - jest sobie kilka plików Excela o tej samej strukturze w jednym katalogu. Chciałbym skopiować zawartość OTWARTYCH plików do innego, nowego pliku i go zapisać. Niestety moja znajomość VBA jest bardzo słaba, czy ktoś potrafi mi pomóc?
Witam, chciałbym zapytać czy istnieje możliwość kopiowania kolumn z takimi samymi wartościami lecz inną godziną. Wersja Excela to 2003. Poniżej przedstawiam screen shota mam nadzieję że ktoś mądrzejszy odemnie mi pomoże byłbym wdzięczny. http://obrazki.elektroda.pl/7533972600_1...
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...
Witam, Moja pierwsza prośba o pomoc. Mam bardzo stary plik Excela a w nim 1300 arkuszy i coraz częściej coś się psuje. Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( całych z danymi i funkcjami itp.). Nazwa arkusza to Nr rejestracyjny z listy. Bardzo dziękuję za jakąkolwiek pomoc w tym temacie. Zupełnie...
Witam, Czy mogłbym prosić o pomoc w stworzeniu kopi excela. Chciałbym aby drugi plik kopiował wszystkie arkusze z pliku głównego wraz z danymi i formatami. Aby stanowił lustro głównego pliku. Podejrzewam że nie da się stworzyć formuły pewnie będzie musiało to być makro. Dzięki
Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...
Witam serdecznie. Jestem nowym użytkownikiem trochę początkującym w makrach i VBA w Excelu aczkolwiek mam problem: Chciałbym napisać makro kopiujące kolumnę komórek z pominięciem pustych do NOWEGO pliku (ścieżka stała, nazwa zależna od 1 komórki w arkuszu) .xls Nawet nie wiem czy potrzebna jest pętla czy wystarczy sprytne makro. Proszę o przykład na...
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Wiem, że na ten temat opisywano już wiele razy, ale szukając po forach nie znalazłem tego czego szukam już od miesiąca. Potrzebuje kodu lub jakiejś wskazówki która pomogła by mi w tym problemie. Jestem zielony w tych sprawach , dopiero zaczynam się w to bawić, dlatego szukam pomocy na forum. Mam dwa pliki, jeden xlsm w którym znajduje się kilka zakładek,...
Witam, interesuje mnie kopiowanie duplikatów wartości z kolumny A (usunięcie tych wartości w kolumnie A) oraz przekopiowanie tylko wartości zdublowanych do kolumny E. Szczegóły w załączniku. Z góry dziękuję za pomoc.[/quote]
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, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
kopiowanie excel excel excel kopiowanie excel kopiowanie arkuszy
zasilacz lampowy wzmacniacz alarm obwodowy błędy wtryskiwaczy jumper
zmywarka wyrzuca bezpiecznik battery eeprom works
Czarny ekran w BIOS na Windows 10 - co robić? Kontrolka świec żarowych w samochodzie Diesla - przyczyny i diagnostyka
