chcę aby było sprawdzane potwierdzenie we wszystkich wierszach Chyba nie potrafisz jasno sprecyzować założeń swojego projektu :cry: Zamieść na forum konkretne pliki i powiązany z nimi szczegółowy opis co chcesz osiągnąć :?: Wybrałeś błędnie funkcję wyszukaj pionowo do przeszukiwania kolumn w której powtarzają się jakieś "potwierdzenia" - to "z definicji"...
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
Dalej jest źle bo nie to spakowałeś ale już stworzyłem sam. Na razie bez makro ale dodałem kolumnę pomocnicza D (Jak masz dane to prawy klawisz myszy na literę kolumny D i "Wstaw"
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Domyślam się, że je po prostu prze-kleiłeś czyli zrobiłeś połączenie 2 plików które będzie działać jeżeli prześlesz oba pliki (word i excel) i znajdą się one w odpowiednich lokalizacjach. Aby załączyć wykresy Excela, tak aby po wysłaniu je edytować najłatwiej je osadzić tzn. w dokumencie programu Word kliknij wstaw obiekt -> Microsoft Excel Chart. dwuklik...
Makro musiało Te makro to właśnie wstawianie 'wyszukaj.pionowo'
Musisz zadecydować kiedy data ma być zapisywana do komórki. Komórka z datą ani nie może być wynikiem funkcji, ani działania makra. To Ty masz zdecydować jakie zdarzenie zapisze datę prania w kolumnie z datami prania. a mi zależy na dniu, w którym kod kreskowy będzie zeskanowany No właśnie do tego zdarzenia dodaj zapis daty prania...
To dokładnie tak jak napisałem : (Alt +F11) - pojawia się okno VBA. Wskazujesz po lewej (klikasz 2 razy) na nazwie arkusza, w którym chcesz zrobić taką zależność. i tutaj zrobiłem (przyznaje się) mały błąd. Kod umieściłem w This Workbook - a nie w konkretnym arkuszu. Kod w arkuszu (np. w Arkusz1) wyglądać ma tak: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal...
Z rysunku w pierwszym poście wynika, że chodzi o procedurę 'Sub Dodaj' (masz ją w module, uruchamiana jest przyciskiem [Dodaj]). [syntax=vbscript]Sub Dodaj() Administrator = UserForm1.CheckBox1.Value Kablowiec = UserForm1.CheckBox2.Value Kierowca = UserForm1.CheckBox3.Value Lp = UserForm1.TextBox1.Value stopien = UserForm1.TextBox2.Value Imie = UserForm1.TextBox3.Value...
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
A jak by można to zapisać jeśli kolumny nie są obok siebie ? Nie są ABC tylko MPT. W przypadku mojej formuły wystarczy wpisać właściwe komórki. W przypadku proponowanym przez Kolegę cbrman najprościej w nieużywanym miejscu arkusza zrobić tablicę wpisując obok siebie odniesienia do właściwych komórek i ukryć ten obszar lub wyłączyć wyświetlanie w tym...
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...
Najpierw makro, które wstawi przecinki.
Skorzystaj z funkcji POWT() podając jako drugi argument ilość znaków wymaganą do wstawienia. Jeżeli ilość ta jest zmienna a z tego co przeczytałem wynik ma mieć stałą ilość znaków wartość tą możesz obliczyć odejmując od wymaganej aktualną długość łańcucha zmierzoną za pomocą funkcji DŁ(). Obie w funkcjach tekstowych Excel-a. Edit: Można też mierzyć...
Zaznacz (+Ctrl) zakresy B1:B7, D1:D21, F1:F26 - wstaw wykres, dodaj trend
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
Wstaw lipne dane i załącz plik
Wstaw skoroszyt
Wstaw obiekt ==> Wstaw dokument Excel lub Wstaw dokument Word ==> Wybór arkusza Excel'a lub tabeli Word'a ==> Powrót do WordPad'a
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Witam Wartości w arkuszu gdy chcesz je w jednakowej odległości na osi x musisz zapisać jako tekst. W komórce przed wartością wstaw apostrof " ' ". Pozdrawiam Jarek
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Przeanalizują załącznik. Opcja szukaj w pomocy: "dodawanie dat", wynik powinien zwrócić ci: "Dodawanie liczby miesięcy do daty" Przetestowane na Office 2003
Używałem tej opcji ale tylko dla "zwykłych tabel" czyli komórek obramowanych itp. Jak w Excel mam wstawione table przez "wstaw tabele" to nie ma możliwości wykonywania operacji na więcej niż jednym arkuszu w obszarze tabeli (opcja wstaw kolumny jest nie aktywna).
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
O ile dobrze pamietam, naciśnięcie Alt+Enter rozpoczyna nowy wiersz w aktualnej komórce.
Wstaw załącznik.
wiem, że pewnie to głupie pytanie ale chyba gdzieś robię jakiś głupi błąd i się zakręciłem. Jak by wyglądało makro na następujące warunki? np. Jeżeli $G$9=E11 to wstaw w G11 aktualną datę z zablokowaną wartością?
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Tak się nie da. Usuń sumy częściowej. Dodaj kolumnę pomocniczą z funkcją suma.jeżeli() w której warunek będzie "odbiciem" "warunku" dla sumy częściowej i według tej kolumny posortuj dane (jako pierwszy klucz). Dopiero wtedy wstaw ponownie sumy częściowe.
Wstaw tu przykładowy plik.
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
Bardziej zależy mi na tym wprowadzaniu godziny by się podstawiało imię i nazwisko w drugim arkuszu Próbowałem spełnić Twoje oczekiwania :cry: lecz ze względu na złożony układ tabeli roboczej (masowe scalanie komórek, wymieszane dane liczbowe i tekstowe, na jednych stanowiskach tylko obsada jednoosobowa, na innych różnie czasem dwu a czasem trzyosobowa,...
Jak masz kłopot ze wstawieniem to spakuj to zipem A na temat zrób tak jak radzi paweliw wstaw hiperłącza odwołujace się do tego samego dokumentu i już
[syntax=vbscript]Sub HL() Sciezka = "C:\Users\Biuro\Desktop\Dok\" If Dir(Sciezka & Selection & ".pdf") <> "" Then Selection.Hyperlinks.Add Anchor:=Selection, Address:=Sciezka & Selection & ".pdf", TextToDisplay:=Str(Selection) End If End Sub [/syntax] Wygodniej jest 2x kliknąć...
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...
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. W programowaniu nie ma 'na przykład. Dlatego pokaż arkusz wejściowy i arkusz po wykonaniu makra.:)
No to masz od tego funcję: JEŻELI(warunek, wartość_jeśli_prawda, wartoś_jeśli_fałsz) lub funkcję if () w VBA. Skoro masz obliczoną liczbę palet, robisz warunek w któym sklejasz wszystko w całość: [syntax=vbscript]=JEŻELI(liczba_palet > 0; liczba_palet & " palet x " & B4 & "szt. + "; "") & JEŻELI(liczba_kartonow > 0; liczba_kartonow & " kartonow x "...
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...
Może wstaw .xls
ale jak to zrobić? jestem całkowicie zielony, jest to moja pierwsza styczność z excelem :/ Nazwy definiujemy w menu Wstaw->Nazwa->Utwórz (excel2000) W załączeniu przerobiony przykład z wykorzystaniem zdefiniowanych nazw.
Tak, było wymagane przewijanie. Wszystko działa, testowałem go. Oto prawdziwy przykład.
:arrow: tagy Słuszna koncepcja. Ale jeśli "dziura" jest wewnątrz (dalsze wiersze zawierają już coś), to wartość wpisana zostanie w ostatnim wierszu. Sprawdzałbym raczej od góry Cells(Cells(3, 3).End(xlDown).Row + 1, 3) = InputBox("Podaj cos")
[syntax=vbscript]Sub Naglowki() If Application.CountIf(Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), [A1]) > 1 Then Exit Sub w = 2 While Cells(w, 1) <> "" n = w + 1 If Cells(n, 1) <> Cells(w, 1) And Cells(n, 1) <> "" Then Rows(n).Insert Range("A1:E1").Copy Cells(n, 1) w = w + 2 End If w = w + 1 Wend End Sub [/syntax]
Np. tak: [syntax=vb]Columns("A").NumberFormat = "yyyy-mm-dd hh:mm:ss" Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Now[/syntax]
Start > Uruchom > charmap
INDIRECT to to samo co ADR.POŚR, tylko po angielsku. Tu się nie przyda. W załączniku przesyłam przykład rozwiązania. 2 pliki z danymi w tych samych miejscach i 1 plik raportu, który te dane odczytuje. Te 3 pliki powinny być zapisane na dysku w tym samym katalogu. W przykładzie pokazałem jak można odczytać pojedynczą wartość i kilka wartości z prostokątnego...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
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,...
Wydaje mi się (ale może tylko wydaje), że formatowanie osi Y bez użycia podstępnego VBA (przynajmniej w starszych wersjach Office-a) jest niemożliwe. W załączniku podsyłam Ci próbki wykresów. Może cię przydadzą.
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
[syntax=vb]Dim zmienna As String zmienna = "blablabla" ActiveSheet.Shapes("pole tekstowe 1").TextFrame.Characters.Text = zmienna[/syntax]
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
Witam Czy ktoś wie jak można wstawić obrazek ze skoroszytu do image box w userform. Chodzi o to, że chce po naciśnięciu przycisku zaczytywał by mi się obrazek który jest umieszczony w komórce. Wiem że należy użyć Image1.Picture = LoadPicture, tylko co tu wstawić?
Podmień na [syntax=vbscript]Sheets("TEST_2").ListOb... colStart), Cells(row, colEnd)).Value = Sheets("DoPowołania").Range("L1").Value[... lub [syntax=vbscript]Sheets("TEST_2").ListOb... colStart).Resize(, colEnd).Value = Sheets("DoPowołania").Range("L1").Value[...
Wstaw swój arkusz, żeby można było widzieć, na czym pracujesz.
W mojej ocenie w Twoim pliku widać, że w ogóle nie panujesz nad tym co drukujesz :cry: Ustaw sobie właściwie obszar drukowania, spójrz na widok podział stron, ustaw właściwe skale. W większości arkuszy masz ustawione: szerokość jedna strona i wysokość jedna strona i normalnie te dwa obrazki się nie mieszczą "w drukarce" :D Proponuje albo zmodyfikować...
Przetestuj poniższe makro: [syntax=vb]Private Sub CommandButton1_Click() Dim DataPodana As Date Dim lCol& DataPodana = InputBox("Wprowadź datę dniówki w roku rozliczeniowym " & Date, , Date) On Error Resume Next lCol = Application.Match(CLng(DataPodana), Range("3:3"), 0) On Error GoTo 0 If lCol = 0 Then lCol = Application.Match(CLng(DataPodana), Range("3:3"),...
Tam robiło się to podobnie, tylko definiowałeś nazwę (wstaw->nazwa->definiuj czy jakoś tak)
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:
Funkcja taka to: "=JEŻELI(B4<50;B4+0,35*B4;JEŻELI(B4&l... zamiast 'B4' wstaw sobie komórkę w której masz daną
Ewentualnie użyć pierwszego wpisu jako wzorca dla formuły która w środek wstawi odpowiedni offset funkcją KOMÓRKA
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...
No to akurat rozwiązanie z kodem, ale skuteczne. :) Rozpakuj załącznik, otwórz Liczniki i naciśnij 'Importuj'.
nie np wstawi sie znak nieskonczonosci...
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ń...
Bo to nie jest formuła tylko ciąg znaków. Skorzystaj z funkcji ZŁĄCZ.TEKSTY (czy jakoś tak).
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
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...
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...
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...
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"...
Był błąd w kodzie. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then r = Target.Row If Cells(r, 3) = "" Then Cells(r, 3) = Now & " - " & Target & " - " & Environ("Username") Else Cells(r, 3) = Cells(r, 3) & vbNewLine & Now & " - " & Target & " - " & Environ("Username") End If End If End Sub [/syntax]
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
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) = ""...
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(...
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.
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Jak prawidłowo wstawic funkcje tolerancji by wynik wyszedł ok lub nok. By zastosować do wszystkich rodzaju z etykiet. https://obrazki.elektroda.pl/8254752100_... AI: Jaka wersja programu Excel jest używana? Podstawowa
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...
tabelki bedą sie róznic opisami poza zółtymi polami i jak nacisnę wstaw b2 to wstawi z arkusza tabelka_b2 i analogicznie z F
zobacz zamiast b2 wstaw e2
Próbowałem w komórkach arkusza. Jeżeli chcesz uzyskać indeks górny tylko części zawartości komórki, należy znak indeksu poprzedzić spacją (sprawdzone, jeśli piszesz ciągiem, niby pokazuje że znak idzie do góry, ale po zatwierdzeniu wraca do normalnej postaci. Cały M$... Mam Office 2007. Także zapisujesz np. 10 2 - 2 - właściwości czcionki, indeks górny,...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
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,...
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, -2) = Date Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1 End If End Sub
Przykładowe rozwiązanie z funkcją HIPERŁĄCZE w załączniku.
błąd w O9 - =JEŻELI(N10*5%=0; "" ;ZAOKR(N10*5%;2)) -Nie można mieszać numery i ciag To byłoby =JEŻELI(N10*5%=0; 0 ;ZAOKR(N10*5%;2)) ponieważ w V9 - suma
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?
Jeśli indeks arkusza, czyli jego nr położenia w zeszycie, to np. tak: [syntax=vba]Option Explicit Sub wstaw_nr_arkusza_w1() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets ark.Range("a5").Value = ark.Index Next End Sub [/syntax] Można to powiązać np. z procedurą otwarcia zeszytu 'Workbook_Open': [syntax=vba]Private Sub Workbook_Open() Call...
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...
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,...
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
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",...
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).
excel makro wstawi excel makro wstawi wiersz eeprom wstawi
charakterystyka amplitudowa fazowa otrzymać potwierdzenie archiwizacja nagrać rejestratora
nasłuch warszawa nasłuch warszawa
Ustawienie gaźnika w pilarce Faworyt RG 5300 18 Tryb serwisowy telewizora Majestic SM22 - jak wejść?