Witam, mam mały problem do rozwiązania. Otóż posiadam w Excelu tabelę z nazwiskami (wierszy jest tyle ile dni w miesiącu, w kolumnach zaś są nazwy 5 stanowisk). W danym dniu do stanowiska jest przypisane jedno nazwisko. Pierwszy wiersz tej tabeli są to daty (np. od 1 do 13 stycznia). Do tego w drugim...
-wartosc w kolumnie "O" sie zmieni na "X" i od ktorej jest uzalezniony kolor - wiersz w ktorym to wystapi jest w zakresie od "A - U" Analogicznie, zmień [syntax=vb]ost_col = Range("IV1").End(xlToLeft).Column[/synta... sztywno ustalony numer kolumny:[syntax=vb]ost_col = 21[/syntax]
Hej, szukam podpowiedzi jak wykonać w tabeli excelowskiej pewną rzecz: - mam trzy kolumny: 1. numer faktury 2. przedmiot sprzedaży 3. firma kupująca; czyli dla danej faktury mogę mieć jeden wiersz - jeśli sprzedaż dotyczyła tylko jednego produktu, lub wiele wierszy, jeśli sprzedaż dotyczyła kilku...
Dopisałem informowanie w MsgBox o numerach identyfikatorów usuniętych wierszy: [syntax=vb] Sub Mania() Dim ws As Long, wDel As Long Dim usuniete As String ws = 1 usuniete = "" With Sheets("Arkusz1") Do While .Cells(ws, 1) <> "" On Error Resume Next wDel = Sheets("Arkusz2").Columns(5).Find(what:=...
Prosiłbym Marka (ew. kogoś znacznie lepszego ode mnie w EXCELU) o pomoc : Z jakiej skorzystać formuły aby można było w jedną komórkę wpisywać liczbę x (x=5) - która oznaczałaby numer wiersza i w utworzoną tabelę zostały by wpisane dane z tego konkretnego wiersza (x) , z wszystkich kolumn innego arkusza...
[syntax=vb]ComboBox1.ListIndex[/syntax] ... że ListIndex zaczyna liczyć od 0 więc jeżeli chcesz poznać wiersz to : [syntax=vb]wiersz=ComboBox1.ListIndex... jeżeli listę pobierasz nie od pierwszego wiersza arkusza należy dodać liczbę wierszy od pierwszego do wiersza w którym zaczyna się...
Wystarczy pobrać który wiersz w kolejności z listbox'a zaznaczyłeś lstFiltr.ListIndex a jak widać wprowadzasz do boxa listę od drugiego wiersza (B2) więc mając na uwadze to że listbox "liczy" własne wiersze od 0 należy powiększyćwynik o 2 i już masz nr wiersza. nrWrs = lstFiltr.ListIndex...
Nie zapisałem. Ale z obrazka wynika, że w D8 łączysz w ciąg rozdzielając spacjami: =" "&B8&" "&C8&" " koniecznie ze spacjami na początku i końcu. Inaczej znajdzie "1" w "11" itd. w E8 warunkowo dodajesz 1 do MAX: =JEŻELI(CZY.BŁĄD(ZNAJDŹ(&quo... "&G$8&"...
Witam, nie znalazłem rozwiązania na forum. Mam makro, które otwiera linki wpisane w komórki. Wszystkie linki znajdują się w pierwszej kolumnie i lecą daleko w dół. Problem w tym, że chciałbym, aby pętla wykonywała to makro otwierania linku do momentu osiągnięcia numeru wiersza wpisanego w inną komórkę....
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania...
Zamykając temat. W pierwszym poście tego tematu jest kompletny kod pod EXCEL 2003 i XP (sprawdzony) Poniżej przedstawiam kod sprawdzony na EXCEL 2007 ( w większości opisane co i jak) [syntax=vb] Sub OperacjeHurtowe() 'makro dla excel 2007 'nazwa pliku startowego start2.xlsm i jest umieszczony...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu...
Mam prośbę o pomoc. Sytuacja wygląda tak. Otrzymuję arkusz Excela gdzie w zakładce "Dane" otrzymuję dane wyeksportowane z bazy danych. Nie mogę zmienić układu w jakim te dane są zapisywane w arkuszu "Dane" - nie mogę nic w nim zmienić (dostaje zabezpieczony przed zmianami arkusz). Na podstawie...
Cześć. Być może da się bardziej elegancko, ale na szybkiego przychodzi mi coś takiego na myśl (załącznik). Krótkie wyjaśnienie: Kolumna A - liczby, z których wyciągam średnią. Metoda pierwsza: w kolumnie pomocniczej (C) mam liczby od 1 do 20, to jest kolejny numer grupy. W D1 mam ilość elementów...
Twoja koncepcja [syntax=vb]Sub trzeci() Dim a As Double Dim b As Double Dim c As Double Worksheets("dane").Select 'Start tabeli z danymi a = 2 'Start wklejanych wierszy b = 2 'Start przeszukiwanych kolumn c = 1 'Wykonuj w poszczególnych kolumnach (c) dopóki...
Witam, Plik z przykładem jest IMHO - bez znaczenia :-) Funkcja ".Find" (przeszukująca wiersze) zwraca numery znalezionego wiersza. A pytanie to jak zapisać te kolejne zwracane numery wierszy taka aby stworzyć "Array". np. z .Find wyszukuje kolejo kolumny: 8. 12, 9, 10 , 15, 4 Jaką fukcję...
Jeżeli dobrze zrozumiałem to wyszuka datę i zwróci prawdę, w arkuszu jednak daje mi to możliwość odczytania numeru wiersza, w którym data się znajduje, przez co mogę skopiować dane od tego wiersza aż do daty końcowej. Jeżeli dobrze rozumiem, w pliku tekstowym nie mam za bardzo takiej możliwości, ponieważ...
Dolarek przed literą kolumny lub numerem wiersza blokuje to miejsce formuły przed automatyczną modyfikacją przy rozszerzaniu zakresu - Używasz w zależności od tego co chcesz osiągnąć (przełączasz klawiszem F4 gdy kursor stoi w tym miejscu formuły gdzie litera i numer). Zablokowanie jest bardzo pomocne,...
Witam, Posiadam taką tabelkę W kolumnie C mam numer produktu a w Kolumnach D-I "cechy charakterystyczne" danego produktu Chciałbym w VBA napisać marko które przeszukuje tabelę z obrazka w taki sposób, że znajduje Produkt (numer wiersza) o cechach przez mnie zadanych np: Podaję że w kolumnach...
Proponuję wykorzystać wcześniej przedstawioną funkcję tzn. funkcję WYSZUKAJ.POZIOMO :idea: Tak jak w każdej funkcji konieczne jest określenie dla niej właściwych argumentów - jeśli nie wiesz co to za argumenty to zajrzyj do pomocy Excela :!: tam znajdziesz np taki opis WYSZUKAJ.POZIOMO(szukana_wartość;tabela_...
1. Funkcja znajdz() zwroci 7, wiec podany przez Ciebie przyklad zwraca nic innego jak falsz i to rozwiazanie nie jest dla mnie odpowiednie. Chcialby sprawdzic czy istnieje ciag znakow z jakas litera na poczatku i zastanawia mnie dlaczego "*", ktora oznacza dowolny ciag znakow nie dziala w moim przypadku...
Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi...
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer,...
W pracy z excelem chodzi też o to abyś troszeczkę pomyślał sam. Kolega adamas_nt podał ci gotowe rozwiązanie na podanie numeru wiersza w kolumnie gdzie masz dane liczbowe. Jeżeli chcesz mieć tylko "napisany" adres możesz też zastosować zabieg z literką kolumny np. A (jak również podano wyżej - po...
Jak pisze kolega zimon wylosowanie jednej liczby z wielu jest dosyć proste. Ale jeżeli chcesz "wymieszać", to dla Excela znaczy, że chcesz wylosować 1000 z 1000 bez zdublowania. Musisz podzielić to na etapy, wykorzystać kilka funkcji w tym WYSZUKAJ.PIONOWO i dlatego dane muszą zostać ułożone we właściwy...
Przecinek a średnik to właśnie różnica wersji. Funkcja podająca pozycję w tabeli Podaj.pozycję(Szukana wartość ; przeszukiwana tabela; typ porównania 0 lub 1)[ jak 1/prawda to musi być kolejność rosnąca i zwraca pozycję liczby równej lub o "krok" mniejszej jeżeli 0 fałsz szuka dokładnie...
Można. Najłatwiej w VBA. Aktywujesz pierwszą komórkę wiersza (zakładam, że w przykładzie jest to pierwsza kolumna). Stosujesz pętlę Do While {ostatni znak = np.1 } ... kolumna = kolumna + 1 Loop zaznaczasz zakres od pierwszej kolumny do kolumny o numerze określonym przez "kolumna"...
Tylko już teraz konkretne pytanie czy docelowy arkusz (struktura arkuszy i układ wierszy i kolumn) jest taki jak w przesłanym przez ciebie załączniku. Bo już w makro trzeba określać konkretnie miejsca docelowe. Nie, nie jest taka sama struktura. Myślałem o makro, które "wprowadza" nową funkcję....
Może to dlatego, że w takiej formie jak to podałeś teraz, funkcja aktualizuje dane tylko z otwartego arkusza o takiej nazwie. Żeby aktualizować dane z arkusza umieszczonego w jakiejś konkretnej lokalizacji, powinieneś podać pełną ścieżkę do niego. Spróbuj przerobić kod w podobny sposób jak przykład poniżej...
Rozumiem, że nazwy funkcji na angielskie trzeba zmienić. Bo polskich wersji funkcji to chyba jeszcze nie ma? Gdyby ktoś chciał wiedzieć, to ta formuła mnoży numery wierszy w zadanej kolumnie przez 0 jeśli komórka w tym wierszu jest pusta lub 1 jeśli jest zapełniona. Następne wybiera maksimum ze zbioru...
Dobry wieczór, Jeżeli to ma być tak jak na pokazanych obrazkach, to trzeba by zastosować formułę: [syntax=text]=PRZESUNIĘCIE($A$... $A$1 oznacza adres początku kolumny danych, 1 to numer wiersza początku danych, 3 - to numer kolumny, w której rozpoczynają...
Trochę nie doprecyzowałem swojego problemu. oto inny przykład tekstu: *110001+0000000000000056 81..10+0000000000587659 82..10-0000000000548326 83..10+0000000000003021 *110002+0000000... 81..10-0000000000325555 82..10+0000000000099001 83..10-0000000000014452 *110003+0000000... 81..10+0000000000957569...
Jakieś sugestie jak można to zrobić? Z pełnym szacunkiem dla założeń Twojego projektu, lecz pierwszy krok, który musisz zrobić to wszystko dokładnie przemyśleć :idea: . 1. Musisz znać precyzyjnie strukturę plików źródłowych i wynikowych; (nie może być tak, że szukasz w kolumnie A tekstowych...
Hmmm... nie wiem jak to zrobić inaczej [syntax=vb] Sub bombon() Dim zakr10 As Range 'definujeme zakres, ktore zawiera 10 pierwszych bombonierek, kolumny od F do O Set zakr10 = ThisWorkbook.Sheets("Bombonierki").Range... 'wierszy w zakresie r = 2 'zacziname od 2 wiersza, zmienna r je...
Do każdej komórki bieżącego arkusza masz dostęp przez Cells(wiersz, kolumna).Value gdzie wiersz jest liczbą w zakresie od 1 do 65536, kolumna to liczba od 1 do 255 (w arkuszu są to litery A, B,...,Z, dalej pary liter AA, itd di IV). Zatem komórka B5 to Cells(5,2) , a U5 to Cells(5,21)....
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...
Zdaje się, że potrzebna będzie kolumna pomocnicza z funkcją MIN.K, gdzie pod k podstawiamy numer wiersza. =MIN.K(B$1:B$6;WIERSZ()&... Wartość zwracana przez WIERSZ() musi być równa 1 w pierwszej pozycji, więc jeśli są nagłówki itp należy odjąć ilość nieużywanych w tabeli wierszy...
Ja to widzę przez makro, jakkolwiek do eksperta w tej dziedzinie mi na pewno daleko, więc mój kod na pewno da się porządnie zoptymalizować. Range("A1").Select na początku makro trzeba zmienić na inny (np B1, jeśli będzie nagłówek o wysokości jednego wiersza). Wypadałoby zmienić wtedy również warunek...
Dobry wieczór, A po co Panu dwie formuły, które wykonują to samo zadanie? Różnica jest tylko taka, że pierwszą formułę (z poprzedniego pliku i z kolumny B w tym pliku) wprowadza się do jednej komórki, a potem kopiuje w dół, a ta druga formuła obejmuje od razu cały zakres danych. W ogóle jak widzę takie...
Dobry wieczór, Trochę dużo tych pytań jak na jeden raz, ale spróbuję. Ad 1) Nie bardzo rozumiem pytanie. Każdą formułę wpisuje się do Menedżera nazw tak samo i zatwierdza przez Enter. Każda formuła wpisana do Menedżera nazw jest traktowana jak formuła tablicowa. Ad 2) Wykresy można zautomatyzować,...
wykle wystarczy podwójne kliknięcie w miejscu separatora oddzielającym dwa kolejne wiersze - przy lewym marginesie, gdzie znajdują się numery wierszy, np. między 19 a 20. Kursor zmienia wtedy symbol na kreseczkę z dwoma strzałeczkami w gorę i w dół. Można też zaznaczyć kilka wierszy czy nawet wszystkie...
Bez 'With Sheets("raport") ' Dodano po 1 Kazda nastepna linijka jest dla mnie nie zrozumiała kursor na to slowo i scisnij F1
Sprawdzasz ostatni wiersz w arkuszu. np tak: ostatni = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Robisz pętle FOR od numeru wiersza nagłówka np 3 do ostatniego wiersza arkusza, czyli np tak: FOR x=3 to ostatni ... NEXT x w środku pętli warunek IF że jak komórka kolumny P równa...
Aby było 0 przy wchodzeniu do arkusza DANE trzeba w kodzie arkusza wpisać: Private Sub Worksheet_Activate() For i = 1 To 11 Cells(i + 2, 9).Value = 0 Next i End Sub Co do przecinka samo Val czy CSng w tym przypadku nie wystarczy bo raz pobierasz dane z arkusza a raz wpisujesz...
Poczytaj w pomocy o argumentach funkcji. W drugim przypadku wyszukujesz w wierszach a nie w kolumnach. Można zastosować bardzo podobną funkcję do poprzedniej WYSZUKAJ.POZIOMO, stosując kolumnę pomocniczą do określenia numeru wiersza (trzeci argument). W G3 (celowo dwa wiersze więcej, żeby nie dodawać,...
Dokładnie tak: [syntax=vb]=ADR.POŚR(ADRES(KOMÓRKA("za... D8 numer wiersza w D7 numer kolumny W komórce gdzie to wstawiłeś będziesz miał zawartość wskazanego (d8 wiersz, d7 kolumna) pola. Oczywiście możesz się "pobawić" parametrami tych funkcji. Pewnie...
Witam, Mam problem z porównaniem ciągu liczb wpisanego w jedną komórkę z tablicą wartości. Chce dokonać porównania ciągu liczb (od 0 do 100) z danymi liczbami zawartymi w tablicy. Pierwsza kolumna to numer wiersza. Ilość kolumn - max 20. Ilość wierszy dowolna. W wierszu może być od 1 do 20 liczb....
Witam Chodzi konkretnie o tabele z notowaniami spółek w której znajduje się ponad 400 wierszy czyli spółek giełdowych mnie interesuje zaledwie 30 z nich. Stworzyłem więdz makro działające tak => filtruj => przy nazwie spółki wchodziłem w filtry tekstu => równa się i wpisywałem nazwę interesującej...
Witam, dzieki za chec pomocy, a wiec to pierwsze nie zmienia ukrytych wartosci a w tym drugim otrzymuje blad na "ShowAllData" Dodano po 8 ta pierwsza opcja bziala bardzo dziwnie Dodano po 16 HA! obszedlem problem, to znacz problem zostal, ale jest zminimalizowany... ( rozwiazanie...
Witam, Mam dane w kolumnie A i B. Kolumna A jest wypełniona do np. 100 wiersza, a kolumna B do np. 50 (numery wierszy zmienne). Chciałabym aby w kolumnie B wpisywało tekst np. "XXX" począwszy od pierwszej wolnej komórki kolumny B do ostatniej wypełnionej komórki kolumny A. Próbowałam tak: ...
Dzień dobry, Nie rozumiem jaki problem z tym załączeniem pliku, musi tylko być w formacie .xls albo skompresowany. Przykład rozwiązania w załączniku. Szczegóły procedury zależą od wersji Excela. Np. w wersji 2010: 1) zaznaczyć zakres do sformatowania - w tym przypadku w kol. B. 2) wybrać Formatowanie...
Myślę, że na pewno będzie potrzebna kolumna z nazwą arkusza, z którego pochodzi klient oraz chyba numer wiersza w arkuszu. Jakoś temu Excelowi trzeba "powiedzieć" gdzie mają wylądować dane. Wrzuć jakiś przykład, zobaczymy.
Dzięki za reakcję i chęć pomocy - ale wydaje mi się, że nie potrzeba tak komplikować formuły. Ten x to jest liczba która zostaje wpisana w jakąś (określoną) komórkę i liczba ta oznacza do którego wiersza w danej kolumnie ma być liczona suma. Korzystając z formuły SUMA(A3:A15) - sumuje zawsze kolumnę...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete ...
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz...
Może troszkę inaczej sprecyzuję moje zapytanie. Na obrazku mam wypisane numery wierszy jakie chcę wyświetlić wyświetlić czyli do jednego wiersza mogę wykonać funkcję w kolumnie I =A1 następnie przeciągnąć myszką w prawą stronę i mam wypisane wszystkie wartości z wiersza 1 jednak problem polega...
Jedna z metod na ustalenie ostatniego wiersza, którą ja stosuję: [syntax=vb]If FilterMode Then ShowAllData ost_w = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] W tym wypadku - ustala wiersz z ostatnią komórką w kolumnie A. W zmiennej ost_w masz wtedy numer wiersza, który znaczkiem & możesz dokleić...
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...
Witam Proszę o pomoc. Potrzebuję proste makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do innego arkusza. Chciałbym żeby to wyglądało tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania", podaje np wiersz nr 5 i wtedy komórka np A5 B5 D5 G5 z arkusza1 są kopiowane...
Mam następujący problem: W skoroszycie są dwa arkusze, w każdym z nich nazwiska w kolumnie, oraz inne dane liczbowe w kolejnych kolumnach. Część nazwisk się powtarza w jednym i drugim arkuszu ale są w innej kolejności, Jakiej formuły użyć aby excel sprawdzał, że jeżeli nazwisko z kolumny np A1 pierwszego...
Witam, Mam uprzejmą prośbę o pomoc w dopracowaniu makra w Excelu W arkuszu muszę podzielić kilkanaście / kilkadziesiąt wierszy przez zmienną (tą zmienna jest kurs walutowy). Wygląda to tak - przykładowo: (gdzie „i” to numer wiersza) For i = 3 To 7 [działanie] Next i For i...
To jeszcze kilka podpowiedzi: - Wartość bezwzględna liczby (przydatne przy obliczaniu różnicy) = funkcja MODUŁ.LICZBY(xx) - Obliczanie średniej - funkcja ŚREDNIA - Adresowanie bezwzględne komórki oznacza, że odwołujemy się do konkretnej komórki, a następnie podczas kopiowania/przenoszenia zawartości...
w naszej pętli zamiast MsgBox wystarczy podstawić Razem byłoby coś takiego Sub petla() For i = 2 To Range("D2").End(xl... For j = i To Range("D2").End(xl... If Cells(j, 4) <> Cells(j + 1, 4)...
Wtrącę się ale kolega adamas_nt już ci raz pokazał jak znaleźć ostatni wiersz. Spójrz na pierwszy kod i na zmienną "ostWiersz" (druga linia procedury Kopiuj) Tak na chłopski rozum to tą linię trzeba tłumaczyć tak: Ustaw się na ostatniej komórce w kolumnie A i "idź" do góry po pustych komórkach....
Witam. Mam następujące makro: Sub Makro2() ' ' Makro2 Makro x = 1 y = 1 suma = 0 Do While Cells(x, 1) <> "" Do While Cells(x, y) <> "" If Cells(x, y).Interior.ColorIndex = 3 Then suma = suma + Cells(x,...
Szanowni, maksymalnie logicznie jak potrafię, mój problem wygląda tak: mam bazę danych tworzoną chronologicznie w zależności od daty i godziny wydarzenia. Wydarzeniom nadałam tytuły (w pliku to imiona). Wydarzenie może się powtarzać, ale na liście ma miejsce zależne od czasu (tzn., że nie mogę wydarzeń...
Po prostu trzeba zwiększyć daty. Funkcja WIERSZ(bez argumentu) zwraca numer wiersza.
Witam, potrzebuję formułę która porówna dwie kolumny A i B i zwróci mi w kolumnie C wartości które występują w kolumnie A, a nie ma ich w kolumnie B (unikatowe). W kolumnie A mam liczby od 1 do 400 W kolumnie B losowe liczby z takiego samego zakresu Dotychczas korzystałem z funkcji =JEŻELI(LICZ.JEŻELI($B$1:$B$10;A1)>0...
Lecisz w pętli po wierszach (1..52) i dla każdego sprawdź czy są dane w komórkach np. w sposób zalecany przez M$. If WorksheetFunction.CountA(Range("B" & i & ":L" & i) > 0 Then KopiujWiersz Kopiowanie znanego obszaru ("Ai:Li") możesz zrobić na wiele sposobów, tylko musisz pamiętać numer wiersza,...
A co to jest x (i dlaczego nie y) i jak to wyliczasz? Prawdopodobnie ładujesz wszystko do jednego wiersza i widać tylko ostatni zapis. Musisz inaczej wyliczać to x, żeby w wyniku otrzymywać kolejny numer wiersza, albo zapisywać wszystko jak leci a potem pozbyć się niepotrzebnych wierszy.
Znam tą funkcję. Nie chodzi mi o sortowanie tak aby w widoku zostały wszystkie pozycje tylko tak aby wyfiltrowało mi dane tzn np w kolumnie mam 100 pozycji a po zastosowaniu filtra zostanie mi np 8 wierszy. Wtedy numery wierszy są podświetlone na niebiesko. Tak jak w przykładzie w załaczniku: Kolumnę...
Użyj takiego kawałka: [syntax=vbscript] Cells(Rows.... & Cells(Rows.Count,"A").end(xlUp).Row+1).s... użyć tak, jak pokazałam, możesz pobrać tylko numer wiersza, itp. Oczywiście to "A" oznacza kolumną...
Witam, w programowaniu nie jestem dobra ale chciałam sobie ułatwić życie i pogrupować dane na podstawie kryterium. Zgodnie z zasadą grupuje od szczegółu do ogółu, jeśli w wierszu pojawia się słowo TOTAL, jednak gdy cofam się kolumnami do pierwszej to makro źle działa. Kod wygląda tak -> jednak...
Witam! Mam w skoroszycie 2 arkusze i kod przenoszący z "L-ki" do "R-ki" "tylko wartości większe lub mniejsze od 0 bez wstawiania 0 jeśli komórka była pusta. Potrzebuję aby dane wstawiały się do arkusza "R-ki" z zachowaniem numeru wiersza który miały przed kopiowaniem - obecnie dane są przenoszone...
Referencje w Akcesie dodaje się w edytorze VB - Tools/References. Pozwoliłem sobie przerobić i dopisać do kodu Adamasa: [syntax=vb]Private Sub DodajNoweDane_Click() Dim exc As Excel.Application Dim wb As Excel.Workbook Dim w As Long On Error GoTo koniec Set exc = New Excel.Application Set...
W VBA, zwraca adres aktywnej komórki komórka = ActiveCell.Address Przy adresowaniu komórek ( pisząc pod VBA ), dobrym sposobem ( ja taki stosuje ) jest poslugiwanie sie zapisem/edycją, arkusza, w ukladzie stylu W1K1. Mozna to włączać i wyłączać w menu Eycja/Opcje/Ogólne - Styl odwołania W1K1 Pozdrówka PS....
Jak to zrobic mam przykladowy zakres komorek (a5;v5) nazwany wiersz1 ,w kazdej komórce zakresu jest funkcja =JEŻELI(LICZ.JEŻELI(wiersz1;B$4)=LICZ.JE... nastepna=JEŻELI(LICZ.JEŻELI(wiersz1;C$4)... to zrobic by np w komórce a1 wpisać...
Proste, w kodzie Cells(i, j).Value = Chr(39) + CStr(Cells(i, j).Value) zamiast "i" wpisać 24 Cells(24, j).Value = Chr(39) + CStr(Cells(24, j).Value) Pozostaje drobny szczegół "i" - pierwszy parametr jest właśnie numerem wiersza,...
Dzień dobry, W przypadku gdy komórki źródłowe są w różnych kolumnach, a wyniki mają być w tej samej trzeba jeszcze użyć dodatkowego licznika inkrementowanego co 1. Jedno z możliwych rozwiązań w załączonym arkuszu. Jeśli chodzi o funkcję ADR.POŚR, to jej argumentem jest tekst adresu w stylu A1, czyli...
Tak próbuje samemu i udało mi sie za pomocą funkcji PODAJ.POZYCJĘ okreslic numer wiesza w którym wystpuje piersze wystepienie wartości pozycji która jest potem powtarzana w tej samej kolumnie. Moje pytanie teraz jest nastepujące: Jaką funkcją moge zwrócic wartosc komórki z kolumny A mając numer wiersza? W...
=PODAJ.POZYCJĘ($B96;WYBIERZ(DZIEŃ(C$3);_... mam pomysłu jak prościej zapisać formułę wyszukującą zmianę np 001a w konkretnym dniu i podającym numer wiersza w której znalazł (dokładne...
Cześć, potrzebuję pomocy w napisaniu makra, które dzieli 1 zbiorczy excel z kilkoma arkuszami na wiele plików z takimi samymi arkuszami. Wprowadzam numer wiersza i kolumny po której ma dzielić pliki oraz lokalizację wejściową i docelową. Poniżej wklejam kod, działający dla pojedynczego arkusza,...
Gdyby nie było pewności, czy żółte komórki są co trzecia, ale byłaby pewność, że interesuje nas tylko jeden kolor i mamy Excela w wersji 2007+, czyli plik .xlsx (nie wiem czy załącznik w formacie .xls oznacza, że ma to być używane w Excelu 2003-?), to można odfiltrować komórki według koloru i do tych...
W końcu sobie poradziłem bez kolumny pomocniczej - fajna łamigłówka W jednym arkuszu dwa przykłady z indeks'em i adresowaniem pośrednim ale zasada ta sama zaokrąglenie w góre podzielonego na pół numeru wiersza a później wyszukania. Mam nadzieje że to nie jest twoja praca domowa. :)
Bez względu na metodę powinieneś wybierać (losować) sumę spełniającą kryteria a nie jej składniki. Możesz zrobić tabelę w osobnym (ukrytym arkuszu) z obliczeniami (3 liczby z 20 to 1330 możliwości, jeżeli się nie mylę) i losować spośród tych sum, które mieszczą się w tolerancji. W VBA musisz zrobić...
Heh, jednak się udało i formułami, chociaż wymagało to kilku dodatkowych komórek. Najpierw należało przy pomocy zaokrąglenia znaleźć liczbę do miejsca dziesiętnego, a następnie, odejmując, w następnej komórce wpisać część setną. Później dzięki "podaj.pozycję" otrzymywało się numer wiersza i kolumny,...
da sie coś takiego zrobić? Da się, Np przy użyciu pętli (For lub Do). Wewnątrz wstaw instrukcję wyboru (If) porównującą wartości komórek w kolumnach obu arkuszy i jeśli są równe, to licznik pętli będzie interesującym nas numerem wiersza, dalej już z górki. Podobny temat: [url=]Link, ostatni post.
Zrób pętlę która będzie "jechać" po wszystkich "rekordach" (po 3 komórki) i je wstawiać do nowego arkusza. Numer wiersza z tabeli wejściowej jest powiązany z SP. Łatwo to wyciągnąć... Dodano po 52 A ten kod na górze to zbiór przykładów jak można się odwoływać do komórek, nie rozwiązanie Twojego...
Sub Korekta(wrs, kol) Application.ScreenUpdating = False If Cells(wrs - 8, kol) < 0 Then Exit Sub If Cells(wrs + 6, kol) < Cells(wrs + 7, kol) Then knyps = 1 If Cells(wrs + 6, kol) > Cells(wrs + 8, kol) Then knyps = -1 Do Until...
Zmień zakres, edytując formułę. Zwróć uwagę na brak "$" przed numerem wiersza. Ot cała tajemnica ;)
Musisz podać numer wiersza. Zobacz w ten sposób: [syntax=vb] Sub oblicz() With Sheets("Arkusz2") Dim numerWiersza For Each roznica In .Range("D3:D20") If roznica.Value = "aa" Then numerWiersza = roznica.row .Range("e" & numerWiersza).NumberFormat...
Nie przeczytalem Twojego postu i zaczalem sie dalej produkowac nad problemem. Swoja droga, bardzo przydatna informacja o znaku "$", o ktorej nie mialem pojecia :) Proboje dalej. Dodano po 17 =VLOOKUP($C9;Page_1!$I12:$M71;3;... Ja sprawdzic, zeby tabela_zrodlowa (table_array)...
Aha, dopiero teraz załapałem że te opisy nie mogą być całkowicie "losowe" tylko z określonych zakresów... :) W takim razie funkcją nie bardzo to się załatwi, proponuję makro takie jak w załączniku: tablica ). Każdym elementem tej tablicy jest kolejna, dwuwymiarowa tablica (zmienna tabl ), gdzie pierwszy...
Myślę, że się da :) Wszystko w jakimś makro VBA... Na początek będziesz musiał zrobić sobie okienko do wprowadzania imienia () Potem najlepiej zamienić litery na wielkie, podzielić w pętli () na litery (), odzyskać kod ASCII, odjąć odpowiednia wartość, co da numer wiersza (www.mielk.pl/pl/kursy/kurs_vba/kurs_07_...
Dzięki, znalazłem co potrzebne! Zrobiłem tak, że w kolumnie A wpisuję wartości (np 74,54 itd), a obok w kolumnie B dałem funkcję =LICZ.JEŻELI(A:A;Ax), gdzie x oznacza numer wiersza, przeciągnąłem wszystko i ostatecznie gdy wpisuję w kolumnie A wartości, obok wyświetla mi się który raz jest już wpisana,...
Ten sposób filtrowania zaawansowanego, który Panu pokazałem nie ogranicza się do jednej litery, więc wszystko zależy od danych źródłowych. Przenieść wyniki do arkusza Transkrypcja można łatwo za pomocą funkcji INDEKS. Gorzej już z tą zieloną kolumną, bo numery wierszy są nieregularne, więc trudno dobrać...
Odpowiedź pozostaje ta sama. Liczby nie muszą być po kolei, RANDBETWEEN losujesz tylko numer wiersza w kolumnie A. Jeżeli umieścisz w niej te czasy, spośród których chcesz losować, to będziesz de facto "losował" czasy.
super, działa ale pytanie co zrobić jeśli zmienię numer wiersza tak jak w załączniku?
spalenie radia podłączenie programatora czasowego rezonans pradów toledo kodowanie działają spryskiwacze peugeot miganie obrazu telewizor liebherr panel sterowania wyprzedzenie zwrotnica ustawienie popychaczy hydraulicznych zablokowana skrzynia biegów przekaźnik pompy paliwa passat
