Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
Szczytem wygody dla pomagających byłoby, gdybyś załączył arkusz z przykładem zawierającym to makro
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Rozumiem że na google masz bana? ad 1. usuwa zbędne spacje ad 2. usuwa " OR " po ostatniej wartości.
Och, aż tak skomplikowane toto nie jest ;) [syntax=vbscript]'przykład dla kopiowania w tym samym arkuszu z 1-szej do 11-tej Columns(11).ClearContents 'czyścimy dane w kolumnie docelowej Do While Cells(w, 1) <> "" temp = Split(Cells(w, 1), "||") For i = 0 To UBound(temp) If InStr(temp(i), "SAP") > 1 Then Cells(w, 11) = Cells(w, 11) & temp(i)...
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
Witam, potrzebuje napisać makro, które przeniesie wszystkie dane z wyjątkiem pierwszego wiersza do pliku CSV w tym samym katalogu. Kłopot w tym, że w niektórych komórkach mogą znajdować się średniki (;) co sprawia że obecne makro którego używam wydziela mi z takich komórek nową kolumnę w pliku CSV. Czy jest sposób by komórka zawierająca średnik nie...
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
Jest sposób, aby excel usuwał duplikaty, poza komórkami z rekordem "Użytkownik"? :cunning: :?: Wiele :please: - makro, formuły, kolumny pomocnicze, filtrowanie itd. Załącz przykładowy plik (z fikcyjnymi danymi ale z rzeczywistym układem) to będzie można coś zaproponować. :D
Zmien "Vendor" na "kod" i 0# na "0,00" - jest ok Dodano po 1 myslil ze 0,00 to oddzielna komorka
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą.
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Do tego nie jest potrzebna znajomość VBA. Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza. W momencie włączenia ochrony Excel zapyta o hasło. Trzeba sobie włączyć widoczność paska narzędzi "ochrona" Tak zgadzam się z tobą ale problem polega na tym że mam makro co usuwa filtry i nie działa.ono...
Nagrałem makro które kopiuje dana tak jak chce, lecz gdy zmienię datę (B2) to dalej wkleja do tych samych komórek a nie pod odpowiednią datę.
JRV, Twoje rozwiązanie nie zadziała, bo działa na 'wirtualnej komórce c'. Ja również na początku napisałem taki sam kod, jak Ty.:) Niech Autor doda sobie nazwę arkusza.
Witam, Mam problem z zadaniem na liczbę pozycyjną. Po usunięciu zawartości komórki ciąg zostaje przeliczony i następuje nadanie nowej numeracji. Naszym zadaniem jest taka modyfikacja formuły, aby pusta komórka znikała (czyli pozostałe komórki były podnoszone o jedną pozycję w górę). W internecie jest kilka rozwiązań, ale jest w nich wykorzystane makro,...
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
Powstały dwa programy w Excelu które obsługują magazyn
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Prosiłem o plik Excela, a nie o obrazek. Pytałem, jak to ma działać? Czy to makro ma reagować każdorazowo jak zmieni się kolor (rozumiem, że sprawdzana ma być kolumna C), czy ma być wywoływane okresowo (np. przyciskiem) i ma sprawdzać całą kolumnę pod kątem pokolorowanych duplikatów? Czy może wystąpić taka sytuacja, że jakiś wpis ma już kolor i ten...
Sub ZamienNaHiperlink() Dim komorka As Range Dim nazwaPliku As String Dim sciezka As String Set komorka = ActiveCell If IsEmpty(komorka.Value) Then MsgBox "Aktywna komórka jest pusta.", vbExclamation Exit Sub End If nazwaPliku = Trim(CStr(komorka.Value)) ' Buduje pełną ścieżkę z podwójnymi ukośnikami sciezka = "file:///D:\as\" & nazwaPliku &...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub bardzo dziękuję za pomoc :) może mi Pan tylko wyjaśnić, co oznacza sh.cells? sh - to skrót sheets? sh.cells oznacza komórki arkusza? czy...
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Cześć, potrzebuję pomocy z napisaniem makra, które będzie przenosić dane z jednego arkusza do innego. W arkuszu1 będą dane w polach D3:D100 jeśli któraś z komórek spełni wymaganie (wartość1) np komórka D10 to komórka, to do arkuasz2 automatycznie przeniesie się wartość komórek F10, H10, I10, J10, K10. Problem polega na tym, że przenoszone wartości powinny...
Witam, Próbuję napisać makro do poniższej tabeli (numerom porządkowym przypisane są dwa wiersze), takie aby w momencie kiedy data wpisana przy danym numerze porządkowym jest o 30 dni starsza od daty aktualnej, automatycznie usuwało zawartość dwóch ostatnich komórek z danego rzędu (zaznaczone na zielono), niestety moje umiejętności pozwalają tylko na...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Działa ale też nie do końca tak jak trzeba - nie przenosi szerokości komórek i formatowania warunkowego. Ale spox poradziłem sobie w inny sposób. Na bazie poprzedniej procedury nagrałem sobie makro, które usuwa zbędne wiersze i zmienia nazwę arkusz i pozamiatane. Jeszcze raz wielkie dzięki za pomoc.
witam, dziwne to co mi wychodzi dlatego zwracam się do Was. Mam tabelkę w zakresie komórek c11:ac50. W tabeli tej mam różne dane osobowe. Po jakimś czasie chciałbym nanieść do tabelki nowe dane. Tak więc postanowiłem wstawić makro czyszczące dane. Ustawiłem makro i działa jak należy. potem chciałem, aby po naciśnięciu przycisku wyskakiwało mi okienko...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Pomimo dość dziwacznego kodu, jak przystało na laika ;) makro działa... Linia[syntax=vb]Range(Selection, Selection.End(xlToRight)).Select[/syntax... zaznaczenie komórek wiersza do pierwszej "dziury" (Ctrl+Shift+strzałka w prawo) i stąd pozostające wartości. Proponuję małą przeróbkę (koniecznie przeanalizuj!) [syntax=vb]Private Sub cmbdeletpass_Click()...
Jakoś dziwnie to robisz ten 'plik główny.xls' w nim jest to makro? [syntax=vbscript]Sub usuwanie() Dim plik As Workbook Set plik = Workbooks(Sheets("dane").Range("W4").Val... plik.Close End Sub[/syntax]
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
to, że jestem leniwy to wiem, jednak Twoje makro nie rozwiązuje problemu - usuwa kropkę, ale pozostawia w dalszym ciągu komórkę jako tekstową. Tak więc w dalszym ciągu nie ma oczekiwanego rezultatu. Oczywiście pojawia się z lewej strony komórki komunikat o możliwości przekonwertowania do postaci liczbowej, ale tej czynności makro nie rejestruje. Dzięki...
Witam! Jeśli praca będzie sie powtarzała dość często to może wartałoby napisać krótkie makro: OD początku zaznaczenia DO końca zaznaczenia rób { Jeżeli wartość komórki z zaznaczonego przedziału jest mniejsza od 0 to ukryj wiersz w którym znajduje się niechciana komórka (Selection.EntireRow.Hidden = True) } Mógłbym coś napisać ale teraz naprawdę nie...
Witam! Nowy, czysty skoroszyt. Komórki mają formatowanie domyślne. Do komórki D3 wpisuję z ręki formułę ="0987", excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane. Do komórki D4 wpisuję formułę =D3, i tym razem excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane....
Witam Często muszę usuwać odfiltrowane wiersze w których znajduje się tez grafika. Znalazłem gotowe makro które działa dość szybko i usuwa je, jednak robi to bez grafiki. Dodam tylko że we właściwościach znajdujących się w pliku zdjęć mam zaznaczoną opcję "Przenoś i zmieniaj rozmiar razem z komórką". Czy da się zmodyfikować to aby razem z tymi odfiltrowanymi...
Właśnie chyba wszystko poplątałem, wykorzystywałem formułe z IFem do usuwania wcześniej wierszy i nawet rozsądnie to rozkminiłem. Chciałem ją dostosować do wstawiania formuły, ale chyba pobłądziłem. Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane.
Dziękuje za odpowiedź. Szczerze powiedziawszy nie wiem jak za to się zabrać, a lepiej funkcja bo musi mieć to zastosowanie do róznych tablic w różnych arkuszach. Zrobiłem tworzenie się tablicy usuwanie, znaków między liczbami. Ale nie potrafię i nie mam pomysłu co zrobić by traktował liczby z osobna, nie mogę ich wyciągnąć do 5 różnych komórek. Działanie...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam, że tych niepotrzebnych wartości jest około 11, a sama oryginalna...
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej. Z racji szacunku do pytającego załóż własny temat. Możesz...
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
Ad.2 Kopiowanie wiersza z przysikiem, to żaden problem. Problemy zaczynaja sie przy usuwaniu wierszy, bo przycisk zostaje i zwykle nakłada się na następny. Po jakimś czasie może być ich mnóstwo "na kupce" Ad.1 Napisać makro wg Twojego opisu, to, na oko, żaden problem. Sugerowałbym którąś z procedur zdarzeniowych arkusza (Np Change dla kolumn H, I, J,...
Witam Potrzebuje pomocy przy napisaniu makra excel W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych. Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232 Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby. Ale tak było nie...
Nie bardzo rozumiem, po co ta cała zabawa z zerami, zamianą na puste, usuwaniem komentarzy. Po co wyświetlać zera gdy brak danych? Po co w ogóle tworzyć te komentarze z zerami? Poza tym ostatnia część kodu (usuwanie komentarzy) w ogóle by nie zadziałała, bo komórki z komentarzami były puste, a funkcja End uwzględnia zawartość komórki, a nie komentarze....
Witam! To mój pierwszy post w tej części forum. Natrafiłem na problem, znalazłem rozwiązanie, może komuś to się przyda. Zarejestrowałem proste makro, które w pierwszej części (tylko ta jest istotna) miało u dołu tabeli, ale przed wierszem podsumowania tworzyć dodatkowy wiersz będący kopią jednego z wierszy powyżej. Wydawało się, że sprawa jest prosta,...
Koledzy potrzebuje makra, które będzie łączyło/dzieliło tekst w kolumnie. W pliku o nazwie "format_0" mamy dane liczbowe, zaczynające się od liczby zero lub bez liczby zero i potrzebuje aby makro dodało tą liczbę zero na początek lub usunęło ta liczbę zero z początku, wszystko zależy od potrzeb. Wzór w arkuszach o nazwie "Dane". Makro ma zadanie dodać...
Żebyśmy się zrozumieli. Nie wiele potrafię, to jest fakt niezaprzeczalny :) Poza tym makro czyszczące dane z bloku pierwszego jest celowo przypisane tylko do pierwszego bloku ponieważ: Tych bloków/tabel w praktyce będzie wiele.. 20, nawet 40. Czyszczenie każdego z nich byłoby karkołomnym. W rzeczywistości działa to tak: Wypełniam pierwszy blok danymi,...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
Witam, potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę. http://obrazki.elektroda.pl/8507180000_1... Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko...
To jest NIE-SA-MO-WI-TE! Działa! Excel/programowanie jest przepotężne. Robiłem ten "kod" za pomocą nagrywania makro oraz dodawałem coś od siebie, żeby to działało automatycznie. Asem w kodowaniu VBA nie jestem, ale jeżeli mój działał, to działał, a że działał tak sobie, to zwróciłem się o pomoc do (jak widać) odpowiedniej grupy użytkowników. (^_^)...
Dzień dobry. Starałem się napisać makro, które porównuje zawartość komórek C1:C100 arkusza Arkusz1 z zawartością komórek A1:A120 arkusza Arkusz2. W przypadku, gdy nie znajdzie danej wartości, nastąpi usunięcie bieżącego wiersza z arkusza Arkusz1. Tak więc efektem działania ma być pozostanie w arkuszu Arkusz1 wierszy, w których w kolumnie C znajdują...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
Ja się podepne pod temat, tylko z nieco inną sprawą. Mam zakresy liczb: 1-10 "bardzo bardzo źle" 11-19 "bardzo źle" 20-29 "źle" 30-39 "średnio" 40-49 " lepiej" 50-59 "dobrze" 60-69 "bardzo dobrze" 70-79 "bardzo bardzo dobrze" Czy istnieje metoda aby po wpisaniu liczby z zakresu 1-79, funkcja nadała komórce odpowiedni komentarz? Kombinowałem z funkcją...
Jak już chcesz usuwać wiersze z zakresu, to wykonaj pętlę od ostatniej zapisanej do pierwszej komórki - mniej problemów. Po drugie: te selecty to są zupełnie niepotrzebne. To makro może być w następującej postaci: [syntax=vb]Sub usun() Dim lLstRw As Long 'ustalenie ostatniej zapisanej komórki w kolumnie A lLstRw = Cells(Rows.Count, 1).End(xlUp).Row...
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Jeżeli jest to normalne na tym forum to naturalnie za finalną pomoc chcę podarować punkty. To jest Twoja indywidualna sprawa. Darowanie punktów nie jest naturalne na tym forum :) Wskazane jest natomiast kliknięcie przycisku http://obrazki.elektroda.net/23_12596950... Sortowanie kodów: Żeby później nie zgubić grupowania, należałoby (makro) rozpocząć...
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...
Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...
Dzięki za próbę pomocy! Wiem, że to nie jest efektywny kod, ale to moje najmniejsze zmartwienie. Właściwe makro, w roboczym skoroszycie, ma być wykonywane raz na miesiąc. Oczywiście jest znacznie bardziej rozbudowane, ale i tak to bez znaczenia, czy będzie się wykonywało 1ms czy nawet 100 razy dłużej. Sens tego makro leży w automatyzacji czynności,...
Wersja mieszana, tj. i z hiperłączami "na funkcjach" i z hiperłączami "na makrach". 866050 Ścieżkę dostępu możesz określić dla każdego projektu oddzielną, to tylko niewielkie zmiany w makrze "Workbook_Open", które w ogóle możesz wyłączyć/skasować i ścieżki wpisać ręcznie - mnie się nie chciało tworzyć różnych ścieżek dla poszczególnych projektów. Ilość...
Witam, Jestem początkującym w VBA. Potrzebuje pomocy w jednym temacie: Chciałbym uzyskac takie makro że jak zaznacze np zakres komórek A6:B11 to chciałbym tylko w tych miejscach zwiekszyc liczbe wierszy i za pomoca wpisania konkretnej liczby wierszy (InputBox). Ważne dla mnie by dodanie wiersza synchronizowane było z okienkiem w kolumnie B tzn: zeby...
Prot, bardzo dziękuję, jest to rozwiązanie które spełnia moje oczekiwanie i je zastosuje w moim szablonie, tylko za bardzo nie rozumiem komendy ”=Fir”, pozostałe formuły są mi znane. Makro adamas_nt również działa bardzo dobrze. Wielkie dzięki. Ale jest mały problem z makrem, nie chodzi o to, że źle działa tylko tabelka docelowa trochę się...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Cześć, Mam problem, mianowicie mam dwie kolumny w pliku. W jednej są dane a w drugiej dane do przypisania. Dane do przypisania mają takie same wartości, skorzystałem z makra które pozwala przypisać dane w jednej komórce jednak usuwa duplikaty. Nie jestem w stanie wyłapać w którym miejscu jest kod odpowiedzialny za usunięcie duplikatów. Może ktoś pomóc?...
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Witam, Szukam makra, do excela, które będzie przeszukiwało daną kolumnę i usuwało podane frazy z komórek np. faktura vat. Znalazłem coś takiego: Proszę pamiętać o używaniu znaczników code . Proszę poprawić błędy w poście. - arnoldziq
Wariant z blokowaniem zakresu komórek przy otwieraniu i zamykaniu zeszytu. 1. Na wszelki wypadek w procedurze 'Private Sub WorkSheet_Change(ByVal Target As Range)', w danym arkuszu, zmienić deklarację zmiennej z 'Dim i As Integer ' na 'Dim i As Long ' 2. W module 'ThisWorkbook' wkleić kod: 885619
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
Jest kilka sposobów, których tu można użyć. Podam 2 warianty bez użycia makr. Jeśli problem występuje często, to można również użyć makra. Moja propozycja: 1) Zaznaczamy drugą kolumnę (kol.B) na wysokość danych. 2) Do komórki w pierwszym wierszu (B1) wpisujemy formułę: ="1|"&A1 3) Przytrzymując Ctrl naciskamy Enter. Wariant 1: 4) Kopiujemy kolumnę przez...
No, ale skądś się ta lista w kol.A wzięła. Jeśli jest wynikiem działania makra, być może łatwiej/szybciej byłoby to makro zmodyfikować (uzupełnić w podprocedury)...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Dziękuję za zainteresowanie, sprawa nie jest tak prosta jak się wydaję. Spieszę wyjaśnić do czego jest mi to potrzebne. Generalnie potrzebuję to do stworzenia słownika wyłącznie słów, których używam sam w swoich tekstach. Niektóre teksty (artykuły) są wręcz olbrzymie. Lista słów musi być w ten sposób ułożona (jedno po drugim) w pliku tekstowym i zaimportowana...
Udało mi się nieznacznie poprawić kod. Wszystkie potrzebne dane po użyciu makra uzupełniają się w danym wierszu formularza ale dzieje się to w sposób niekontrolowany. Oznacza to że raz pobiera dane w sposób pożądany a raz nie pobiera wcale lub kopiuje dane w zupełnie inne miejsce. Może wynikać to ze złego zdefiniowania programu. [syntax=vb] Option Explicit...
skopiuj wartości z komórek od M do R i wklej do kolumny C z cała zawartością (od M do R) Sprawdz kolumne CH , nie wiem co tu się stało teraz ... Poza tym nie sugeruj sie poprzednimi wypowiedziami bo to co jest w kolumnie D i E bedzie usuwane wiesz , także chodzi tylko o dopasowanie i przekopiowanie wartości.
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
Jak w kodzie VBA zrobić procedurę usuwającą dane w dowolnym wierszu z kolumn C,D,E po wyczyszczeniu danych z komórki w kolumnie A ? Dla pojedyńczego wiersza działa taki kod Sub Makro1() Range("A2").Select Selection.ClearContents Range("B2:D2").Sel... Selection.ClearContents End Sub Jak zrobić to dla dowolnego...
a następnie usunęło duplikaty na podstawie wartości z kolumny F Usuwać chcesz całe wiersze w obu tabelach, czy tylko w jednej tabeli komórkę z kolumny F :?: :D Proszę przygotować przykładowy plik z przykładowymi danymi (żeby zrozumieć logikę Twoich przekształceń) i załączyć na forum Generalnie makro powinno działać na excelach, takich jak te które...
Spróbuj w poniższy sposób. Jeśli nie chcesz kopiować danych z wybranej kolumny - po prostu usuń nagłówek w pliku docelowym. Makro działa odwrotnie niż w Twoim przykładzie. Tzn wyszukuje kolejnych nagłówków pliku źródłowego w docelowym, jeśli nie znajdzie - warunkowo pomija (MsgBox - po wybraniu kontynuuj). Przy okazji posprzątałem co nieco ;) [syntax=vbscript]Sub...
Witam, Napisałem makro, które ma za zadanie przenosić wiersze z jednego arkusza do drugiego, na podstawie wartości (tekstu) komórek, w jednej z kolumn (A), a następnie usuwa puste wiersze. Jest ono napisane w dość 'prymitywny' sposób, jednakże działa. Niestety jednak, nie radzi sobie zbyt dobrze z dużą ilością danych - wszystko wychodzi jak powinno,...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu wiersz ten zostanie najpierw skopiowany do arkusza...
Mały arkusz przykładowy masz w załączniku - wykorzystuje proste kopiowanie wierszy w pętli z arkusza źródłowego do docelowego. W pełni zgadzam się z przedmówcą, że tych przycisków coś za dużo - ba, sama idea kopiowania obrazków nie bardzo mi się podoba - wszak masz potem ten sam obrazek w dwóch miejscach... A znając tendencję niektórych ludzi do wklejania...
Witam Zadanie które mam do wykonania polega na tym, iż mam dostępny arkusz "baza" w którym znajduje się ok 10 000 wierszy, każdemu wierszowi odpowiada kolejno w kolumnach od A do C , nr punktu , współrzędna X i współrzędna Y i muszę ustawić numery zaczynając od numeru C27 i kolejno każdy najbliższy odległościowo punkt aż do wyczerpania zapasów. Robię...
Poradziłam sobie w taki sposób, ponieważ Wasze rozwiązania ciągle wywalały mi błędy:/ Sub CopySheet() ActiveSheet.Select ActiveSheet.copy Before:=ActiveSheet ActiveSheet.Select Range("G17:AA22").... Selection.ClearContents Range("G32:AA37").... Selection.ClearContents Range("B40:I47").S...
Witam, Mam taki kawałek makra, który exportuje mi konkretny format plików do excela... Mam cztery pytania do tego, ponieważ nie bardzo ogarniam vbs'a na tyle by wpiąć w to kawałek kodu, który zadziała :/ (acz pracuję nad tym) Generalnie to co robi, to pobiera plik txt, formatuje go odpowiednio po spacjach jako separator, usuwa zbędne kolumny a następnie...
dziękuje, zapomniałam jeszcze dodać najważniejszego mam makro, które w pierwszym kroku w pliku źródłowym (o nazwie Arkusz1) tworzy arkusze, do których kopiuje wiersze wybierane po wartości z kolumny A z arkusza1. Problem polega na tym, ze nazwy w kolumnie A czasami sa dłuższe niż 31 znaków i wywala mi bład w tej linijce: temp.name = ark.Cells(i, 1)...
Hej. Mam plik Excel z dużą ilością danych. Nad dwiema kolumnami zrobiłam sumę częściową, która sumuje mi te kolumny. Obok tych sum mam formułę sprawdzającą czy te dwa wyniki są sobie równe, dostaje info prawda lub fałsz. Dane te chcę filtrować po kluczowej kolumnie (np. nazwa jakiegoś oddziału) i sprawdzać kiedy te sumy zwrócą prawdę. Jeśli na danym...
Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
excel makro usuwanie makro excel przeszukiwanie komórek excel makro nadpisywanie komórek
czujnik biegu wstecznego linux puppy volvo usterka
momenty dokrecania peugot momenty dokrecania
Jak zdjąć pokrętło szyberdachu w VW T4? Jak przywrócić ostrość w projektorze InFocus po wymianie żarówki?