Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
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(...
Ja po prostu nie wiem o co Ci chodzi.:)
[syntax=vbscript]Public ff As String Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then s = Replace(Target, ",", ".") Application.EnableEvents = False If Left(ff, 1) = "=" Then If s >= 0 Then Target = ff & "+" & s Else Target.Formula = "=" & s End If Application.EnableEvents = True End If End...
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Musisz się zdecydować albo wpisujesz godziny jako tekst (wtedy w cudzysłowiu) albo jako liczby. Jeżeli chcesz to dalej np. sumować to proponuję konsekwentnie jako liczby. Z tym że trzeba pamiętać, że wpisane 8:00 to liczba równa 0,333.. a tylko prezentowana w formacie godzinowym. Czyli np. 12:00 to 0,5 (część doby), 6:00 to (0,25 część) doby. Do obliczeń...
Oczywiście, że można Myślałem, że już to zrobiłeś to sam
Tak to jest, jak się zmienia koncepcja w trakcie pisania kodu.:) [syntax=vbscript]Sub Sciezki() Sheets("Archiwum").Select q = 3 nw = Sheets("Sciezki").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Cells(q, "T") <> "" a = Split(Cells(q, "T"), ";") If UBound(a) > 0 Then For y = 0 To UBound(a) Range("A" & q & ":T" & q).Copy Sheets("Sciezki").Range("a"...
Oczywiście. Po prostu ją ukryj. (prawoklik na kolumnę [literkę oznaczającą kolumnę] i ukryj)
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Przyjąłem Twoje rozwiązanie bez wymyślania nowych lepszych. Popatrz jak działa funkcja warunkowa JEŻELI . Zwróć też uwagę na adresowanie bezwzględne =$L$7 Poprawiony z grubsza plik w załączniku. Z resztą chyba sobie poradzisz?
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).
NIE MA !!! Tak się kończy inwestowanie w prowizorkę JackuCZ, strasznieś nerwowy. Że Ty nie umiesz to nie znaczy że się nie da. Kolego jatoKacper, musisz sobie uzmysłowić do czego służy ta opcja. Gdyby nie dało się w kilku pracować na jednym pliku, jak sugeruje kolega JacekCZ, funkcja udostępniania skoroszytu nie miałaby kompletnie żadnego sensu. A...
Bo excel od MS sie do tego nie nadaje, źle odczytuje pliki csv Użyj LibreOffice
Przykładowe rozwiązanie z funkcją HIPERŁĄCZE w załączniku.
Użyj formuły JEŻELI. =JEŻELI(A1>10;"i";"... Przy czym w kolumnie B ustawiasz czcionkę Webdings w kolorze czerwonym.
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
czy ma ktoś jakąś instrukcję jak krok po kroku zrobić taki kalendarz??? nie proszę o gotowca (no chyba że ktoś jest bardzo życzliwy i pozwoli zaoszczędzić mi kilka dni a raczej nocy pracy) chodzi mi o instrukcje miło by było z jakimś screenem albo coś. A proszę, kilkadziesiąt minut pracy i cierpliwości ;) - może żadna francja-elegancja, ale coś podobnego...
Najprostsze co można zrobić (i najmniej odporne na "sabotaż" ze strony użytkownika). Działa w sumie jak zautomatyzowana funkcja wyszukiwania. Wszystko dzieje się w obrębie danego skoroszytu. W przypadku pobierania danych zewnętrznych należy się zastanowić w jaki sposób ma je pobierać (otwarcie zeszytu z danymi w tle, ado, querytables, inne). W skanerze...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
[syntax=vb] Sub karty() Dim src As Worksheet, r&, c& plk = Application.GetOpenFilename If plk = False Then Exit Sub Workbooks.Open plk Set src = ActiveWorkbook.Sheets(1) ThisWorkbook.Activate r = 2 With src While .Cells(r, 1) <> "" For c = 1 To 8 x = .Cells(r, c) If x <> "" Then For i = 1 To Len(x) Cells(c * 3 + 2, i) = Mid(x, i,...
Wypada zacząć od tego, że Excel nie jest twierdzą szyfrów i wszystkie zabezpieczenia są tu raczej symboliczne, to znaczy mają uświadomić użytkownikowi, że robi coś, czego robić nie powinien. Natomiast jeśli użytkownik jest zdeterminowany, to zawsze może znaleźć obejście, żeby coś niedozwolonego zrobić. W przypadku gdy zabezpieczenie bazuje na VBA, wystarczy...
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel) & i wg VB wynosi 1, gdzie faktycznie wartość...
Spróbuj sposobu z załącznika. Wykorzystano poprawność danych > lista w 'D6'. Wstawiłem dodatkowy arkusz z parametrami. Dopracuj, dostosuj do własnych potrzeb.
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
tabela przestawna będzie dla mnie pewnie najtrudniejsza Bez przesady. Zaznaczasz zakres, klikasz wstawianie - tabela przestawna, zaznaczasz pola, które chcesz dodać do raportu i gotowe. Potem to już kosmetyka.
Nie posiadam wersji 2010, ale jak czegoś nie wiesz zawsze możesz poszperać w pomocy Microsoftu (jest również dostępna dla starszych wersji. Wstawianie wykresu przez osadzenie go w dokumencie W przypadku osadzenia wykresu programu Excel informacje znajdujące się w pliku programu Word nie zmieniają się po zmodyfikowaniu źródłowego pliku programu Excel....
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
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.
Poza tym arkusz (sheets) nie ma w visible "opcji" True. Oczywiście ma :) Właściwość Visible obiektu może przyjąć wartość True, False. Tu raczej podejrzewam błąd w nazwie (1004), lub włączoną ochronę skoroszytu (struktura). Spróbuj marcinj12 . Wstawianie nowego: Można wykorzystać zdarzenie 'Private Sub Workbook_NewSheet(ByVal Sh As Object)'. Wyłączyć...
Ta formuła wyszła dość ciężka, może ktoś wymyśli jakieś uproszczenie. Przez wprowadzenie nazw można by było skrócić zapis, ale czas przeliczania się nie zmieni. W bloku dotyczącym dnia 27.04.2020 formuły zawierają odwołania do danych z kolumny F. Te formuły można kopiować w ramach tego bloku. Gdyby chcieć utworzyć z tego nowy blok, należałoby jedną...
Pobrałem plik ale, nie bardzo rozumiem co będzie wpisywane w arkusz, a co ma być do tego dopasowane? Możesz coś więcej napisać (co ma być w zakładce wpływ) ?
Tak jak napisali poprzednicy potrzebne jest tu adresowanie bezwzględne. Dodam jeszcze, że często przydaje się wiedza iż po wpisaniu w komórkę formuły: - =$A$1 po "przeciągnięciu" jej w dół lub w prawo zawsze w docelowych komórkach będzie wpis =$A$1 - =A$1 po "przeciągnięciu" jej w dół zawsze w docelowych komórkach będzie wpis =A$1, po "przeciągnięciu"...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
Witam!!! Od kilku dni zmagam się z problemem dotyczącym stworzenia marka w Excelu które po opcji wy filtrowaniu całego arkusza, zakres który wyjdzie zaznaczył mi na odpowiedni kolor (żółty). Oczywiście ilości wierszy oraz jego numeracja się zmienia. Tak mniej więcej wygląda na chwilę obecną wszystko działa oprócz wstawienia tła po wy filtrowaniu , bardzo...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
w wolne kratki muszę powstawiać WH W5 WN WS Pozwolę sobie zażartować: wstawiać losowo ? czy po kolei wszystkie te oznaczenia - tak aby nie było pustych kratek ? :D A na poważnie to zapytam: a na jakiej podstawie Excel ma wypełniać te puste komórki tymi znakami WH czy W5, oraz gdzie wstawiać oznaczenia "dzień wolny za niedzielę lub za święta" Jak będzie...
Hmmm. Standardowe podejście do tematu nie skutkuje. A może w tej sytuacji trzeba zrobić "sztuczkę" (niestandardowe podejście). Ja czasami jak coś nie wychodzi stosuję tę metodę i udaje się. Czy w tym przypadku można wymyślić jakąś "sztuczkę" (obejście ograniczeń)? Ps. Cały czas chodzi mi po głowie komenda "copy" - a może się mylę?
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],...
adamas_nt wstawiłem całą funkcję w moduł standardowy i dalej to samo, nie wiem jak się przechodzi krokowo, zmienna buf powinna przyjąć wartość tego co wysyła do excela mikrokontroler czyli "T1 20.5" wstawiłem w pętli do zamiast chr(10) vbNewLine i dalej błąd Run-time error '13': Type Mismatch wstaw swój plik, może przez analogię dojdę co robię źle....
nie znalazłem rozwiązania mojego problemu Nie szukaj "rybki" do skonsumowania tylko szukaj "wędki" do łowienia w zasobach VB.netu :idea:
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Masz "dziwną" liczbę bo trzeba sformatować komórkę w której masz funkcję na czas w stylu "gg:mm:ss" Z tym że ta formuła przy standardowych opcjach arkusza ci się na nic nie przyda. Bo wystarczy że zrobisz w kolejnej komórce OK lub otworzysz plik (przeliczysz) lub cokolwiek obliczysz w innej komórce to wszystkie "godziny" przyjmą tą samą wartość. Na...
zdjęcia są umieszczane luzem może to nie jest najlepsze rozwiązanie.., równie dobrze kolejne zdjęcia mogły by być w komórkach A66,A81,A96 i F66,F81,F96
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
Zrobiłem formularz do wprowadzania danych do tabeli w excelu, tylko nie wiem jak zrobić by w tym formularzu pole "LP" przyjmowało automatycznie kolejna liczbę? Macie może jakiś pomysł?
ad2 Jeżeli zrobisz wszystkie listboxy w osobnych userformach Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu...
1. Jeżeli istnieje funkcja w=f(a,b,....) to można napisać własny kod wykonujący obliczenia i wywoływać go jako formułę w komórkach. Nazywa się to funkcja użytkownika. 2. Nagranie własnego makra, które będzie wpisywało kolejne wartości A, B , a W będzie kopiowane do miejsca wynikowego. Po nagraniu makra zaprezentuj go, to zrobi się małe poprawki w celu...
Robisz pętlę od 1 do 1000, w pętli dwie zmienne N i M wskazujące aktualny numer wiersza dla kolumny A i kolumny B, bierzesz wartość z komórki której adres to kolumna A i wiersz N, wpisujesz ją do komórki, której adres to kolumna B wiersz M, zwiększasz N o 1, a M o 3 i tak do końca pętli. Wszystko w małym kodzie.
Witaj ="=MAX(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])"
Zerknij tutaj: [url=http://www.elektroda.pl/rtvforum/vi... Post #4, pkt.2
W E2003 działa to tak, jak na rysunku: http://obrazki.elektroda.pl/1246912100_1... To miałem na myśli w pierwszym punkcie poprzedniej wypowiedzi. Musisz skorzystać z paska umożliwiającego wstawianie elementów formularza i wstawić z tego paska odpowiedni element do arkusza. Prawdopodobnie korzystasz z jakiejś innej opcji. W razie problemów...
Super pewnie ale troszke nie wiem jak z tego skorzystać jak przekopiowuje do module to nie moge odpalic dacie jakas podpowiedz W swoim 'userform' musisz wywołać funkcje 'pastepicture' i w zależności od posiadanej wersji systemu będzie to win32 lub win64. (patrz co podał ci (at)adamas_nt chociaż on ładuje obraz do 'ramki')
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...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
To nie są ActiveX, więc nic z tego. A nie wystarczy Ci takie szybkie wstawianie na skróty: Ctrl + : spacja Ctrl + Shift + : Wszystko "ciurkiem" w komórce...
Zastanawiam się dlaczego nie zamieściłeś swojego kodu... Wstawianie do tabeli nie różni się niczym od wstawiania w komórki poza tabelą. Jedyna różnica jest taka, że jak dodaje się w nowym wierszu tabeli, to jest ona automatycznie powiększana o ten wiersz. [syntax=vbscript]Sub WstawNaKoncu() Arkusz1.Cells(Arkusz1.Cells(Rows.Count, "A").End(xlUp).Row...
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i wartości z kolumn zostały by skopiowane i wstawione "jako...
Czy ktoś pomoże W LibreOffice można to zrobić w dwóch krokach przy użyciu wyrażeń regularnych :spoko: 1159078 1159079 W Wordzie zapewne też to można zrobić, ale Microsoft ma odmienne zasady tworzenia wyrażeń regularnych :cry:
Poczytaj: https://calculatic.pl/poradnik/wstawiani...
Wygląda OK. Dopisz tylko wstawianie czasu: [syntax=vbscript]Sub cyk() Calculate Application.OnTime Now + TimeValue("00:00:01"), "cyk" Range("G2")=Format(Time, "hh:mm:ss") End Sub[/syntax]
Ale w czym problem? Schemat kodu masz. Mam nadzieję, że go rozumiesz. Poprzednio pisałeś, że chcesz zaznaczać komórki A1 w arkuszu, który ma być drukowany (przynajmniej ja tak zrozumiałem), teraz widzę, że chciałbyś, żeby te komórki były zaznaczane w arkuszu "FORMULARZ", więc trzeba dodać tę nazwę arkusza do adresu: [syntax=vbscript]Sub Drukowanie()...
Prot, mógłbyś wyjaśnić jak miałoby działać to makro, które przywołałeś? Pokazałem tylko, że istnieje możliwość wywołania makra przy zmianie którejkolwiek wartości formuły w obserwowanej kolumnie. ale wtedy wychwycenie wiersza, w którym nastąpiła zmiana jest znacznie trudniejsze niż proste x=Target.Row Twój kod wychwytuje wiersz, w którym nastąpiła...
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Mam jeszcze jeden problem. Wasze podpowiedzi były super i dzieki, ale jak zrobic by po dodaniu juz kolumny w odpowiednim miejscu na podstawie podanej daty excel wstawiał w tej kolumnie w wierszu 2 formułę sumujaca dla tej kolumny wartosci od wiersza 4 do 3000. poniżej podaje pracujacy juz kod [syntax=vb]Private Sub cmb_dodajdzien_Click() Dim DataPodana...
Wpisz dwa kolejne wyrazy ciągu (np. 10.0.0.1, 10.0.0.2) zaznacz i przeciągni. Excel sam wpisze kolejne.
Wtrącę się choć mi się nie chce. Każdy z was ma trochę racji. Fakt excel to podstawa i dzięki filmikowi przerobiłem temat i mogę powiedzieć że jest OK i nie będę polemizował. Dodałeś przykład to się ceni. Na pewno ktoś wykorzysta to w przyszłości, nie koniecznie bazując na moim rozwiązaniu a na twoim MISZCZU. Problemem jest to za co nie lubię tego typu...
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
To jest tylko około 2 000 rekordów. Ma kopiować dane ze wszystkich komórek z wiersza powyżej. Wstawianie nowego wiersza ma być tylko , jeżeli w kolumnie G w komórce jest liczba >1. Np. jezeli jest liczba 5, to ma dodać 4 wiersze, a w wierszu gdzie jest 5, to ma zamienić liczbę na cyfrę 1. Chcę aby to można było zrobić na dodany przycisk odśwież. (ma...
Makro musiało Te makro to właśnie wstawianie 'wyszukaj.pionowo'
Jak zrobić by w danej kolumnie arkusza dane tekstowe były automatyczne zmieniane na odnośniki? Wiem iż można na to zrobić. Przez wstaw odnośniki ale jak ma 50 adresów www to wstawianie takie jest utrudnione.
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
.. Niestety na kopiowanie danych poprawność danych nie pomoże.. Ale włączenie ochrony arkusza pomoże, umożliwiając równocześnie wstawianie danych w komórkach które nie są zablokowane.
No właśnie tak myślałem, że mówimy o czym innym. Mi nie chodzi o to żeby w arkuszu wstawić deweloper->wstaw->pole tekstowe tylko wstawianie -> poletekstowe Dodano po 4 Dżizus :). Właśnie o to mi chodziło. Wielkie piwko dla Ciebie kolego
W załączniku AKTUALNY (28-06-2009) arkusz, umożliwiający wstawianie i usuwanie dowolnej ilości wierszy nad nagłówkiem tabelki.
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ą.
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Dzięki za kod ale nie wiem co robię nie tak bo mi nie działa. Robię to w ten sposób że nagrywam puste makro (tzn klikam ikonkę narywania a potem od razu stop). Potem wchodzę w edycję tego pustego makra i wklejam podany kod. Robię tak ponieważ nie umiem robić tego poprzez wstawianie modułów. Pytanko tylko czy przy nagrywaniu mam to makro nagrać w "Ten...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
Super! Działa. A tak przy okazji kiedy byłem zdesperowany brakiem postępów w zrozumieniu programu Notepad++ rozpracowałem jak coś takiego zrobić przy pomocy MS Excel 2016 oraz MS Word 2016. W załączeniu krótka instrukcja. 1/Otwieramy plik tekstowy w którym są *hex nie podzielone przecinkiem w Excelu i klikamy na zakładkę "Dane". https://obrazki.elektroda.pl/8460383400_...
Pole tekstowe dodane przez: Wstawianie -> Pole tekstowe [syntax=vbscript] Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes("pole tekstowe 1").TextFrame.Characters.Text = Target.Text End Sub [/syntax]
Wstawianie komórek, to umiem, tylko własnie nie mogę se poradzić z tą funkcją aby sumowała mi kolumny ale żeby nie brała pod uwagę tych 3 komórek które wypisałem
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
Jakiegoś ewidentnego błędu w tym kodzie nie znalazłem, być może jakieś przypadkowe interakcje z innym kodem. Natomiast generalnie ten kod wykonuje mnóstwo niepotrzebnych czynności i można go znacznie skrócić. Może w tej skróconej formie będzie działał lepiej (a przynajmniej w razie wystąpienia błędu łatwiej będzie go zlokalizować). [syntax=vbscript]Sub...
Można też bez formuł: Sposób 1: W komórce A1 wpisujesz dzisiejszą datę (nie używasz formuły DZIŚ() ), w A2 datę za miesiąc. Zaznaczasz obie komórki, najeżdżasz kursorem na prawy dolny róg zaznaczenia (kursor zmieni się w czarny krzyżyk) i z wciśniętym lewym przyciskiem myszy przeciągasz zaznaczenie o tyle komórek ile potrzeba. Sposób 2: W komórce A1...
Zbyt enigmatycznie opisujesz kolego swój problem :cry: (dodatkowo brak przykładowego pliku lub ilustracji :!: ) Co tam ma być w tych wierszach "stopki" każdej strony (rozumiem, że strony wydruku ? analogicznie jak wstawianie początkowych wierszy :?: ) - sumy częściowe, jakieś wartości do przeniesienia, czy stałe informacje tekstowe ? W podobnych przypadkach...
Witam Mam program który generuje mi plik programu excel z danymi, które mają taki sam rozkład w kratkach arkusza i potrzebuje stworzyć szablon dokumentu który pozwoli mi na wstawianie tych danych automatycznie do tego dokumentu z możliwością wydruku. Szablon to ja sobie już stworze bo to nie problem chodzi mi bardziej o możliwość automatycznego generowania...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Witam, Mam arkusz kalkulacyjny a w nim w kolumnie A spis rysunków, np.: A1: AW-17.00.00 A2: AW-17.01.00 A3: AW-17.02.00 itd. .... W miejscu gnie znajduje się plik EXCEL mam folder ze skanami rysunków. Skany rysunków są nazwane tak sam jak w arkusz kalkulacyjnym, a więc C:\\Nowy_folder\Skany\AW-17.00.00.jpg C:\\Nowy_folder\Skany\AW-17.01.00.jpg C:\\Nowy_folder\Skany\AW-17.02.00.jpg...
Nie będzie taki dobry wcale ;) Wszystko zależy, jak szeroki zakres operacji przeprowadzasz, czy faktury będą tylko krajowe, czy także walutowe, czy przewidujesz (a w zasadzie musisz) wystawianie korekt, czy będą faktury zaliczkowe i rozliczające... A o zachowywaniu nie wspomnę. Te wszystkie przypadki sprawiają, że programy okazują się lepsze. A są i...
wydaje się, że wystarczy porównać Nr kolumny Twoja "odchudzona" formuła jednak inaczej reaguje na wstawianie kolejnych liczb w danym wierszu :sm31: - co wynika jednak z tej specyficznej cechy funkcji PODAJ.POZYCJĘ - zawsze podaje pierwsze wystąpienie liczby w zadanym zakresie :cunning: IMHO pożądane formatowanie winno kolorować pierwszą komórkę z wartością...
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
excel wstawianie formuł wstawianie wierszy excel excel wstawianie obrazków
przesłuch kanał wyskakiwać reklama załączenie tyrystora bocznikiem
Samsung R540S - Bootowanie z CD/DVD Funai VIP 3000 - brak obrotów głowicy i capstan motor
