Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
Dzień dobry, Należało załączyć przykładowy plik do testowania. W tekście jest błąd składniowy "Is Numeric" powinno być jednym słowem. Ponadto wewnętrzny warunek pętli nie może być nigdy spełniony, bo gdy komórka jest pusta, to funkcja IsNumeric zwraca True, a tu jest koniunkcja warunków. Pozdrowienia.
Ale wiesz, że tam (arkusz magazyn) są funkcje tablicowe i wychodząc z nich wciskasz Ctrl+Shift+Enter edit: W arkuszu magazyn masz więcej błędów. Daty odwołują się do 100 wiersza a ilości do 170. Zrób tak z arkuszem magazyn: Zaznacz cały arkusz i wciśnij CTRL+H Wpisz w wyszukaj $170 a w "zamień na" $2000. Wciśnij "zamień wszystko" Potem to samo z setką...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
=JEŻELI(ORAZ(A1>0;A1<30);"trala";J...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
Trzeba znać nazwę arkusza. Nabela odpowiada rzeczywiste Zdjęcia w #1 ?
Czyżby chodziło o tak prostą funkcję? [syntax=vb]Function SumujDodatnie(Zakres As Range) As Long For Each kom In Zakres If kom > 0 Then SumujDodatnie = SumujDodatnie + kom Next End Function [/syntax]
Ad 3. Mniej więcej taki kod: [syntax=vbnet]Dim fdSaveFile As FileDialog Dim vSaveFolder Set fdSaveFile = Application.FileDialog(msoFileDialogFold... With fdSaveFile .AllowMultiSelect = False .Show vSaveFolder = .SelectedItems(1) End With ActiveWorkbook.SaveAs vSaveFolder & "\" & ActiveSheet.Range("B2").Value & "__" & Format(Now, "dd_mm_yyyy__hh_mm"),...
[syntax=vb]i_row = 6 Set rng1 = Union(Worksheets("Arkusz1").Range("D1:D" & i_row), Worksheets("Arkusz1").Range("H1:H" & i_row)) rng1.Select[/syntax]
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
Użyj metody [url=https://msdn.microsoft.com/en-us/li... [syntax=vb]Union(Range("a2", Range("a2").End(xlDown)), Range("c2", Range("c2").End(xlDown))).Select[/syntax...
Tu jest szczęście[syntax=vb] Sub KopiaRobocza() Dim nazwa As String Dim path As String nazwa = Range("H19").Value path = "C:\" fileSaveName = path & nazwa & ".xlsx" ThisWorkbook.Worksheets("Kopia robocza").Range("A1:D45").Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions"...
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
Na przykład tak: [syntax=text]=ILE.NIEPUSTYCH(A1:INDEKS(A...
Czy ktoś z Was wie jak powinno wyglądać makro porównujące ze sobą tabele Sądzę, że wielu wie ... ale pewnie są na urlopach ... :) Nie załączyłeś żadnego przykładu, więc i reklamacji nie ma ... jest jak jest, inaczej nie będzie ... 895194
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Można wykorzystać ciekawą właściwość funkcji podaj.pozycję - jeśli typ wyszukiwania ustawimy równy 1 to będzie ona wyszukiwać najbliższego wyniku mniejszego niż szukany. Tak więc przy obecnym układzie można wypróbować coś takiego (dla komórki F2): =INDEKS($C$2:$C$4;PODAJ.POZYCJĘ&... I rozciągnąć w dół. Oczywiście...
(...) przesunięcia zakresu DataRangeOBAYield o 7 wierszy w prawo dla każdego z dwóch zakresów (...) Chodzi o wiersze w dół, czy kolumny w prawo? Można zastosować InputBox, gdzie wpisywane będzie przesunięcie: 0 - B1:H1,B31:H31 1 - o siedem wierszy/kolumn w z góry upatrzoną stronę itd, jeśli jest taka potrzeba Zmienną obiektową masz zadeklarowaną......
Jeśli makro, następnie tak
Jest tu faktycznie niekonsekwencja. Zakres B3:K13 liczy 10 kolumn i 11 wierszy. Inny sposób rozwiązania. Zdefiniować nazwę "zakres" wg wzoru: [syntax=text]=PRZESUNIĘCIE(ADR.POŚR(KOMÓ... przykładowy zakres obejmuje 5 wierszy i 3 kolumny. To sobie poprawisz tak jak chcesz. Początek zakresu ustalasz ustawiając kursor (komórkę...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Uważniej przeczytaj pomoc na temat w/w ;) W Twoim przypadku wystarczy =SUMA.JEŻELI(A2:A11;A3;E2:E1...
Mam propozycję, ale z ograniczeniami. Założenia są następujące: 1. W kolejnych komórkach będą kolejne liczby (lata) lub komórki będą puste, ale nie będzie sytuacji, że w sąsiednich komórkach będą liczby (lata) niekolejne. 2. Przed pierwszą liczbą musi być co najmniej jedna komórka pusta. 3. Liczba komórek jest zadana z góry (formuła nie jest dynamiczna)....
Witaj Raczej sam napisał by funkcji niż szukać w Excel. 99% pewny źe nie jest.
Witam ważnym jest tylko fakt, że produkt jest w tym zakresie?
Żeby ten kod co masz zadziałał, powinien wyglądać mniej więcej tak: [syntax=vb]Private Sub CommandButton1_Click() For Each c In ActiveSheet.Range("A1:IV1") 'tu mozna zawezic przeszukiwany zakres If c = "Product" Then Range(Columns(c.Column + 1), Columns(c.Column + 4)).Select Selection.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove Cells(c.Row,...
[syntax=vbscript]dane = Application.InputBox("jakiś tekst" & Chr(10) & "Podaj zakres dat", "Wprowadzanie zakresu dat") [/syntax]
[syntax=vbscript]Sub Scal() ow = Cells(Rows.Count, "A").End(xlUp).Row b = 1 For x = 1 To ow If Not f Then b = x f = True End If If Cells(x + 1) <> Cells(x, 1) Then Range(Cells(b, 2), Cells(x, 2)).Merge Cells(b, 2) = Cells(x, 1) f = False End If Next End Sub[/syntax]
Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę To można zakres wziąć z kol H (czyli J wypełni do L.p 10) [syntax=vbscript]Range("j8").AutoFill Range("J8:J" & Range("H" & Rows.Count).End(xlUp).Row), xlFillSeries[/syntax]
Tu masz nagrany kod z rejestratora przy filtrowaniu daty w zakresie od... do... [syntax=vb]ActiveSheet.Range("$A$1:$E$23... Field:=3, Criteria1:= ">=2012-02-03", Operator:=xlAnd, Criteria2:="<=2012-02-06"[/syntax]. Wystarczy, że zamiast daty wstawisz (złączysz znakiem &) swoją datę początkową i końcową i uzyskasz efekt o który Ci...
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
To po czym ma excel (oko ludzkie) poznać gdzie się zaczyna dany zakres?
Ta formuła, którą Ci podałem przecież działa, tylko tu dane zaczynają się w kolumnie B, a poprzednio pisałeś, że w C, a na obrazku nie pokazałeś oznaczeń kolumn.
Jak już pisałem nie mam 2007 więc nie mam jak sprawdzić. Ewentualnie dopiero w poniedziałek. Do tej pory może ktoś inny (mający 2007) odpowie ci na to. Może być prościej przy wykorzystaniu przycisku (włącz wyłącz - z hasłem). Ale wtedy przy wchodzeniu do pliku będzie monit o to by włączyć makra. (że plik zawiera makro) Nie wszyscy to lubią (makrom nie...
Zarówno używając funkcji ILOCZYN (warunkowo z funkcją JEŻELI), jak i w przypadku funkcji BD.ILOCZYN można podać zakres z zapasem. Puste komórki nie przeszkadzają. Tak przynajmniej jest w Excelu. W arkuszach Google nie sprawdzałem. W przypadku funkcji ILOCZYN formułę trzeba zatwierdzać tablicowo, chyba że masz najnowszego Excela 365. W przypadku funkcji...
W Arkuszu3 ten sam wynik w oparciu o dane z Arkusza1. Czy o to chodziło?
Witam, klikasz prawym na wybranej osi, wybierasz formatuj osie, wyskoczy okienko wybierasz zakładkę skala i dowolnie określasz zakres jaki obejmować ma wykres. Tak samo dla drugiej osi.
A mogą być formuły w komórkach?
Witam. wers = Range("C3").End(xl... 1).Row wstawić Range("D2:D" & wers)
Zaproponuję taką funkcję: [syntax=vb]Function SzukajPracownika(Dzien As Integer, Zmiana As String) As Integer Sheets("Dane").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 4 To ostw If Cells(x, Dzien + 2) = Zmiana Then SzukajPracownika = x Exit Function End If x = x + 1 Next End Function[/syntax] Zastosowanie: =SzukajPracownika(17;"108b")...
... chociaż trochę dłużej myśli zanim wszystko sformatuje... Niestety pętle muszą mieć czas na obrót. Ewentualnie wyłącz na chwilę odświeżanie - może to trochę przyśpieszy: zamknij kod w Application.ScreenUpdating = False ... Application.ScreenUpdating = True ... A jak w Twoim kodzie wykluczyć dwa wiersze 45 i 46 ... Np. tak [syntax=vb]For x = 5 To...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
No coś za coś... Skoro zdjęcie filtra przed operacją nie wchodzi w rachubę, to faktycznie nie tędy droga... Natomiast pierwszy przykład w takiej postaci jak podałem u mnie działa prawidłowo, zarówno z filtrem, jak i z ukrytymi wierszami, przeliczają się też powiązane komórki. Przyczynę musisz mieć gdzie indziej, sprawdź czy inne funkcje w ogóle się...
Argument jest typu String, więc podstaw sobie [syntax=vbscript]R = 3 While Cells(R, 2) <> "" karta = Cells(R, 2) ostW = Sheets(karta).Cells(1501, 11).End(xlUp).Row Cells(R, 3).FormulaR1C1 = "=countcellsbycolor('" & karta & "'!R1C11:R" & ostW & "C11,MENU!RC[-1])" R = R + 1 Wend[/syntax]
No to pokaż (załącz) ten krnąbrny plik :D Albo spróbuj metody poprzez nazwany zakres: nadajesz dla całego skoroszytu nazwę - Zakres = Arkusz1!$B$2:$B$2000 a potem dla listy rozwijanej wprowadzasz =Zakres :spoko:
Jeśli można z kolumną pomocniczą, to patrz załącznik.
U mnie bez kolumn pomocniczych, za to z nazwami (żeby łatwiej można ogarnąć formułę). Dane - to zakres danych źródłowych, numkol, numwie, numer - formuły pomocnicze, formuła kolnr zawiera adres początku zakresu wynikowego w formie adresu mieszanego, w tym przypadku [syntax=text]F$2:F2[/syntax]Formuła finalna w arkuszu jest formułą zwykłą, którą można...
Zrobiłem inną metodą (podaj.pozycję() z 1 na końcu. Sprawdź czy dobrze przetransponowałem wartości i czy wogóle działa (graniczne pozycje) na moje oko jest ok ale ... Aha: Steny i ich transpozycja z których docelowo korzysta funkcja są w arkuszu steny (Transponowałem ręcznei wiec zmiana w tabeli głównej stenów musi powodować zmianę ręczną w transponowanej...
Chodzi o makro "Usun2"? Wprowadź warunek, Np[syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count If Shapes(i).FormControlType = 1 Then a = Shapes(i).Top If Shapes(i).Top > 150 And Shapes(i).Top < 200 Then 'a kto tu namieszał?! nazwa2 = nazwa1 nazwa1 = Shapes(i).Name 'jesli znajdzie ramkę knyps = True 'zmieniamy wartość...
Domyślam się, że o to chodziło, ale zawsze warto podać przykładowe oczekiwane wyniki, żeby można było zweryfikować, czy formuła działa zgodnie z oczekiwaniem.
Możesz skorzystać z funkcji "lewy" i "prawy", później wszystko zamień na minuty(chociaż zliczając tylko godziny nie musisz)...dalej już chyba dasz sobie rade ;-) Ściślej w jednej komórce można taką funkcją: =JEŻELI(D5<>"";PRAWY(D5;2)-LEWY(D5... Oczywiście tyczy się komórki D5. Pozdro
A spróbuj jeszcze zmienić [syntax=vb]Dim hBrowse as Long[/syntax] na [syntax=vb]Dim hBrowse as LongPtr[/syntax] To jest jakiś bład związany z 64 bitowym systemem, nie ma takiego więc ciężko mi coś więcej powiedzieć...
For j = 0 And 2 To 9 -??? For j = 0 To 9 If j<>1 Then '......... End If Next
Regularna tabela, nie trzeba 'Split', tylko mało matematyki [syntax=vb]For i = 0 To 10 r = Val(komorka) - 1 Workbooks(plik1).Worksheets(arku2).Range... & 7 + 3 * i).Resize(1, 26).Copy Workbooks("PE caly.xlsm").Worksheets("rozliczenie").Ra... & 7 + r + i * 37).PasteSpecial Paste:=xlPasteValues Next i [/syntax]
Formułę Marka też można zapisać z użyciem stałych tablicowych: [syntax=text]=SUMA(LICZ.JEŻELI(zakres;{1... Będzie nieco krócej i nawet nie trzeba tego zatwierdzać tablicowo, wystarczy sam Enter.
Można skorzystać z formuły tablicowej: =MAX(--(B6:B12="czas")*(C6:C12)) zatwierdzamy ją CTRL+SHIFT+ENTER i wtedy pojawią sie nawiasy { } Te dwa minusy można odpuścić, ale tak jest bardziej "matematycznie". http://obrazki.elektroda.pl/1700460200_1... Ewentualne dalsze działania z mojej strony najwcześniej jutro po południu ;) Udanego Sylwestra!
Może jednak wędkę potrzebujesz: http://bfy.tw/2mse [syntax=vbscript]Sub Rand100(ByRef tb() As Single) Dim y, x As Integer For y = LBound(tb, 1) To UBound(tb, 1) For x = LBound(tb, 2) To UBound(tb, 2) tb(y, x) = Int(10 * Rnd()) Next x Next y End Sub Sub Test1() Dim a() As Single ReDim a(1 To 3, 1 To 3) Rand100 tb:=a MsgBox ("Pasuje: " & CountIf(a, "=9"))...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
[syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
Czy ktoś jeszcze wybierze pierwsze rozwiązanie - omg :-) A tak serio, co byś się nie naklikał: http://www.ozgrid.com/Excel/limit-scroll...
Co Ty na to JRV? Gdyby arkusza, byłoby to rozwiązanie
[syntax=vbscript]Sub Sumuj() Application.ScreenUpdating = False Katalog = "C:PlikiExcela" Plik = Dir(Katalog & "*.xls*") While Plik <> "" Set a = Workbooks.Open(Katalog & Plik) For x = 1 To Sheets.Count Sheets(x).Range("OO1").Formula = "=SUM(A1:A100)" s = s + Sheets(x).Range("OO1") Sheets(x).Range("OO1") = "" Next a.Close False Plik =...
=JEŻELI(A1="dom";"tak";JEŻELI(A2="dom";"...
Można tak np. [syntax=vbscript]Sub czyszczenie() Dim i& Range("F7:AJ10").ClearContents For i = 12 To 495 Step 3 Cells(i, "F").Resize(2, 31).ClearContents Next End Sub[/syntax] andie
Załącznik.
Data to liczba, a liczbę można wykorzystać w pętli FOR, tylko trzeba ją zapisać pomiędzy hashami i "po amerykańsku": [syntax=vb]poz = 2 For i = #4/1/2013# To #5/1/2013# Cells(poz, 1).Value = i poz = poz + 1 Next i[/syntax]
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
Chyba chodzi tylko o podstawienie zakresu (pierwsza część makra), wtedy [syntax=vbscript]c = ActiveCell.Column r = ActiveCell.Row If c > 5 Then Range(Cells(r, c - 5), Cells(r, c - 1)).Select[/syntax]
szukałem, kombinowałem i zawsze coś nie wychodziło :/ =JEŻELI(LUB(G34<238;G34>407);"..."... to działa dokładnie tak jak chciałem, dzięki za pomoc :) Co tu jest do kombinowania? Suma logiczna 2 warunków? A co do podziękowania to w dobrym zwyczaju jest wciśniecie przycisku pomógł.. ;)
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
Ale jeżeli chcesz zaznaczyć całe wiersze możesz zastosować "tekstowe połączenie": p = 20 k = 25 c = CStr(p) + ":" + CStr(k) I wtedy: Rows(c).Select lub (tak jak chciałeś Range(c).Select Albo wogóle bez zmiennej c Range(CStr(p) + ":" + CStr(k)).Select Przyznam że chwile szukałem gotowej funkcji ale znalazłem tylko zaznaczanie paru wierszy na raz (nie...
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Zobacz w załączniku. Zakresy formatowania można modyfikować. Regułę formatowania zapisuje się w Excelu zawsze tylko dla pierwszej komórki formatowanego zakresu.
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Dopasuj sobie takie makro: [syntax=vbscript]Sub Przelicz() Dim cel As Range With Worksheets("Generator cen") For Each cel In Worksheets("310").Range("A2:A180") .Range("B3") = cel.Value cel.Offset(, 3) = .Range("B26").Value Next cel End With End Sub[/syntax] Po otwarciu załącznika zapisz go sobie w formacie .xlsm. Ja użyłem starego formatu .xls ze względu...
Można np. tak:[syntax=text]=JEŻELI(LICZ.JEŻELI(APY... sobie dopasuj, tu jest taki jak był w przykładowym pliku, w poście powyżej podałeś trochę inny.
potrzebuję pomocy w napisaniu formuły Taką funkcjonalność (na początek do 100 wierszy :D ) możesz uzyskać dzięki formule jak na zrzucie i w załączonym pliku :spoko: 1056649 1056650
Tak jak pisałem, tylko pierwsza komórka, a nie cały zakres.
Dziś mam dobry humor więc dam ci gotowe rozwiązanie. Tu potrzebujesz funkcję wyszukaj.pionowo() z 1 jako ostatni parametr.
Dobry wieczór, Jeżeli dane dla poszczególnych osób będą miały identyczny układ i będą umieszczane w regularnych odstępach, to dostęp do nich można uzyskać stosunkowo łatwo. W tym przypadku potrzebna jest lista imion w takiej kolejności jak będą rozmieszczone dane tych osób (w arkuszu 'dane'). Lista ma nazwę 'imiona' i jest wykorzystywana zarówno w formule,...
Wszystko jest OK. Powinno być: Selection.Insert Shift:=xlToRight a nie xlRight.
Wypróbuj to: [syntax=actionscript]=JEŻELI(LICZ.JEŻELI...
Tu masz proste makro: (sprawdza kolumny dopóki jest wartość w kolumnie C zaczynając od 7 wiersza Sub filtr() a = Range("C3") b = Range("C4") i = 7 Do While Cells(i, 3) <> "" If (Cells(i, 3) >= a) And (Cells(i, 3) <= b) Then Rows(i).EntireRow.Hidden...
Nie musisz robić Select Użyj: [syntax=vbscript]Range("a2:n35000").Copy Destination:=ThisWorkbook.Sheets("Arkusz... Szczegóły znajdziesz na stronach M$ i nie tylko. Oczywiście oba adresy muszą być prawidłowe, wpisałem przypadkowe. Jeżeli zamierzasz kopiować więcej danych albo zmieniać pliki i arkusze to lepiej podczas otwierania...
Na załączniku mam tylko wstawiony obrazek (może dlatego iż mam openoffica).
Daty do kryterium najlepiej skonwertować na liczby, bo funkcja SumIfs bazuje na kryteriach tekstowych i trzeba by jej było podać datę w formacie jaki ona rozumie, ale z tym jest więcej zachodu, a liczbę zrozumie zawsze. Poza tym odradzam pisanie takich długich instrukcji. Komputer może to zrozumie, ale człowiek może się pomylić.
Jeśli nie ma górnego ograniczenia dla wprowadzanych liczb procedurę Walidacji można zapisać też tak: [syntax=vb]With ark.Range("E6:F" & dstW).Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlGreater, Formula1:="0" .IgnoreBlank = True .InCellDropdown = True .InputMessage = "Wprowadź liczbę całkowitą" .ShowInput...
1) Powinieneś założyć nowy wątek, a nie podpinać się pod cudze, bo to jest inne pytanie i z tamtym wątkiem niewiele ma wspólnego. 2) Powinieneś przynajmniej zilustrować pytanie załącznikiem w postaci pliku Excela, bo piszesz dość niejasno. Jeśli piszesz to w kodzie VBA i używasz Worksheetfunction, to w wyniku dostajesz wartość (liczbę), a nie formułę,...
Rozumiem aluzję ;) Najprościej byłoby wstawić .formula="=sum..., ale skoro mielisz w pętli. Zlicz w niej sumę i dopisz na końcu: [syntax=vb]Private Sub cmdDrukuj_Click() If cmbPrinters = Empty Then MsgBox "nie wybrano drukarki" Else With Sheets("druk") .Range("A2:J65536").ClearContents Application.ScreenUpdating = False For wrs = 0 To lstSala.ListCount...
Rozumiem, że chodzi o liczby losowe o rozkładzie normalnym. Można to obliczyć formułami albo za pomocą narzędzia Analiza danych z tym, że w tym drugim przypadku nie można określić dopuszczalnego przedziału. Z drugiej strony przy podanych parametrach (średnia i odchylenie standardowe) uzyskanie wartości losowych poza podanym przedziałem jest skrajnie...
Dzień dobry. W takim przypadku najlepiej skorzystać z tabelkii przestawnej. Przykład w załączniku.
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
W excelu jak już to (tak jak wspomniał kolega tzok) tylko za pomoca makra. Poza tym przy 100 zmiennych będzie bodajże 10.000 kombinacji. (Przy 5 jest 25) Poniżej przykład dla szukania sumy dla 5 liczb. W załączeniu arkusz z działajacym makrem. Sub psum() Dim tabela(5) As Double Range("G:G").Clear... For a =...
Najlepiej dołączyć plik przykładowy listy w komórkach od C11 do C51 w ktorym arkusze? "sheet do zablokowania" co to znaczy? Jak to jest w innym arkuszu, warto przypisac nazwu zakresu
Witam Temat niby prosty, a jednak potrzebuję pomocy. Mam kolumnę w której wpisuję numer wybranego tygodnia roku 2017, w sąsiedniej kolumnie chciałbym uzyskać zwrot w postaci zakresu dat dla danego tygodnia, w następujący sposób lub coś podobnego: 41 9-15.10.2017 .... 45 6-11.11.2017 W tej chwili komórki z kolumny B zwracają tylko pierwszy dzień tygodnia....
excel zakres komórek excel dynamiczny zakres zakres komórek excel
wekta podłączyć domofon dymienie briggs licznik mercedes actros
Samsung BN59-01308A Wi-Fi Module Pinout Inquiry Regulacja zaworów w Ford Transit 2.5 TD: krok po kroku