Witam Jestem nowym użytkownikiem, jak i nowicjuszem w programowaniu VBA. Ostatnio zacząłem się coraz bardziej interesować VBA, ale jak to na początku wiele spraw mnie przerasta. A oto problem: Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
Suuuuper:) Wielkie dzięki, działa z tymi danymi:) Mam jeszcze pytanie. Ponieważ dane, które załączyłem nie są danymi rzeczywistymi trzeba by było przerobić podany przez Ciebie kod. W moim pliku rzeczywistym, którego niestety nie mogę załączyć, mam dane wypełnione w kolumnach od A do N. Kolumna A, C, D, E, F, I, J, K, L, M, N - dane nieistotne, ale konieczne...
Mam małe pytanie a właściwie problem! Chodzi o, iż mam kilka zakresów danych w osobym arkuszu "Arkusz1". Każdy z tych zakresów ma trzy kolumny. Jaki byłby kod źródłowy jeżeli chciałbym za pomocą pojedyńczych przycisków móc wybrać kilka zakresów osobno do "Arkusza2". Przykładowo wybieram zakres 1 (za pomocą przycisku) i chciałbym następnie wybrać zakres...
Dokładnie tu nie ma nic co by mogło nie zadziałać, chyba że jest to jakiś wycinek z większego kodu (jak w pierwszym poście). Możesz sprawdzać po kolei czyli zaczynając, potem od ptaszkuj rng1 sprawdź itd. [syntax=vbscript]Sub second() Dim rng1 As Variant Dim rng2 As Variant Dim box1 As Range Set box1 = Application.InputBox("Select column", , , , , ,...
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...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
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...
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
[syntax=vb]Sub copy_ujemne() For wiersz = 4 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(wiersz, 1) < 0 Then Cells(wiersz, 3) = Cells(wiersz, 1) Next End Sub [/syntax]
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
Jeśli makro, następnie tak
Witam, mam następujący problem otóż (uprzedzę, ze to jest bardzo uproszczone): 1) Co miesiąc muszę pobierać dane liczbowe ( kolumna C), z zakresu komórek spełniających warunek (kolumna A). Warunek polega na tym, że wartość w komórce zaczynającego się zakresu to Waluta PL a kończy na Razem PLN ( przy czym mam jeszcze trzy inne waluty) Waluta PLN 0 403Prenumeraty...
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...
Tzn. ? Masz kilka zakresów o różnych rozmiarach, jak na ich kopiowanie ma wpływać pusta komórka? Wklej kod z zakresów, które przyjąłeś.
Szukaj rozwiązania z poleceniem Dir , otwieraniem i zamykaniem plików w pętli Do Until . Było kilka podobnych tematów na forum. Przeszukiwanie arkuszy i kopiowanie zakresów również do znalezienia. Pisz, jeśli na czymś utkniesz...
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
Niestety nie wiem, czy za proces "przewalania" należy uważać także przepisywanie bitów w to samo miejsce, czy tylko kopiowanie ich na inne talerze w obrębie tego samego lub w ogóle innego dysku Kiedyś czytałem że dla dysków magnetycznych czas po którym dane mogły by ulec samoistnemu rozmagnesowaniu to grubo ponad 10 lat, przy założeniu że dysk przechowujemy...
Czy ktoś mógłby mi pomóc , poradzić jak się za to zabrać? Jeśli wszystko umieścisz w jednym skoroszycie, a następnie będziesz posługiwał się tylko "identyfikatorami", a nie gołymi nazwami miejscowości - to możesz rozwiązać swoje zadanie poprzez proste funkcje i dynamiczne nazwy zakresów wyszukiwania :spoko: - tak jak to widać na załączonym zrzucie...
1. W zmiennej MyPath brakuje kocowego slash'a. 2. Jeśli wszystkie arkusze, to pętla For Each arkusz w otwieranym pliku. 3. Dla zakresów docelowych musisz utworzyć licznik wierszy (inkrementacja wewnątrz pętli) Zamiast kopiować całe zakresy przez Select-Copy_Paste i wyrzucać puste w kolejnej pętli, czy nie lepiej kopiować tylko niepuste wiersze/kolumny...
To trochę zależy od ilości danych w stosunku do pojemności dysku. Przy dużej ilości danych wybór kopii posektorowej jest oczywisty, ale jeśli dysk jest prawie pusty, to właśnie kopiowanie pustych przestrzeni może okazać się zbędnym ryzykiem. Rozwiązaniem pracochłonnym i wymagającym wiedzy jest określenie zakresu zajętych sektorów i kopiowanie wyłącznie...
Moi drodzy! Potrzebuję pomocy z procedurą VBA. Ostatni etap do zakończenia projektu i poległem na działaniach z komórkami scalonymi. Opis problemu: Pętla wyszukująca komórek scalonych z odpowiednią datą i kopiująca dane z innych kolumn ale tych samych wierszy co komórka scalona. (nie wiem jak to ładnie opisać ;P) Kolumna "F" zawiera komórki scalone...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
Po długiej walce udalo mi się przekopiować znaczne obszary danych poprzez kopiowanie różnych zakresów sektorów poczynając od końca. Następnie odtworzyłem dużą liczbę plików, których typ podał mi właściciel - do tego celu użyłem program photorec_win. Poprzez to, że uszkodzona została tablica alokacji zbiorów, nazwy plików określają numer sektora, gdzie...
Echh, no nie mogę przygotować, bo tu masz formułę: SUMA.WARUNKÓW(ADR.POŚR("DATA!K" & 8+PODAJ.POZYCJĘ(W2K3;measures;0);FAŁSZ);... & shadow!WK1;FAŁSZ); WK3;DATA!K8;W4K3) a danych wystawić nie mogę. Formuły są niezależne, dostępu do danych nie mogę Ci dać bo są poufne, formuła jest jedna i ta sama wszędzie w każdej komórce. Pętle są od zera...
Może Pan użyć instrukcji With: [syntax=vb]With XlApp.Worksheets(1) .Range("Q5,R5,V5,Z5,AD5,AH5,AL5,AP5,AT5,... .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With XlApp.Workbooks("Book1").Close savechanges:=True [/syntax]
Andie, póki co makra to magia dla mnie, ale czy Twój kod działa tylko kiedy w kol. 1 są wartości takie jak sa w przykładzie, czyli 1, 2 ... itp ? Bo kiedy sprawdzam je na innej tabeli która ma już konkretne nazwy w kolumnie 1 i jest tych zakresów o wiele więcej to mi coś nie bardzo idzie...
Witam Nie mogę sobie poradzić z kopiowaniem danych do innego skoroszytu. Posiadam główny skoroszyt o nazwie " Dane" do którego pobierane są różnego rodzaju dane. Chciał bym mieć możliwość kopiowania określonych danych ze skoroszytu "Dane" do innego skoroszytu GOW. Dane muszą zostać skopiowane " specjalnie" bez formuł. Utrudnieniem będzie kopiowanie...
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Witam, Zapętliłem się do tego stopnia, że mając prostą pętlę czytającą wiersze między skoroszytami, ni w ząb nie potrafię jeszcze ugryźć jak sądzę funkcji IF - dla podanego na wstępie warunku sprawdzenia (tutaj w przykładzie "cyfry miesiąca") i przepisania wiersza jeśli ten warunek został spełniony - jeżeli nie, kod ma czytać dalej aż znajdzie i kolejny...
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...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
Punktem który ma definiować kolejne wiersze jest pusta komórka To trochę zmienia postać rzeczy, myślę że PROT rozwiązał problem globalnie :) Moją uproszczoną pętlę wystarczy zamienić na: [syntax=vbscript]For irow = 3 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value...
Witam. Tworzę teraz program do filtrowania danych na zasadzie mam duży skoroszyt z bazą (nawet do kilku tysięcy wierszy i ok 200 kolumn) z bazą, selekcjonuję je wg. kilku zakresów i wyświetlam (przekopiowuję do swojego skoroszytu) spełniające warunki i wybrane kolumny (118 kolumn jeśli dobrze naliczyłem). Prawdopodobnie po rozwiązaniu problemu będę...
W s7-200 zrobiłem sobie prosty generator liczb losowych(podprogram SBR0) oraz podprogram(SBR1) losujący kilka liczb z zakresów podanych na wejściu. W podprogramach używam tylko zmiennych lokalnych. I gdy jest jeden podprogram losujący(SBR1) w OB1 to działa poprawnie, w przypadku gdy wrzucam drugi podprogram (drugi egzemplarz SBR1 dla drugiego urządzenia)...
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...
Na przyszłość powinieneś dawać swój załącznik, najlepiej pokazujący to co już sam zrobiłeś, a czego jeszcze Ci brak. Ważny jest też układ danych. Tu go opisałeś dość dokładnie, ale zawsze łatwiej pomóc, gdy jest już jakiś punkt zaczepienia. Możesz zastosować na przykład taki kod: [syntax=vbscript]Sub Kopia() ' wyczyszczenie miejsca na wynik With Worksheets(2)...
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
No tak czytając to któryś raz z kolei można rzeczywiście przypuszczać że rozumiem to tylko na swój sposób:) Mianowicie chodzi mi o to aby efekt w kolumnie nr 2 przy danych z kolumny nr 1 wyglądał jak poniżej Formuła ma startować od ostatniej komórki w kolumnie do góry 2001-02-03 KWAST45 2001-02-04 KWAST45 2001-02-05 KWAST45 2001-02-06 KWAST45 KWAST45...
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Dzięki wielki pięknie działa. Temat do zamknięcia.
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
kopiowanie warunkowe zakresów kopiowanie wielu zakresów odczyt zakresów
przekrój przewodów uziemiających player samsung naprawa przetwornicy koszt laptop
prądnica wolnoobrotowa zlece lutowanie
Siemens Gigaset 4000 Classic – jak otworzyć obudowę słuchawki krok po kroku Sprawdzenie mechanizmu szyby bocznej lewej – diagnostyka VW, Renault, BMW, brak reakcji po wymianie przycisku