Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
Poprawiony Twój kod (używając jednej zmiennej 'ow');): [syntax=vbscript]Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\imie.nazwisko\Desktop\WYSYŁKA MASOWA\Lista.csv",...
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...
Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony I gdzie to makro?
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
Przyznam się, że dopiero się uczę programować, ale jakbyś mi pokazał jak to zrobić dla tych trzech kolumn, to pewnie bym już sobie poradził dla większej ich liczby. Kolega mnie już uprzedził :)
Krótkie makro w exelu wystarczy aby te liczby wrzucić do kolejnych wierszy.
To wtedy raczej dla xlsm, bo xls ma ograniczenie do 255 kolumn... Tu masz makro które możesz sobie dostosować zmieniając tylko parametr ilości liczb (kolumn).
Witaj, zadanie proste do zrobienia, poniżej masz podpowiedź, skoro zaczynasz z VBA to idea wystarczy żebyś sam napisał działające makro, [syntax=vbnet] Dim licznikstatus1 as integer =0 For i =0 to liczba wierszy If wiersz(i). Komorka(a) ="status1" then Licznik status1=licznikstatus1+1 Next Arkusz(x). Komórka(6:a)=licznikstatus1 [/syntax]
chciałbym, żeby jeszcze makro sprawdzało, że jeśli liczba lp jest 3 a w Arkuszu2 jest pozycja 4 to, żeby usunął wiersze powiązane.
DZieki bardzo :) widac juz swiatelko w tunelu :) Teraz pytanie mam jak dopisze w tej kolumnie kilka wierszy z liczbami i uruchomie makro, to jak je potem wylaczyc zeby znow cos dopisac? bo widze ze po uruchomieniu jak dopisuje kolejne wiersze to wszystko idzie na czerwono....
Na obrazku efekt działania makra. Dane wejściowe z załącznika. Sprawdź, czy o to Ci chodzi (liczby w kolumnach D i F są sumowane). http://obrazki.elektroda.net/17_12597370...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Makro działa.. Dziękuję
Witam aby w kolumnie D dodało ilość danego produktu do istniejącej już liczby nawet, jeśli inny kolor i kod2? aby wpisało do kolumny b i c (arkusza 1) wartości z odpowiedniego wiersza z arkusza 2 tak samo?
Przeniosłem komórki a10 i a11 do a131 i a132, stąd ta zmiana. Formułę skopiowałem z docelowego skoroszytu i umknęło mi to, że a10 i a11 z przykładowego skoroszytu przesunąłem do a131 i a132. Arkusz2 jest wykorzystywany do obliczania liczby przy znaczniku WB na podstawie danych w kolumnie Z w plik.xlsx. Sprawdzana jest obecność ciągu WB i jeśli taki...
Ale przecież policzyć można formułą, a podkreślić formatowaniem warunkowym... Koniecznie musi być makro?
Podałem Ci tylko przykład na liczbach. Chodzi o to, że jeśli najpierw pogrupujesz wiersze a w następnej kolejności posortujesz, to grupowanie wierszy się nie zmieni bez względu na wynik sortowania. W trakcie wybierania nazwisk do grupy licz wiersze do pogrupowania i po umieszczeniu nazwisk grupy w arkuszu, uruchom grupowanie wg. licznika wierszy. Ad....
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Jeszcze jedno pytanko Wszystko działa tak jak trzeba tylko czy jest możliwoć żeby po znalezieniu takich przypadków kopiowany był cały wiersz?
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
Problem w tym, że ja bardzo dużo pracuję z tymi danymi i staram się jak najbardziej ograniczyć czas potrzebny do ich sciągania. Nie zawsze układ jest taki sam np zmienia się liczba krajów, liczba lat. Gdybym miało jedno makro do tego mogłabym je sobie odpowiednio modyfikować. Głównie chodzi mi o to żeby automatycznie zliczyć liczbę wierszy (krajów),...
Witam, potrzebuję makro do excela które rozwiąże taki problem. Scali komórki z tekstem bądź liczbami z różnym odstępem wierszy. https://obrazki.elektroda.pl/2525747400_...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Działa i to super. Pytanie mam inne teraz, czy da się to tak zmodyfikować, aby to działało tylko wtedy jeżeli w kolumnie są jakieś dane, a jeżeli nie, to nic nie robi. I jeżeli po wstawieniu już wiersza to w przypadku ponownego użycia makra omija już wstawione makra i nic nie robi, a tylko wtedy jeżeli nie ma odstępu pomiędzy liczbami, jeżeli one się...
Tak na szybko, sprawdź czy o to chodziło. Skoro piszesz, że to przykład to nie dodałem warunków zabezpieczających makro przed błędem. np po wpisaniu litery zamiast liczby do B8 Jak pisał "paweliw" to dość niewygodny sposób dodawania danych do arkusza.
Cześć, mam krótkie makro. W innym pliku mi działa, w tym nie. [syntax=text] Sub ukrycie_pustych() Dim Liczba As Long Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(0, 2).Range("A1").Select Liczba = Selection.Value 'nadanie wartości zmiennej, która będzie teraz liczbą ostatniego wiersza ' tu nie działa For i = 3 To Liczba Step 1 If...
Dzień dobry, Czy uda się stworzyć w excellu takie makro, które wylosuje bez powtórzeń określoną liczbę wierszy (z komórki O17) z bazy danych i wrzuci je do arkusza nazwanego PRÓBA? Chciałabym, żeby losowanie oparte było na funkcji MUS, czyli losowało wiersze, których wartość przekracza dany próg, wpisany w komórkę B11, ale jeśli takich wartości jest...
Działa super. Kiedyś w makro używałem właśnie liczby jako, oznaczeń kolumn, ale teraz zapomniałem że można z tego skorzystać. I zastanawiało mnie jak liczyć kolumny, gdyby to były wiersze to byłoby łatwiej, bo są to liczby. Dzięki za pomoc.
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Racje, może nie do końca jasno opisałem o co mi chodzi. -------| A | B | C 1 2------- 5 3--------2 4--------3 ... ... 1000 ---7 Mam Arkusz w którym tabela zajmuje dla przykładu 1000 wierszy (nie uzupełniam kolumny B, C itd. ponieważ do opisu nie jest mi to potrzebne). Chciałbym, aby makro podliczało mi liczbę wierszy w których znajdują się jakiekolwiek...
Witam, mam problem z sortowaniem liczb w wierszu, do których przypisana jest formuła LOS(). Próbowalem nagrać makro, ale nie rozwiazało to mojego problemu. Trochę jestem za "cienki w uszach" w te klocki. Szukam takiego rozwiązania (formuła/makro) , które umozliwi za każdym razem automatyczne sortowanie liczb w wierszu. Proszę o pomoc.
Witam A wrzuć te makro co zapisuje cie do pdf-a
Witam wszystkich serdecznie. Bardzo potrzebuję pomocy. Wszystko opisane jest w załączonym pliku. Opisywanie tego na sucho, bez wglądu w plik, raczej nie będzie zrozumiałe, więc napiszę możliwie prosto: W kolumnie "l.p" wprowadzona jest liczba porządkowa produktu, a w kolumnie "ilość" liczba produktów tego samego typu. Makro kopiuje dane z wierszy (jeden...
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
Dziękuję za szybką pomoc! W kolumnie O znajdują się liczby (dodatnie, ujemne, czasem 0), a dokładnie liczba dni opóźnienia np. coś miało być zrobione do 10.07, dziś jest 18.07, więc kolumna O pokaże liczbę -8. Ale pojawiają się też puste wiersze = puste komórki w kolumnie O. Przetestuję przesłane przez Was funkcje :)
Nie ma takiej funkcji. Musisz zastosować makro np takie: Sub dodaj() a = 1 'pierwszy wiersz /zmien na 2 jesli od 2 wiersza itd 'liczy ile wierszy w kolumnie b = ActiveSheet.UsedRange.Rows.Count For wiersz = a To b suma = Cells(wiersz, 1) + Cells(wiersz, 2) - Cells(wiersz, 3) Cells(wiersz, 1) = suma Next wiersz...
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()...
Witam - pierwszy mój post, wiec jakby co to przepraszam- mam prosty plik Excela z duża ilością danych, który muszę uporządkować. Generalnie 2 kolumny: pierwsza to produkt, druga to kod do niego przypisany. Produkty się powtarzają z innym kodem. Chodzi mi o to, żeby użyć makro do uporządkowania - aby w pierwszej kolumnie pozostały produkty bez duplikatów,...
automatycznie skopiowały się poniżej tabelki To spróbuj wykorzystać makro powiel() (uruchamiane skrótem ctrl+p ) :idea: :D z załączonego pliku. Dla pewności działania konieczne jest formatowanie ilości (Qty) jako liczby, a nie jako tekst :cry: (jak w Twoim przykładzie) :!: 1026922 1026916
Witam wszystkich, jestem na początku zabawy z VBA i potrzebuję napisać makro w exelu takie że: - w arkuszu 1 w a1 wpisuję licznę, - w a2 ciąg znaków -w a3 liczbę -w a4 liczbę - w a5 liczbę i żeby w arkuszu 2 w wierszu 1 w komurkach od 1 do 20 są liczby w w wierszu 2 są ciągi znaków w a3 są liczby, w kolumnie 1 są liczby od 1 do 30, i żeby makro przyrównało...
Wszystko powinno być dobrze jeżeli pozbędziesz się kropki przy liczbach (a przynajmnierj przy ostatniej - największej). Innymi słowy jeżeli w pozycji Lp będą liczby jako liczby "moje" makro wstawiając kolejną pozycję będzie powiększać maksymalna liczbę Lp o jeden i wpisywać ją w pierwszej komórce wklejanego wiersza. (W kodzie makra za to odpowiada zmienna...
Cześć wszystkim. Przygotowuję plik excel pod korespondencję seryjną, a dokładniej pod druk etykiet. Rzecz w tym że ilość etykiet jest różna, stąd i niektóre dane są powielane. Próbuję stworzyć makro kopiujące komórki A, B, C, F w każdym z wierszy, tyle razy jaka jest liczba w komórce H. Np. w H1 = 2 to pobiera dane z komórek A1, B1, C1, F1 i wkleja...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
Witam Potrzebuje aby makro, ktore kopiuje mi wiersze pokazywało mi ostrzeżenie jeżeli liczba wierszy kopiowanych jest mniejsza niz 24 Chyba wiem jak uzyskać liczbę wierszy ale nie wiem jak zrobić aby msgbox pokazywał sie tylko przy warunku ostatni wiersz jest różny od liczby 24 a jeśli jest spełniony to ma lecieć dalej ostatniwiersz = ActiveSheet.UsedRange.Rows.Count...
Hmm, chcesz rozdzielić wynik formuły na liczbę całkowitą i ułamkową a następnie znaleźć Nr wierszy i kolumn składników w tabeli? Jeśli tak, to formułami chyba nie bardzo. Każda potrzebuje wskazania kolumny, wiersza lub wektora wynikowego. Pozostaje makro...
albo jeszcze lepiej żeby zapisywał tam gdzie jest plik excel Przedstawiony kod działa dokładnie w ten sposób, że w tym samym folderze gdzie jest plik "Test.xlsm" tworzy kopię "Test.pdf". W załączonym przez Ciebie pliku Kamila widać, że nie użyty był ani proponowany kod VBA, a w wykorzystywanym arkuszu excela źle ustawione były "ustawienia strony" do...
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...
tak wynik zostanie w tej samej komórce tylko do wyższych wierszy dopisze wiecej liczb i wynik będzie sie codziennie zmieniać
Tak prawie. Nie musi zliczać wierszy i podawać liczby porządkowej kolejno, a skopiowane tablice powinny być wklejone jako wartości.
Cześć, Jestem tutaj pierwszy raz i będę wdzięczny za pomoc. Mój problem polega na tym, że szukam marka, które zrobi tak: 1. W arkuszu 2 mam komórkę w której będę wpisywał wartość odpowiadającą liczbą w arkuszu 1, kolumna A. Obok komórki będzie przycisk do makra. 2. Po wpisaniu liczby, makro musi pobrać dane odpowiadajace poszczególnym komórką z wiersza...
Hej, jest to mój pierwszy post na tym forum, dlatego z góry przepraszam za ewentualne błędy. Generalnie od niedawna uczę się pracować z VBA i obecnie staram się napisać program, który porówna dane z dwóch tabel ( liczba kolumn to zawsze od A DO AD), liczba wierszy zmienna. Chciałabym, żeby moje makro porównywało dane z tych tabel, a następnie usunęło...
To ze zadanie nie jest proste, to ja doskonale wiem. W przeciwnym razie nie zadalbym go:) Liczba wierszy i kolumn, moze byc zadeklarowana ale nie musi - wtedy makro przeszukuje kazdy wiersz (65536) i porownuje ze soba cale wiersze (256 kolumn). Tak jak mowisz mozna to uproscic, podajac pewien zakres wierszy i kolumn jednak nie jest to konieczne. Generlne...
Chyba złapałem. Moim zdaniem nie powinna to być procedura zdarzeniowa, a zwykłe makro. Jeśli chodzi o coś takiego: http://obrazki.elektroda.pl/4353087600_1... Spróbuj w ten sposób For Each kom in zakres .
Ano się używa. Spróbuj na początek z taką procedurką: [syntax=vbscript] Private Sub RunSELECT(S As String, R As Range, Optional Fn As String = "") Dim Rs As Object If Fn = "" Then Fn = ThisWorkbook.FullName With CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & Fn & ";" & "Extended Properties=""Excel...
Może w ten sposób: [syntax=vbscript]Sub Makro() Dim i As Integer Dim w As Integer Dim wiersz As Integer 'liczba wierszy do skopiowania wiersz = 15 Dim x As Integer 'liczba kopii x = 5 For w = 1 To wiersz For i = 1 To x Worksheets("Arkusz2").Cells(i + ((w - 1) * x), 1).Value = Worksheets("Arkusz1").Cells(w, 1).Value Worksheets("Arkusz2").Cells(i + ((w...
Spróbuj z InputBox'em: [syntax=vb]w = 14 ile = Int(InputBox("Ile?", "Wpisz liczbę całkowitą", 3)) If ile < 1 Then Exit Sub Application.ScreenUpdating = False Range("A16:V29").Copy For i = 1 To ile Range("A" & 16 + w).Select ActiveSheet.Paste w = w + w Next Application.CutCopyMode = False Application.ScreenUpdating = True[/syntax]
Można również użyć formuły tablicowej jak w załączonym przykładzie. Zakresy w formule należy dopasować do wielkości danych. Liczba 100 w formule musi być większa od liczby wierszy danych. Plik należy zapisać w formacie .xlsx i uruchamiać w Excelu >= 2007. Powodzenia.
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
Witaj [syntax=vbscript]Sub wypelnienie() Dim ow As Long ow = Cells(Rows.Count, "J").End(xlUp).Row Range("L2:W2").AutoFill Destination:=Range("L2:W" & ow), Type:=xlFillDefault End Sub [/syntax]
Powinno pomóc: Niestety nie pomaga. Komunikat pojawia się wtedy, gdy makro pobiera dane z pliku w którym jest trochę większa liczba wierszy. Nie wiem dokładnie jaka jest ta granica (załóżmy że 5 wierszy), ale jeśli plik zawiera jeden, dwa, lub trzy wiersze, wtedy komunikat się nie pojawia. Zawartość schowka to wszystkie dane z pliku z którego makro...
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
Nie uwgzlędnia słów "liczba" i "tekst" przez co jest przesunięcie. Poza tym jak wyczyszczę arkusz efekt końcowy i odpalam makro to generują się tylko dwa pierwsze wiersze
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
Proszę o przykład w pliku, bo to co Pan pisze nie jest do końca jasne. Podejrzewam, że kody są raz sformatowane jako tekst, a innym razem jako liczby. Nie pisze Pan jaką postać mają te kody towarów.
Co do zasad pisania kodu Jak już deklarujesz zmienne to powinieneś deklarować wszystkie. Zapomniałeś o zmiennej "mnoznik" i chyba błąd w nazwie zmiennej lastcell x Jeżeli potrzebujesz liczby całkowitej skorzystaj z operatora "\" a nie "/" lub z Fix(liczba) Czyli mnoznik = lastcell \ 10 + 1 lub mnoznik=Fix(lastcell / 10 + 1) Co do pętli niby założyłeś...
Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...
Ze względu na "zaszumione" dane zrobienie formuły jest dosyć dużym wyzwaniem, ale można kombinować z makro: [syntax=vbnet]Function Wyjmij(r As Range, n As Integer) As String Const minLen = 5 Wyjmij = "" Dim x, tmp, tmp2 As String Dim v, cn, cg As Integer tmp = "" For Each x In r tmp = tmp & x tmp = tmp & "%" Next x tmp2 = "" cn = 0 cg = 0 For...
Opis danych i oczekiwanego wyniku jest niewystarczający. Piszesz "jak to zrobić formułą?" a odwołujesz się do przykładu, gdzie było to zrobione makrem. Więc nie wiadomo, czy sortowanie ma być w miejscu (bez zachowania wersji źródłowej) - wtedy makrem, czy wyniki w innym miejscu, wtedy formułami. Nie wiadomo, czy ta tabela ma stałe rozmiary - w tym przypadku...
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
Można tak, jak niedawno zasugerował kolega Maciej: Wpisz w dowolną komórkę liczbę 160, skopiuj ją do schowka (ctrl+c), zaznacz zakres, wklej specjalnie (ctrl+alt+v) > dodaj Oczywiście, żeby to zadziałało musisz mieć w komórkach liczby (nie tekst), a zakres sformatować niestandardowo (typ "0000")
Bardzo rozwlekle to napisałeś, a sprawa sprowadza się chyba do prostej pętli. Do kopiowania wartości nie należy używać Copy-Paste, tylko zwykłe przypisanie. Przypuszczam, że chodzi o taki kod: [syntax=vbscript]Sub Makro1() Dim n As Long For n = 4 To 8 Range("C16:C19").Value = Range(Cells(16, n), Cells(19, n)).Value Application.Run "'koszt.xls'!Makro2"...
Hej dziękuję za pomoc! :) Spróbuję każdą z podanych przez was opcji! Zresztą coś podejrzewałem że pewno da się to zrobić w 3-4 linijkach no ale to jeszcze nie poziom jak na 3 dzień nauki :) Próbowałem nagrać to makro tak jak mówiłeś Adamas jednak przy zmianie liczby wierszy pomimo użycia ctrl+strzałka przy nagraniu rozciągało "1" na złą ilość wierszy..coś...
Cześć, Potrzebuję pomocy w napisaniu makra w VBA. Plik A posiada 40 kolumn (liczba wierszy jest zmienna, od 1 do 10 000), niestety ich ustawienie jest zmienne w zależności między innymi od dnia, nie zmieniają się nagłówki, chciałbym do pliku B kopiować całe kolumny w zależności od ich nagłówka (zawsze pierwsza komórka w kolumnie).
Witam. Mój problem wygląda następująco: Dostaje plik excela w którym są dane z kilku plików pdf. Dane wyglądają następująco: Nagłówek - kilka linijek Dane - tabela numerowana od 1 do różnie czasem do 100 czasem ponad 1000 pozycji. Stopka - kilka linijek Nagłówek itd. Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę, natomiast...
Witaj, przepraszam za wielkość pliku z filmikiem :) Korzystałem z drugiego komputera gdzie nie było programu do nagrywania pulpitu. Nie spojrzałem na kompresję i ustawienia jakości. Po zmianach w kodzie makro działa. Sprawdzę później czy działa na plikach z większą ilością danych. Makro działa ale do ograniczonej liczby danych. Przy 119 tysiącach wierszy...
Hejka Mam następujący problem do rozwiązania : Potrzebuję pomocy w stworzeniu makra które będzie zaznaczało 10% występujących wierszy z arkusza, który został już wcześniej pofiltrowany i następnie te pozycje zakoloruje na jakiś kolor. Makro więc po kolei musi : określić ile wierszy występuje w arkuszu, obliczyć z tej liczby 10%, zaznaczyć te 10% wierszy...
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
Witam serdecznie, mam napisane makro, które sumuje mi unikatowe wartości z kolumny w "Arkusz1" o nieskończonej liczbie wierszy i pokazuje je w arkuszu "Suma" w kolumnie C. W kolumnie D są natomiast wartości do porównania z kolumną C. Jeśli wartości wierszy z kolumn C i D są różne to odpowiednia komórka w kolumnie C ma pojawić się na czerwono. Nie wiem...
WItam Jestem początkującym użytkowniiem VBA i potrzebuje pomocy a właściwe napisania makra. Pierwszy arkusz wygląa tak jak na obrazku i nazywa sie KON przy czym liczba wierszy jest dowolna. W kolumnie A są symbole złożone z liczb i cyfr w B tylko cyfry. Makro miałoby tworzyć kolejne arkusze o nazwie z kolumny A z arkusza KON, a następnie w utworzonym...
Proszę o pomoc w napisaniu poprawnie makra usuwającego puste wiersze we wszystkich arkuszach (założenie makra: usuwa wszystkie puste wiersze we wszystkich arkuszach skoroszytu;liczba arkuszy dowolna) Póki co mam tak (i niestety na tym się"zawiesiłam" :()[syntax=vb]Sub usuwanie_pustych_wierszy For i = Cells(65536, "A").End(xlUp).Row To 2 step -1 If Cells(i,...
Szukam takiego marka, które po każdym wierszu z danymi: Wstawi wiersz (zaczynając od 3 wiersza). Wartość z C3 przeniesie do C4 (konkretnie datę) Zsumuje wartości D2+D3, E2+E3, F2+F3, G2+G3, I2+I3 Liczby od D4 do I4 zamieni na wartości. Wstawi wiersz 6 Wartość z C5 przeniesie do C6 (konkretnie datę) Zsumuje wartości D4+D5, E4+E5, F4+F5, G4+G5, I4+I5...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
Witam Bardzo dziękuję za pomoc - jesteście wielcy! Makro dt1 niestety troche mi wiesza kompa przy 200 tysiącach wierszy. Ponieważ nie jestem biegły w VBA nie potrafię niestety spróbować modyfikacji.
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...
witam, potrzebuje pomocy na utworzenie makra - postaram sie dobrze wytlumaczyc tabela 1 : kolejnosci rozladunkow- ktore zmieniaja sie w trakcie pracy mamy max 10 rozladunkow na auto. 1 kolumna- klient, 2 kolumna- tempteratura, 3 kolumna- kod trasy tabela 2 : lista wszystkich klientow przewidzianych w ciagu dnia do rozladunku 1 kolumna- liczba palet:...
Witam Forumowiczów, jako, że nie znam się kompletnie na pisaniu makr w Excelu proszę o pomoc. Tworzę pewnego Excela i nie mogę przejść w nim jednego kroku i tu będzie potrzebne chyba makro, bo funkcjami Excela chyba nie można tego wykonać. A więc tak. Mam tylko jedną kolumnę, w której występują 0, po kilkunastu zerach pojawia się jedynka następnie dalej...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
Tak jak kolega powyżej pisał - wystarczy zrobić tabelę przestawną. Jeśli chodzi Ci dokładnie o taki układ jaki zamieściłaś, to tabela musi być odpowiednio sformatowana. Dodatkowo zastosowana jest opcja powtarzania elementów - ale pamiętaj, jest ona dostępna dopiero od wersji 2010. Przy okazji wprowadziłem dynamiczną definicję zakresu danych. Przy odświeżaniu...
Nie wiem, czy dobrze zrozumiałem. Filtrowane mają być tylko kolumny, czy również wiersze? Najlepiej zawsze pokazać w załączniku oczekiwany wynik. Napisałem makro zdarzeniowe ukrywające kolumny z tygodniami z wyjątkiem tej wpisanej w polu "LICZBA TYGODNIA". Makro jest umieszczone w module arkusza. Pusta komórka w polu "LICZBA TYGODNIA" odkrywa wszystkie...
Witam Objaśnię mój problem. Posiadam formularz, w którym dobudowane jest makro odnośnie comboboxa. Chodzi o to, że po jego rozwinięciu i zaznaczeniu, w polu wyświetla się tam liczba (np. 3). Następnie chciałbym, aby po wciśnięciu przycisku "Delete" na formularzu, excel znalazł mi w innym arkuszu ( w konkretnym , jakim chcę na podstawie makro) tę liczbę...
Witam. Nie znalazłem na forum podobnego problemu, więc postanowiłem założyć nowy topic. W załączniku jest plik mt940 czyli txt. Chciałbym napisać makro, które importowało by wybrane dane z tego pliku i wklejało je do Excela w wybranej kolumnie w kolejnych wierszach. Jeśli ktoś otworzy ten plik zobaczy, że początek każdego wiersza zaczyna się od symbolu...
A ja się zapytam jeszcze: Czy zawsze spacja poprzedza cyfrę? Czy mogą być kolumny pomocnicze? (Jeżeli tak da się ostatecznie funkcjami rozwiązać. Jeżeli nie to wg. mnie tylko makro) :arrow: Macieju : Dla ciekawości - jak chciałeś to rozwiązać przy 6 cyfrowej liczbie?
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
Witajcie, Moja znajomość vba jest taka sobie od razu mówię ;) czy ktoś mógłby pomoc z takim tematem. w kolumnie A mam nazwy w kolumnie B liczby. Liczby w kolumnie B będą się cyklicznie zmieniać. Chodzi o makro, które: pobierze wartość z komórki w kolumnie B np B3 = 5 i pod B5 wstawi 5 pustych wierszy. Ktoś, coś ? Z góry dziękuję za pomoc i wskazówki!...
Witam, Jestem początkujący jeśli chodzi o VBA, czy ściślej rzecz biorąc nagrywanie makr. Znalazłem na forum podobne tematy, ale nie byłem w stanie na ich bazie wywnioskować jak naprawić swój problem: Z pewnej tabeli kopiuję do nowego pliku określoną liczbę kolumn, jednak liczba wierszy jest zmienna. Po zaznaczeniu całości w nowym pliku wybieram wstawienie...
makro usuwanie wierszy makro dodawanie wierszy makro powielanie wierszy
termostat danfoss parametry telefony instrukcja obsługi software upgrade error
Wzrost oporu grzałki wodnej od 20°C do 60°C Klimatyzacja dwustrefowa: różne temperatury po stronach kierowcy i pasażera