Excel'owska :) Zakładając, że lista (może być z "dziurami") jest w A1:A1000 [syntax=n]=ADR.POŚR("A"&SUMA.ILOCZYN...
https://obrazki.elektroda.pl/1561315800_... Wpisujesz formułę przy pierwszej pozycji, resztę kopiujesz.
Każdy skaner ma w swoich ustawieniach opcję zakodowania "entera" po odczycie. Do każdego jest dołączona plastikowa karta lub odpowiednio przygotowana karta papierowa z kodami sterującymi i ustawieniowymi. Cała sprawa polega tylko i wyłącznie na zeskanowaniu odpowiedniego kodu z takich kart i gotowe.
... JEŻELI(B9&C9&D9&E9&F9&am... ...
Wystarczy użyć choćby wyszukaj.pionowo() czy też indeks() i pobrać odpowiednie wartości z arkusza cennik.
Jak sprawić aby excel sam po wpisaniu odczytu licznika z datą nowego miesiąca liczył sumę Całą prostą zabawę można zrealizować w jednym arkuszu (oczywiście można to rozpisać na kilka arkuszy z odpowiednimi odwołaniami ;-) ) np. tak jak na zrzucie 1232639 Musisz jednak wprowadzić odpowiednie formatowanie wszystkich danych i wykorzystać kilka formuł...
Ani. Najprawdopodobniej nie opisujesz problem. Utworzym dwa pliki, jeden w odwołań A1 do A1 innego. Zapiszem i zamkniem oba. Otwarte ponownie - w pierwszym w A1 zapiszem wartości, w innem tam w A1 ta wartość. Żadnych komunikatow. Aby załącznik dwa Twoje pliki tutaj.
Dodano po 3 Strona 14. Carriage Return/Line Feed To append a carriage return/line feed to all transmitted data, scan the following bar codes in the order shown. To cancel this operation, the SET DEFAULTS bar code on page 8, or refer to the Product Reference Guide. Lepiej?;)
Jeżeli wprowadzisz odpowiednią kolumnę pomocniczą w arkuszu głównym :spoko: to pożądany efekt można uzyskać formułami jak na zrzucie 927750 Całość w załączniku. 927751
Najlepiej wykorzystać zmianę w kalendarzu. Wklej w kod arkusza "Kalendarz" [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$18" Or Target.Address = "$I$18" Then With Sheets("Szychtownica") For i = 34 To 32 Step -1 If .Cells(2, i).Value = "" Then .Columns(i).EntireColumn.Hidden = True Else .Columns(i).EntireColumn.Hidden...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Then Exit Sub[/syntax]
Zmieniłeś kolumnę gdzie jest wyrażenie :) =JEŻELI(NR.KOLUMNY(J$10)=$Q14+1;"NOK";JE... Teraz powinno być: =JEŻELI(NR.KOLUMNY(J$10)=$Q14+9;"NOK";JE... Liczba +1 (+9) "dopasowuje" wynik funkcji NR.KOLUMNY() do wartości w NOK. NR.KOLUMNY() dla kolumny...
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex = 6 Target.Locked = True Protect "a" End Sub[/syntax]...
Harmonogram zadań?
Witaj Trochę wątpliwości. Dlaczego jest to tak ważne, aby bez makr?
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
Sprawdź w opcjach (menu: Formuły) czy masz włączone autouzupełnianie. Łatwo to niechcący przełączyć (Alt + Down Arrow)...
Zerknij czy tak jest dobrze:
Pytanie chyba niezbyt przemyślane, a propozycja rozwiązania prosta, ale dość ryzykowna. A co będzie jak użytkownik kliknie dwa lub trzy razy? Nie ma żadnego śladu, co było pierwotnie w komórce, ani możliwości cofnięcia operacji. Poza tym, czy w arkuszu będzie tylko jedna taka cena? Jeśli wiecej, to przy każdej będzie przycisk? Moim zdaniem lepszym rozwiązaniem...
Zawijaj tekst się nie sprawdzi?
Trzeba utworzyć klasę, w której publicznie zadeklarować obiekt ze zdarzeniami (np. Public WithEvents myXL As Application) Dodano po 34 http://www.swiatexcela.pl/2011/09/11/zda... http://training-course-material.com/trai... Szukaj - Zdarzenia na poziomie Aplikacji
Dobry wieczór, Wprost nie da się tego zrobić, ale można okrężną drogą. Trzeba podzielić dane na serie zgodnie z regułą formatowania warunkowego. Następnie każdą serię nanieść na wykres i pokolorować wg życzenia. Serie wyświetlać na wykresie jako nakładane. Pozdrowienia
Do komórki F2 wklej formułę =JEŻELI(LICZ.JEŻELI($C$2:$C$... i przeciągnij do dołu.
Bez VBA raczej się nie da. Jeśli mowa o VBA, ComboBox ma tę właściwość. W przykładzie uForm uruchamiany przez podwójne kliknięcie. Możesz wybrać z listy lub wpisując pierwsze znaki. Zatwierdzasz Enter'em. Spróbuj, może to jest to...
A może arkusz pomocniczy z funkcjami wyszukującymi i adresowymi (Dodałem w "SPT" słowo "Wynik" w kolumnach K i N): http://obrazki.elektroda.pl/8432508000_1... A w arkuszu "RC" zamiast nazwy zakresu użyć wyniku z D1? Np =LICZ.JEŻELI(ADR.POŚR(Arkusz1!D1...
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
moze ktos ma pomysł jak to prosto ogarnąć Obawiam się, że przy pomocy Excela i VBA trudno to będzie funkcjonalnie zrealizować ;-) tym bardziej, że jak widać mamy tu do czynienia z jakimiś produktami spożywczymi i każdy błąd kodu może mieć poważne konsekwencje. Jak sam piszesz: przy uruchomieniu excel aktualizuje baze z zewnatrz to dlaczego nie wykorzystać...
Patrz zdarzenie arkusza Worksheet_SelectionChange
[syntax=vb] Sub Link() Dim x As Long, Adres As String x = 1 While Cells(x, 1) <> "" Adres = Cells(x, 1) Cells(x, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www." & Adres, TextToDisplay:=Adres x = x + 1 Wend End Sub [/syntax]
Trzeba dopisać do kodu jedną linijkę i zakończenie instrukcji warunkowej (bo już nie zmieści się w 1 linijce): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub If Target = 2 Or Target = 3 Then Range("J" & Target.Row & ":AP" & Target.Row) = 0 Range("AQ" & Target.Row).Select...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Po co ochrona, jesli np. przed tym(zamykaniem) "użytkownik przez przypadek kasuje jakąś formule"? W kazdym razie mozna uzyc zdarzenia[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each s In Me.Sheets s.Protect 'ew. haslo Next Me.Save End Sub [/syntax] Ale lepiej mieć zapasowe arkusze i przed zamknięciem kopiowanie formuł, lub, jeśli...
Masz tylko datę przydatności (do spożycia) a to nie to samo. A jeśli to magazyn z żywymi karpiami? Jedna (ryba) mogła wejść (wpłynąć) najedzona, inna na czczo. Ważniejsze jest, moim zdaniem, ile jeszcze pociągnie niż to kiedy wpłynęła, tzn weszła na staw, tfu, stan ;)
Powiem tak: przeczytaj jeszcze raz mój ostatni post #8 (tak od połowy) i porównaj z tym, co masz. Obecnie każdy z 4 argumentów funkcji WYSZUKAJ.PIONOWO (tej z ostatniego załącznika) masz zły :) Grunt, to dobrze zrozumieć tą funkcję: może Wyszukujemy wartości komórki (dajmy na to) U17; przeszukiwany zakres to Y6:AC59 i szukam tego w kolumnie 1. Czy tak?...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Można makrem można tak wklej to do module [syntax=vbscript]Function istnieje(s As String) As Boolean istnieje = Dir(s) <> "" End Function[/syntax] i wtedy [syntax=vbscript]=JEŻELI(istnieje("C:\sk...
Może źle wpisałem funkcje O, to to... ;D Wpisujesz Arkusz2!A:B (ewentualnie Arkusz2!$A$2:$B$15 - koniecznie z dolarami i do końca zakresu, który powinien pozostać wtedy niezmienny) a nie Arkusz2!A2:B2.
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
W takim razie temat do zamknięcia.
Można formułą, ale chyba lepiej makrem, np: [syntax=vbscript] Sub aaa() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 16 For j = 1 To 52 For k = 0 To 5 Cells(((i - 1) * 52 * 6) + ((j - 1) * 6) + (k + 1), 1).Value = "N" & Format(i, "00") & "-" & Format(j, "00") & "-" & Format(k, "00") Next k Next j Next i End Sub [/syntax]
wpisuję kolejno w 1a imię 1b nazwisko 1c nr tel Zawsze w tej samej komórce?(wiersz 1) Dodano po 16 w kodzie arkuszu (dane wprowadzone ) [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim rekord As Range, baza As Range Set rekord = Range("A1:C1") Set baza = ActiveSheet.Next.Cells If Intersect(Target, rekord) Is Nothing Then Exit Sub...
Niektórych klientów nie ma przypisanych do firmy także fajnie byłoby jakby pole klient zostało puste Do formuły kolegi Kindlar dodaj jeżeli.błąd :D tzn. JEŻELI.BŁĄD(WYSZUKAJ.PIONOWO(A2;Arkusz2!...
[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...
Nie jestem pewien, czy dobrze zrozumiałem.
Dobry wieczór, To można zrobić stosunkowo prosto. Wystarczy zaznaczyć pole tekstowe, w polu formuły wpisać = i kliknąć komórkę, do której chcemy utworzyć odwołanie. Potem tylko sformatować czcionkę. Przykład w załączniku. Pozdrowienia.
Czyli chodziło o uzupełnienie kolumny A ? Jeżeli tak, to najpierw zrobiłem tabelę pomocniczą w arkuszu3 z wartościami unikalnymi.(filtrem) Wg niej funkcja uzupełniła brakujące puste pola.
Skorzystaj z Licz.jeżeli() W A1 wpisz: =B1&"/"&LICZ.JEŻELI($B$1:B1;B1) I przeciągnij w dół
Najprościej byłoby z wykorzystaniem kolumn pomocniczych (załącznik) P.S. Formuły są "kopiowalne" w pionie i w poziomie, nie będzie więc problemu z kolejnymi (w przykładzie) miastami.
Tak, dokładnie o coś takiego chodziło. Tylko Skąd i Dokąd bym na dwie kolumny rozbił (zakładając że chcesz je mieć potem w raporcie). Nazwy mają się powtarzać. Teraz możesz np. zrobić tabelę przestawną jak w załączniku: http://obrazki.elektroda.pl/2261331300_1... popróbować z różnymi funkcjami czy nawet próbować jakieś makro napisać,...
W kodzie arkusza [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Target.Resize(, 2).Interior.Color = vbRed Sheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Resize(, 2).Offset(1) = Target.Resize(, 2).Value Cancel = True End If End Sub[/syntax]
dzięki za błyskawiczne rozwiązanie :)
Przykładowo: W komórce A2 formuła: =JEŻELI(B2="";"";1) W komórce A3 formuła: =JEŻELI(B3="";"";MAX($A$2:A2)+1) Kopiujesz formułę z kom. A3 w dół i masz L.P. w kol. A. dla niepustych komórek w kol. B. Mogą być przerwy w kol. B.
Mogłeś chociaż wyklikać formularz...
Teoretycznie można coś tam w zdarzeniu Worksheet_Change pokombinować, ale w praktyce to raczej trudne do zrealizowania - zawsze można wyłączyć makra albo usunąć cały arkusz. Najlepiej w takim wypadku zablokować plik i jego strukturę i przygotować go tak, żeby użytkownik mógł wykonywać tylko dopuszczone akcje, np. wprowadzać dane tylko w wyznaczone pola...
Witam, Zainteresuj sie FORMATOWANIE WARUNKOWE przyklad: http://www.pszyperski.republika.pl/Forma... poz Olgierd
A nie wystarczy wyłączyć obsługę zdarzeń przed otwarciem tego "innego" pliku? Zdarzenie Workbook_Open nie powinno się wykonać.
Lepiej zastosować wyszukaj.pionowo. Przykład (nazwa jest wpisywana w A1) w B2 wpisz =WYSZUKAJ.PIONOWO(A1;Arkusz2!A:D... w C2 wpisz=WYSZUKAJ.PIONOWO(A1;Arkusz2!A&... w D2 wpisz=WYSZUKAJ.PIONOWO(A1;Arkusz2!A&... Chociaż twoje rozwiązanie tez by przeszło tylko popełniłeś błąd wskazując (całą) tabelę z danymi...
Opisane trochę niejasne, ale funkcja PODAJ.POZYCJĘ a INDEKS może pomóc
Popraw swoje formuły i będzie działać. Niezauważyłem tego wcześniej bo przyznam że w mojej przygodzie z excelem nie spotkałem się jeszcze nigdy z takim "błędem". Teoria: Jeżeli w komórke wpiszesz "2" to owszem widzisz dwójkę ale excel odczyta to jako tekst o znaku 2 a nie cyfrę dwa. (rozumiesz niuansik?) Dla excela "0" to tekst i nie jest tożsame z...
Witam, Można użyć prostego makro - tylko nie wiem, czy o takie coś chodzi koledze: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim x As String If Target.Value = "" Then Exit Sub x = Replace(Target.Value, " ", "*") If Left(x, 1) <> "*" Then x = "*" + x If Right(x, 1) <> "*" Then x = x + "*" Target.Value...
Dzień dobry, Można to zrobić formułami Excela jak w załączonym pliku. Kolumny z "u" są sformatowane warunkowo. W ostatniej kolumnie musi Pan sobie uzupełnić obramowania. Numery dni miesiąca są podbarwione na stałe, więc zakres zabarwiony czasem sięga za daleko. Może Pan sobie to zmienić na formatowanie warunkowe. Tabelka jest wypełniana od daty wpisanej...
[url=https://stackoverflow.com/questions...
Ech, pomyliłem. Nie tłumacząc zbyt wiele. Wpisz w K10: =J10+(13-WIERSZ())/100+I10/10 i przeciągnij w dół. Zasada się nie zmienia, ale wartości chcemy od zera w górę. Dodajemy mały ułamek wiersza i dodajemy duży bilansu. Jeśli bilans ujemny - zmieni się znak (ułamka) na minus i przesunie w tabeli na koniec "równych". Tu: ManU na końcu http://obrazki.elektroda.pl/7520329700_1...
Pierwotnie zupełnie inaczej to rozumiałem, ale może teraz będzie lepiej.
[url=https://docs.microsoft.com/en-us/of...
dla przycisku tak daj takie samo makro tylko zamień True na False
A można też bez kolumn dodatkowych, tylko formułka formatowania nieco dłuższa: [syntax=text]=JEŻELI($A2=""; ""; MOD(SUMA.ILOCZYNÓW(--($A$1:$A1<>$A...
Reszta...bez zmian, tylko...2 zmienne...chyba nie dam rady.. :?: Sądzę, że dałbyś tylko nie chce ci się łamać kiepeły ... :) ... na przykład: [syntax=vbscript] Dim msc, mscS$, schmt$ msc = Trim(InputBox("Wprowadź numer miesiąca z przedziału 1-12", "Podaj miesiąc", "7")) msc = Abs(Fix(Val(msc))) If msc < 1 Or msc > 12 Then Exit Sub mscS = Choose(msc,...
Witam =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;... albo =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;...
Jeżeli daty w wierszu nagłówkowym będą po "skandynawsku", to z kolumną pomocniczą i "przeformatowaniem"jak w załączniku. Na pomarańczowo rozpiska (można usunąć)...
z kilku innych arkuszy Z arkuszy, czy ze skoroszytów? Jeśli z arkuszy (w tym samym skoroszycie) to wstawiasz nazwę arkusza, wykrzyknik i odnosisz się do jego zakresu/komórki. Np. w ten sposób odwołasz się np. do A1: [syntax=vb]=Arkusz1!A1[/syntax] Jeśli ze skoroszytów, to tutaj wyjaśnienie: http://office.microsoft.com/pl-pl/excel-...
Na razie szablony są puste Dlatego na razie kod wyglądałby tak: [syntax=vbscript] Sub Szablon() End Sub[/syntax]
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).
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...
W załączniku rozwiązanie. Nie wiem, czy to wszystko. zeby sie pojawialo zestawienie na najblizsze 3 miesiace Jesteś w stanie przygotować wzór tego zestawienia?
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Za pomocą makr pewnie, skoro standardowe funkcje nie pozwalają. Gdyby Twój opis był jaśniejszy, już kilka osób pewnie by Ci pomogło. Dwa razy czytałem Twoje posty i nadal nie mam pojęcia, co chcesz tak właściwie osiągnąć (chodzi o wynik końcowy, bo wiem, że zmieniając coś chcesz zmienić resztę tabeli, ale według jakich kryteriów - nie mam pojęcia)....
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
Formuły sprawdzają czy data wypada w weekend i cofają ją do najbliższego piątku: [syntax=txt]=JEŻELI(DZIEŃ.TYG(A1;2)=6;A1... lub [syntax=txt]=A1-INDEKS({0;1;2};PODAJ.POZ... lub [syntax=txt]=A1-(PODAJ.POZYCJĘ(DZIEŃ.TYG...
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Tak, bo w Excelu 2010 są te kontrolki, ja mam 2007 więc musiałem je dogrywać.
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...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
Dobry wieczór, Propozycja rozwiązania w załączniku. Formuły wprowadzone do 17-go wiersza (poz. 12). Dalej trzeba skopiować. Proponowałbym usunąć listy rozwijane z kolumny F, bo jak się coś wprowadzi z tej listy, to zrobi się bałagan, wystarczą listy w kolumnie E. Formuły w kolumnie O są w zasadzie niepotrzebne, pełnią tylko funkcję informacyjną - jeśli...
I dalej nie ma załącznika. Czy to ma być ten sam kolor wszystkich liter we wszystkich kolumnach? Jeżeli tak, to należy zaznaczyć zakres do formatowania (można to też zrobić później, w ramach modyfikacji) i jako formułę wpisać np. [syntax=text]=A11=A$11[/syntax] (warunek zapisujemy dla pierwszego wiersza zakresu). Przykład w załączniku.
jeśli wybiorę klienta X to automatycznie pokazują mi się towary, które zamówił/cena/podsumowanie Jeśli chcesz wprowadzać wszystkie dane ujęte w arkuszach "z nazwiskami" i wprowadzisz w arkuszu4 dodatkową kolumnę z tymi nazwiskami klientów :D to można uzyskać efekt jak na zrzucie poprzez "prostą" i "przeciągalną" formułę :spoko: 991673 Całość (po korekcie...
Wszystko da sie zrobic :)
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
Nie wiem czy dobrze cie rozumiem Zaznaczasz kolumny wciskasz kopiuj przechodzisz do nowego zeszytu (nie wiem jak jest w oo ) wciskasz prawy klawisz myszy wybierasz wklej specjalnie... zaznaczasz "wartości" ok i masz wklejone same cyfry.
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
VBA nie tak silny, aby sam wybrać zdjęcia według komórek. Potrzebujesz jakiś sposób, aby powiedzieć mu. Tz. dla każdej komórki nazwu pliku. Najprostszy sposób, jeśli pliki są nazywane 1.jpg, 2.jpg, ,... 3265.jpg Wtedy MojObraz = "C:\foty\" & cell.row & ".jpg"
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
Załączam gotowy arkusz. Dodałem formatowania warunkowe i trochę formuł. Może komuś faktycznie się przyda - w każdym razie u nas w pracy na pewno.
Nie wiem czy dobrze zrozumiałem. Poniżej przykład. Za pierwszym razem trochę roboty bo trzeba wypisać wszystkie modele ale za to potem masz gotowe zestawienie.
Coś muszę włączyć lub wyłączyć? Pogrzeb w opcjach bezpieczeństwa, centrum zaufania (zależy od wersji Excela). Włącz makra, zaptaszkuj: "ufaj dostępowi do modelu obiektowego VBA", lub tp.
Podpowiedziałem ci w drugim topiku który założyłeś. Ale jeszcze raz: "wróć" do rozwiązania że w jednej komórce wpisujesz datę w formie "2014-01-01" "Dołóż" kolumnę np pomoc2 (później ją ukryjesz) wpisz w pierwszej komórce tabeli funkcję: =miesiąc(odwołanie do komórki z datą z tego samego wiersza) skopiuj funkcje w dół. efektem będzie numeryczne określenie...
Wtedy byłoby tak jak podają wszystkie podręczniki i fora, to znaczy: = WYSZUKAJ.PONOWO(num; nr_i_opis; 2; FAŁSZ) num oznacza komórkę z szukanym numerem, nr_i_opis stanowi teraz jedną tablicę złożoną z dwóch kolumn (adres lub nazwa tej tablicy), 2 oznacza, że wynik będzie z drugiej kolumny, a FAŁSZ (lub 0) oznacza, że funkcja ma znaleźć dokładnie to...
excel automatyczny wykresu excel makro automatyczny excel automatyczny grafik
zewrzeć matryca samsung niesymetryczny trójfazowy trójkąt kondensator spawanie
traktorek silnik briggs traktorek silnik briggs
Kompresor nie włącza się: diagnostyka i naprawa Silnik diesla nie gaśnie po wyjęciu kluczyka - przyczyny i rozwiązania