Poproś kogoś innego.
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Witam. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
licznik ustawiłem, co 3 wiersz wstawia mi pusty wiersz, tylko nie mam pojęcia jak te sumy zrobić. Jakie zapytanie żeby pobrał z dwóch poprzednich sumę.
Racja, zapomniałem o tym napisać. Takie przypisanie [syntax=c]**pictab = pictabcreator(3, 4);[/syntax] to w zasadzie to samo co [syntax=c]pictab[0][0] = pictabcreator(3, 4);[/syntax] Przy okazji: usuwaj pierwszy i ostatni pusty wiersz kodu przy wstawianiu na forum.
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Oki, tylko że jeśli postawisz kursor w danej tabeli, to masz już z autoamtu przygotowany pusty wiersz do wprowadzania danych, tak działa lista-tabela. 912568 1. Czy chodzi ci zatem o to, żeby prócz tego wiersza z gwiazdką, makro wstawiało dodatkowy pusty wiersz, jako "kolejny" (wtedy będą dwa puste, w tym jeden z gwiazdką) ? 2. Czy wystarczy może tylko,...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
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...
Dzień dobry, Jaka kompletna świeżynka w VBA i proszę o pomoc. Próbuję napisać makro, które będzie wstawiało pusty wiersz, jeśli w kolumnie E znajdzie pełną komórkę. Ten pusty wiersz ma wstawić pod wierszem, w którym znajduje się ta pełna komórka. Napisałam coś takiego: [syntax=vbscript] Sub Wstawianie_Wiersza() Dim BL As Range Dim xCell As Range Set...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Witam wszystkich serdecznie. Szybko opisze co mam i co chce zrobić :) Posiadam moduł Bluetooth AVT-1635, Płytke STM32F407 Discovery oraz telefon z androidem. Do tej pory udało mi się nawiązać połączenie z modułem i telefonem. Używałem do tego Aplikacji RoboRemoFree. Interface wygląda tak jak na zdjęciu. http://obrazki.elektroda.pl/3674792000_1...
Podmieniłem makro zgodnie z sugestią, niestety działanie nadal jest niepoprawne - mimo "użytych" tylko 5 wierszy z zakresu H5:H14 w dalszym ciągu wstawia 5 wierszy z danymi a kolejne 5 wierszy pustych. Załączam przykładowe pliki
Dlaczego każdy znak planszy wpisałeś osobno :?: Plansza powinna być wyświetlana na podstawie tablicy lab. Poziomy możesz zrealizować tak: [syntax=cpp]int (*lab)[56]; int plansze [][10][56] = { { {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, }, {1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1, }, {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1, }, {1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,....
Zakładam, że w każdym wierszu będą dwie kontrolki zależne. W Excelu 365 na karcie Wstawianie znajduje się pole do wstawiania tych kontrolek. [syntax=text]Wstawianie > Kontrolki > Pole wyboru[/syntax] Aby wstawić kontrolkę należy zaznaczyć komórkę (lub komórki) i kliknąć przycisk. Standardowo kontrolka jest powiązana z komórką, a w tej komórce...
Musiałbym mieć tylko pustą kolumnę tak? Żeby 2x Klikać? Bo tam będę wstawiał dodatkowe wiersze. Nie jest to stała tabelka. Rosnąco numerami do góry.
A co masz w tej tabeli? Wygląda jak byś miał zduplikowane coś pewnie id_lekarz. Zrób autoincrement i nie dodawaj tego ręcznie. Poza tym spróbuj dodać jeden wiersz. I upewnij sią ze dodajesz do pustej tabeli.
Hej sorry za mało konkretów. Naprawiam błąd. Chodzi mniej więcej o taka tabelę, gdzie są handlowcy, produkt i ilość. Jeśli w 3 kolumnie ilość będzie wynosić 3, to wstawić 3 wiersze pod 3. Dane w kolumnie ilość są wstawiane ręcznie. W kolumnie produkt są puste wiersze, tak wygląda tabela, tego nie można zmienić. Tak, racja, arkusz się rozrośnie do dziwnych...
Prawdopodobnie w arkuszu odłożone zostały jakieś znaczniki, które identyfikują dodane wiersze. Może np.: każdy wiersz tabeli wyjściowej jest w jakiejś kolumnie ponumerowany, wtedy dodanie nowego wiersza daje puste komórk lub w jakiś sposób oznaczone i wtedy bardzo łatwo to usunąć.
Dziękuję, ale chyba nie o to mi chodzi. Moje makro działa do momentu usunięcia duplikatów w drugim arkuszu. Teraz dla każdego dopiero co wklejonego wiersza potrzebuję mieć dzisiejszą datę w kolumnie AE. Myślałam, żeby zrobić to za pomocą If komórka pusta then albo For each puste... no ale próbuję i nie wychodzi :/
Kolumna A: Nr domu Kolumna B: funkcja "=JEŻELI(C1;"/";"")" Kolumna C: Nr lokalu Funkcja w kolumnie B sprawdza, czy coś jest w kolumnie C (oczywiście chodzi o komórki w tym samym wierszu). Jeżeli jest wstawia znak '"/", jeżeli nic nie ma zostawia pustą komórkę.
Witam, Mam następujący problem: w arkuszu Excel mam dane z datami w kolumnie A od komórki A2 w dół. Dane są w porządku malejącym, ale mają luki - tzn. np. po 26/01 czasami jest od razu (bez pustego wiersza) 24/01. Chcę napisać makro, które w takim wypadku wstawi odpowiednią ilość pustych wierszy w miejscach, gdzie brakuje dat. Póki co mam kawałek kodu,...
Przy wstawianiu nowych wierszy nie kopiowały się niektóre formuły, później pola te zostawały puste więc makro je pomijało. Problem rozwiązany :) Dodano po 23 Dzięki wszystkim za pomoc :)
Zakładając że układ kolumn i danych jest stały - nie piszesz szczegółów, wystarczy w określonej komórce wpisać (zakładając że 3 jest w komórce 1A): = 1A&" "&1C&" "$1G Jeżeli natomiast układ danych jest różny w każdym wierszu, trzeba by napisać makro uwzględniające puste komórki.
Użyj wyrażeń regularnych, napisz skrypt PowerShell : np o nazwie "...zamiana.ps1" twój tekst będzie w pliku np:"F:\Klient\Documents\test.txt" dopisane godz. 21:33 No jednak nie bardzo można łamać wiersze w jednym poleceniu. PowerShell lub może czegoś nie wiem, ma kłopot z zamianą znaków nowej linii w wyrażeniach regularnych. Znalazłem gdzieś że można...
w richedit masz komponent lines. jest to zwykla kolekcja wierszy. chcesz miec pusty wstawiasz pusty. jak wstawisz niepusty to masz niepusty. jaka filozofia? a oprocz tego masz takie uzyteczne funkcje jak bodajze setcurpos czy jakies takie. o ile sie nie myle to jak tam sie poda -1 to ustawiaja sie na koncu. moze dziala u ciebie klawisz F1? ew. pobaw...
Zaproponowany uprzednio kod makra przystosowany jest do określonego układu tabeli :!: :D tzn. po zmianie układu kolumn trzeba stosownie kod zmodyfikować :cry: Dodatkowo makro nie przystosowane jest do "niespodzianek" typu "nadziewanie" pustych komórek pojedyńczą spacją czy wprowadzania nietypowych wierszy tabeli z nazwami podzbiorów danych :sm31: :cunning:
Dzień dobry, Oczywiście, najlepiej wprowadzać nowe komórki do środka zakresu i wtedy będzie się on poszerzać automatycznie. Ale nie zawsze tak jest wygodnie, bo dane mają określoną sekwencję i powinny być dopisywane na końcu. Tu problem jest większy, bo sumy są u góry zakresu. Gdyby były u dołu po wstawieniu nowych danych Excel automatycznie skorygowałby...
Żadnych postępów? Po mojemu trzeba zagnieździć kilka różnych pętli. Od zewnątrz: 1. For-Next 1 To MAX z kolumny A 2. Do-Loop do 1-szej pustej w pierwszym wierszu od kol. C 3. Do-Loop do 1-szej pustej w kol. A od wiersza Nr 2 W trzeciej pętli sprawdzamy, czy wartość komórki z kol. A równa licznikowi pętli For. Jeśli tak, kopiujemy. Potrzebny będzie jeszcze...
W Twojem kodzie jest widoczne tylko rozmiar zdjęcia, ale nie ich lokalizacji w arkuszu. Tylko ruch względny. Z tego powodu trudno tej pętli do pisania. Rysunki są umieszczone w wierszach lub w kolumniach? Jeśli brakuje niektórych, pozostaje puste miejsce lub to miejsce następnego?
nie ma sensu pisać takich komentarzy Nie ma sensu wysyłać obrazków zamiast przykładowego pliku Excela. niedozwolone rozszerzenie Spakuj go i umieść na forum. W jaki sposób zrobić Copy z parametrem Destination? ma powstać baza danych Nienajlepsze rozwiązanie. P.S. Używaj proszę znaczników przy wstawianiu kodu.
Witam! Mam w skoroszycie 2 arkusze i kod przenoszący z "L-ki" do "R-ki" "tylko wartości większe lub mniejsze od 0 bez wstawiania 0 jeśli komórka była pusta. Potrzebuję aby dane wstawiały się do arkusza "R-ki" z zachowaniem numeru wiersza który miały przed kopiowaniem - obecnie dane są przenoszone do odpowiedniej kolumny, jednak wstawiane są jedna pod...
Mam problem z formułą w excel chodzi o. Na przykład w wierszu 1 mam dla A1 - słowo dom A2 - słowo pies A3 - rower A4 - dom potrzebuję formuły aby na przykład w A5 excel wstawił słowa TAK stwierdzając że w wierszu od A1:A4 jest słowo dom w przypadku braku pozostawia komórkę pustą lub wstawia NIE (zamiast TAK może być słowo dom) dziękuje
uzupełniam kolumnę C i poniżej w tabelach automatycznie dodają się wiersze z tym tekstem co powyżej. Dokładnie podobny mechanizm mam na myśli :D , ale oparty na formułach, oraz na automatycznym ukrywaniu pustych wierszy (realizowane prostym makrem Worksheet_Change) :idea: 989747 Jak widać na zrzucie wstawiam pierwszą literę nowego surowca, zatwierdzam...
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
Witam, Temat ogólnie już był poruszany, ale został zablokowany a ja chciałabym stworzyć coś dodatkowego do niego i nie wiem jak. Konkretnie chodzi mi o taką tabelkę jak w załączniku 1 i stworzenie do niej makra by oddzielały się wiersze po nagłówku "Obiekt" i dodatkowo by tam gdzie jest nagłówek "Godziny" tworzyło się auto-sumowanie dla powyższych kolumn...
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Witam! Potrzebuję makro, które w momencie gdy w pliku "plik w którym ma być makro do wstawiania" w kolumnie J (w przedziale J2:J23) znajdzie się wartość inna niż pusta komórka skopiuję dla "użytego" wiersza dane z zakresu kolumn K:Q do arkusza o nazwie identycznej z wartością w komórce J, do pierwszego wolnego wiersza w kolumnie B w pliku który ma stałą...
Dzień dobry, Mój problem jest następujący Mam arkusz "A", gdzie z jednej zakładki importuję przy pomocy IMPORTRANGE do arkusza "B" zakres A2:E. W arkuszu B w kolumnie F przypisuję wartości i te wartości wpisywane są ręcznie i nie ma w tej kolumnie żadnej formuły. Problem zaczyna się gdy w arkuszu "A" musze wstawić wiersz. W tej sytuacji w arkuszu "B"...
Witam. Szukam na google i nie mogę znaleźć jak to zrobić. Chodzi mi o następujące rozwiązanie: Mam Form1 i Form2. Na Form1 znajduje się TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6 oraz Button1. Na Form2 znajduje się DataGridView1 oraz Button2. Teraz chodzi mi o to żeby po wpisaniu danych do sześciu TextBoxow na Form1 kliknąć Button1,...
Cześć wszystkim szukam rozwiązania do automatycznego wstawiania zdjęć na podstawie wartości z komórki. Zamieszczam plik przykładowy. Arkusz1 -> tabela, która powstaje z zapytania PQ (zmienna ilość wierszy); jest to lista towarów wraz z ich indeksami i cenami; wiersz 2, 8, 11 to nazwy grup towarowych (Metalowe, Narzędzia, Malarskie); w kolumnie A w wierszach...
Witajcie, Mam problem natury technicznej. Nie wiem w jaki sposób dodać nowy wiersz w określonym miejscu arkusza. Chodzi mi o to, aby po kliknięciu przycisku, w danym obszarze (kol. kategoria) pojawiał się nowy wiersz na końcu kategorii , w kolumnie E pojawiło się puste miejsce na dodatkowy atrybut, a z kolumny F i G skopiowały się chceckboxy (odznaczone)....
Zauważ, że wiersze wstawiane są "od końca". W związku z tym daty należy obliczać podobnie. For count = 1 To how_many Range("A" & i + 1).EntireRow.Insert xlShiftDown Range("A" & i + 1).Value = Range("A" & i).Value - how_many + count - 1 Next count
Próbowałem zrobić czymś takim. Dodano po 3 Przepraszam zapomniałem dodać jeszcze jednej linii[syntax=vb]Workbooks ("Z:\ZLECENIA") Set wscel = Worksheets("Arkusz1") Set wsbaza = Worksheets("detale") ost_wiersz_celu = wscel.Range("A754").End(xlUp).Row ost_wiersz_bazy = wsbaza.Range("B754").End(xlUp).Row Dim szukaneTabl As Variant szukaneTabl = wscel.Range("A2:B"...
Witam, Potrzebuje zbudować makro które, będzie kopiowało wiersz(lub wiersze) z tabeli jeżeli spełnia warunek. A mianowicie: W Arkuszu1 mam tabele o określonej szerokości (16 kolumn) bez okreslonej ilości wierszy. W Arkuszu3 w komórce B2 wpisywanybyłby warunek (tekst) W Arkuszu2 jest pusty odpowiednik Arkusza1 (tylko nazwy kolumn). Marko działałoby w...
wystarczy, jak klikniesz u góry, tam gdzie masz A1+B1, tylko że musi być puste i zaznaczasz całą kolumnie A klikając na "A" po czym wstawiasz znak plus "+" i zaznaczasz kolejną kolumnę, w twoim przypadku "B". dalej równa się "=" i kolumna "C". I to tyle, chyba, nie korzystam z Excela ale tak było kiedyś ^^ Albo najpierw na całe C, później "=" następnie...
Cześć, siedzę nad problemem jakiś czas. Od razu zaznaczam, że nie chcę wykorzystywać VBA bo z jego pomocą już mi się udało to zrobić. Chcę użyć funkcji typowych dla podstawowej wersji Excela do rozwiązania problemu. Opis: Mam listę pionową z numerami tygodnia np. 40, 41, 42... kolejne kolumny są opisane z daną czynnością np. pranie, gotowanie, sprzątanie......
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
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...
Cześć, Mam problem. Muszę porównać Stary plik z Nowy. Chciałbym, aby w kolumnie D w pliku Nowy wstawiała się wartość z pliku C dla danego zamówienia + plus komentarz np "Uwaga zmiana ilości z "wartość ze starego pliku" na "wartość z nowego pliku". Dodatkowo w kolumnie E pliku Nowy wklejały się wartości nie występujące w plik Nowy. Przykładowo w Nowym...
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
witam, można to zrobić na milion różnych sposobów ale zależy jak duże bywają te twoje pliki??? jeśli nie bywają ogromne to taki najszybszy pomysł jaki przychodzi mi do głowy: var sList: TStringList; begin sList := TStringlist.Create; try sList.LoadFromFile(nazwa_pliku); .... ... // tutaj wstawiasz pętlę która wczytuje do jakiejś zmiennej stringowej...
Wtam, doszedłem do etapu, w którym musze wykorzysta makro. Mam 2 kolumny: A.................B dana1 || 2011-04-15 dana2 || 2011-04-16 dana3 || 2011-04-20 dana4 || dana5 || dana6 || Jak zrobić makro, które sprawi, że jeśeli w komórce A jest wpisana dana to w komórce B wstawi dzisiejszą datę która w niezmienionej formie już tam zostanie? Wierszy w kolumnie...
Witam, stanąłem przed taką oto zagadką: Tabela excela: A......B......C......D abc.001...002...1sdd def..002...001...4asd mnh.002 ghi..003...004....3sda jkl...004...003....2asd Chcę ten arkusz posortować tak, żeby kolumna C wraz z odpowiednimi wartościami w D pokryła się z kolumną B: A......B......C......D abc..001..001..4asd def..002...002..1sdd mnh.002...
Cześć, Niestety dopiero zaczynam raczkować w świecie VBA więc byłabym bardzo wdzięczna za pomoc. W excelu w kolumnach od C do M wpisywane są dane zarówno w formacie tekstowym jak i liczbowym, ale mogą też zostać niektóre kolumny i wiersze puste (nieuzupełnione). Zależy mi na tym aby po wprowadzeniu jakichkolwiek danych w zakresie wspomnianych kolumn...
Dalej nie do końca jasne. Z tego, co Pani napisała rozumiem, że lista będzie tworzona każdego dnia od początku, czyli nie chodzi o usuwanie pojedynczych pozycji z listy, tylko całej listy. Wydaje mi się, że ta lista zachowuje się prawidłowo po usunięciu wszystkich pozycji, kłopoty są tylko gdy Pani będzie chciała usunąć coś ze środka listy, pozostawiając...
A z czym konkretnie masz problem? Potrafisz otworzyć te pliki? Potrafisz utworzyć te klucze (sugeruję nie zwykłe łączenie stringów, ale dodanie jakichś separatorów)? Potrafisz porównać dane w obu plikach (a może arkuszach - zastanów się czy nie będzie wygodniej skopiować dane do arkuszy pliku z makrem)? Zamiast kolorowania lepiej jest użyć prostej sztuczki:...
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)...
Witam, Mam jeszcze jeden dość złożony temat do bardziej zaawansowanych użytkowników. Mam w arkuszu makro, które po dwukrotnym kliknieciu w kolumnie C, wstawia w niej wartość, "zaktualizowane". W jaki sposób zmodyfikować kod, aby dla klikniętego wiersza sprawdzało czy dodana jest jakaś wartość w kolumnie E (jeśli dwukrotnie kliknę A9 to ma sprawdzić...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Dzień dobry, jeżeli jest taka możliwość, to proszę o pomoc w sformułowaniu niżej zdefiniowanych formuł, bo sam zapętliłem się. Formuły mają wyszukiwać ostatnie po lewej stronie, w stosunku do kolumn KW1 i KW2, komórki i zwracać ich zawartość. Występują dwa rodzaje zawartości: liczba i charakterystyczny tekst. Charakterystyczny tekst zawsze składa się...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Oby dwa sposoby są dobre i niestety obydwa u mnie nie działają. Już wyjaśniam dlaczego. Mam taką funkcje która ładuje się on load: http://obrazki.elektroda.pl/2409024100_1... Natomiast postępując 2 sposobem: [syntax=csharp] DataTable data_table = SQLDataManager.WczytajDane(query); foreach(DataRow row in data_table.Rows) dataGridView1.Rows.Add(row);[/syntax]...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Tematowi już parę razy się się przyglądałem jednak "zawiłość" tematu wpływa na czas jaki można temu poświęcić - a nie mam go za dużo. Wbrew pozorom wcale nie kierował bym się w tym przypadku żadnym losowaniem tylko normalną kolejnością zmian przy spełnieniu określonych warunków (kolejna wyższa - najbliższa z możliwych - jak nie ma możliwości wyższej...
Witam, mam taki problem: do bazy muszę dodać 37 wartości w wierszu pobranych z 37 pól TEdit umieszczonych na GroupBoxie. Ma byc tak ze w przypadku gdy któreś pole jest puste to w zależnosci czy jest ono w bazie numeric czy varchar wstawiać powinienem null lub ''. Ma ktos moze pomysl jak to rozwiazać? próbowalem z forem i GroupBox.Controls for i:=0...
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
Trzeba poskładać wszystko i dopiero drukować. Coś w stylu a co to znaczy pagebr = 42 ??? skąd ta wartość??? i poco w szablonie usuwać resztę pustych wierszy???
Dzięki serdeczne, ale jak zrobić aby dodawał cały wiersz?? a nie tylko w kolumnie nr 1?? Dodano po 8 i drugie pytanie, jeżeli ustawie od 1 to 9999 jak zrobić aby zakończyło sprawdzanie, jeżeli komórka jest pusta??
Nie no... tak to się nie da. Aby zrobić mniej więcej to co chcesz trzeba jednak zaprząść jakieś makro. Poza tym trzeba by było zrobić jakaś systematykę w danych. Chodzi o to że opis jednego stropu masz w ok 50 wierszach a w innym przypadku wystarczy 10. Poza tym fotki. Tu trzeba inaczej podejść do problemu. Jak znajdę chwilę to może coś wymyślę (ale...
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
Nie powinien napisałeś Compare z dwukropkiem? Dokładnie skopiowałem cały skrypt i wrzucałem do arkusza; razem z dwukropkiem; nie powinienem wpisać może sub Compare () itd. definiując to jako "funkcję" (próbowałem w ten sposób ale to nie działa) Cytat: If (Sheets("Arkusz1").Cells(i, j) = "") Then Return Pomijamy puste komórki (ja akurat sobie przygotowałem...
nagrałem dodawanie wiersza i wstawiłem w po else w miejsce exit sub ale tutaj zdaje się powinienem wstawić warunek sprawdzający tabelę z ofertą taki, że jeśli tabela nie ma pustych wierszy to wówczas na końcu dostawia nowy wiersz. Po nagraniu rejestratorem otrzymałem taki kod: Dodano po 8 Jeszcze pytanie: w kodzie, który mi podesłałeś miałem przypisane...
Witam zainteresowanym tematem obliczenia kodsztow energii elektrycznej pobranej i oddanej do sieci ZE jako PROSUMENT jak rowniez mozliwosc symulowania tych kosztow. W zalaczeniu udoskonalony arkusz EXCEL do takich obliczen. Teraz wyliczenia dokonuja sie na podstawie wstawianych odczytow z licznika i nie ma potrzeby wyliczania zuzycia z ZE czy tez ilosci...
Ze względu na to, że nie znam Access, bardzo chciałbym pozostać przy Excelu - Jeśli uda się zaprogramować plik !wprowadzenie żeby przenosił dane do wszystkich plików raportów wtedy byłyby one używane tylko do odczytu wprowadzonych danych, bez ich dodatkowej modyfikacji. W pliku do wprowadzania cześć kolumn będzie docelowo ukryta a komórki z formulami...
W porządku, więc skoro dopiero zaczynasz, to: 1. Utrzymuj porządek w kodzie - wcięcia, odstępy między blokami kodów, pozycjonowanie składni typu ' If ... End If ', ' Select Case ... End Select ', itd. Robisz to co prawda dla siebie, nie dla innych, ale im większy będziewsz mieć porządek, tym szybciej będziesz mógł coś zmienić, poprawić, przestawić,...
Dzięki za pomoc. Mam teraz dwa nowe problemy/pytania: 1.Czy da się przerobić ten kod aby [syntax=vb]Private Sub CommandButton2_Click() Dim tekst As String tekst = InputBox("Nazwisko i imiê") Cells(19, 9) = tekst zerujszukaj szukaj1k szukaj1g szukaj1p szukaj1z End Sub[/syntax] aby: a) wyskakujące okienko msg box miało oprócz "Nazwisko i imię" dodatkowo...
Właśnie... Po pierwsze: Dodanie R1C1 aby skorzystać z opcji .formulaR1C1 przynosi taki sam efekt. Nawet trick z FormulaR1C1local też się nie przydaje do niczego. Po drugie , pętlę ogranicza warunek: Po trzecie i najważniejsze : Właśnie mam z tym makrem kłopot, ponieważ nie mogę odwołać się do wartości komórki, tylko muszę wstawiać formuły z poziomu...
Co masz na myśli pisząc że "nie działa"? U mnie działa zgodnie z opisem... Komentarze do poszczególnych linii: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'w zdarzeniu przy zmianie w arkuszu If Target.Address = "$A$1" Then 'jeżeli adres komórki której dotyczy zmiana = A1 ost_w = Worksheets("Dane").Range("A" & Rows.Count).End(xlUp).Row...
Mam nadzieję, że nie zamęczam. Musiałem niestety odrobinę przemodelować tę tabelę stąd też pytanie - Co w poniższym kodzie, trzeba zmienić żeby zamiast kol. B,C,H przerzucał kol. B,C,V z arkusza "kontrole" (kolumny od R stanowią tablice pomocnicze - w zał. plik)? [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column...
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania i dlatego zwracam się do ciebie poprzez PW. Makro...
Witam, Próbuję napisać swoje pierwsze MAKRO w VBA i ugrzązłem w połowie pracy. Dlatego też proszę o pomoc w celu naprowadzenia na rozwiązanie problemu. Celem programu jest przetwarzanie danych z jednego skoroszytu i zapisywanie ich w drugim. Na dane składają się uszeregowane w interwałach miesięcznych dane spółek notowanych na GPW z uwzględnieniem kryterium...
Powinieneś jeszcze pomyśleć o sytuacji, gdy masz pustą linię, ale przed znakiem nowej linii są biale znaki (spacje, tabulatory). Rozwiązanie które zaproponowałeś zadziała, ale tylko w przypadku znaku nowej linii na początku wiersza. Oto moja propozycja (fragment modułu parsującego plik konfiguracyjny demona, zarządzającego połączeniami ze sterowanikiem...
Witam! Jestem tu nowa i potrzebuję pomocy bardziej zaawansowanych użytkowników, ja dopiero staram się uczyć VBA, niestety napotkałam problem jak dla mnie nie do przejścia. Próbowałam przerobić inne makro na swoje potrzeby jednak ewidentnie coś jest z nim nie tak a ja nie potrafię zdiagnozować w czym problem. Przyznam, że nie mam już siły - może znajdzie...
Witam, próbuję napisać program kodujący tekst sposobem z przestawieniem macierzowym, wygląda to mniej więcej tak [syntax=python] dostajemy klucz np. 3-1-4-2 i słowo CRYPTOGRAPHYOSA z tego tworzymy macierz o tylu kolumnach jaki mamy klucz w tym wypadku 4 wygląda to tak 1 2 3 4 C R Y P T O G R A P H Y O S A zakodowane słowo to YCPRGTROHAYPAOS[/syntax]...
posiłkowałem się internetem(niektóre funkcje i jakieś przykłady) i jedną książką udało mi się coś takiego sklecić ale chyba coś pomotałem bo nie chce działać funkcja read_file (linia 263 w main) może ktoś biegły zauważy błąd, dzięki za pomoc :) [syntax=c] #include <stdio.h> #include <stdlib.h> #include <string.h> #include<ctype.h>...
Zmień kod np tak :spoko: : [syntax=vbscript]Sub Add_ret_Click() Dim rngTmp As Excel.Range Dim rngBlanks As Excel.Range Set rngTmp = Range("B24:C24") 'Tw?j obszar On Error Resume Next Set rngBlanks = rngTmp.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not rngBlanks Is Nothing Then MsgBox "Uzupe?nij puste kom?rki" & vbNewLine & "pusta kom?rka...
Nie, chcę po włączeniu arkusza uzupełnić danymi tabelę w arkuszu "PK", potem klikam przycisk "Twórz notę " i chcę eksportować dane z czterech kolumn do arkusza "Nota_Oracle" (tu następuje rozdzielenie względem separatora). Dzięki Twojej pomocy udaje mi się zrobić (wraz z przesuwaniem wierszy). Jednak teraz mam kolejny problem: 1. Ja zrobić, żeby po...
Wtiam napisalem taka klase odpowiadajaca za wielomiany n-zmiennych ale nie wiem czemu mam zwracany blad typu tresci: wielomian_n.cpp:11: error: new types may not be defined in a return type wielomian_n.cpp:11: error: return type specification for constructor invalid Program sledzilem juz wiele razy ale nadal nie moge wylapac co jest nie tak:cry: Bardzo...
Potrzebuję pomocy w Excelu. Muszę zrobić coś aby klikając przycisk "Display Photo" w jednym arkuszu excela zczytał on nazwy z wiersza obok "Suma z Quantity", a następnie w komórkach nad nimi wstawił odpowiednie zdjęcia. Były by one umieszczone w tym samym skoroszycie, w ostatnim arkuszu. I tu mogłyby być zrobione np. 2 kolumny gdzie w jednej jest nazwa,...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Faktycznie, w moim poprzednim poście z załącznikiem wkradł się błąd, który potem niechcący powieliłeś :) - w komendzie sortowania wpisałem dwa razy Key1=..., podczas gdy powinno być Key1=... i Key2=.... poprawiłem tamten załącznik. Natomiast teraz problem z sortowaniem wynika z tego, że jest: [syntax=vb]Worksheets("wyniki").Range("A... & ostatniWiersz).Sort...
excel wstawiać puste wiersz wstawiać wiersz wstawiać wiersz excel
bateria wkrętarka naprawa laczenie rownolegle skrzynia garbusa
honda kierunkowskazy honda kierunkowskazy
Baxi Luna 3 Blue - Samoczynny Wzrost Ciśnienia Kontrolka STOP w Renault Laguna II po programowaniu