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]
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Witam, Mam następujący kod w VBA dla Excela. Sub Dodawanie() Range("A5").Copy Range("D" & Rows.Count).End(xlUp).Offset(1, 0) End Sub Kod ma za zadanie skopiować wartość komórki A5 i przenieść ją do pierwszej wolnej komórki w kolumnie D Wszystko działa prawie tak jak trzeba z jednym wyjątkiem. Funkcja ta kopiuje cała komórkę włączając w to listę rozwijaną...
Ale ten kod nie działa :) Jak się próbuje wpisać coś w ostatnią komórkę arkusza ... plus 1 to tak jest ... :) ... " End(xlDown).Offset(1 " [syntax=vba]Range("A4").End(xlDown).Offs... 0)[/syntax]
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
Kombinuj... Ja tylko poprawiłem błąd składni. Logicznymi błędami zajmij się sam. Od tego masz mózgownicę.;)
chcę znaleźć pierwszą wolną komórkę w drugiej, trzeciej, czwartej, piątej i szóstej kolumnie oraz wstawić tam tekst "wykorzystany" użycie kodu uzupełniania tych tabel Uściślij, to pierwsze, dwuznaczne sformułowanie w stosunku do tego drugiego ... co chcesz osiągnąć: 1) Czy w każdej pierwszej wolnej komórce danej kolumny wpisać "Wykorzystany" ? Jeśli...
[syntax=vbscript]Sub Dopisz() nw = Cells(Rows.Count, "C").End(xlUp).Row + 1 For x = 5 To nw If Cells(x, "C") = "" Then Range("C" & x) = "Szukaj pierwszej wolne i wpisz, za każdym kliknięciem" Range("D" & x) = "1" Range("F" & x) = "Przykład" Range("C" & x).Interior.ColorIndex = 37 Range("E" & x) = Application.UserName Range("C" & nw + 1).Activate End...
Kursor jest aktywny w określonej komórce danego wiersza (tu akurat piątej) a ma się znaleźć w pierwszej wolnej komórce danego podzespołu od lewej.
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
OK, mój błąd. Filtr zawiera się w makrze z buttona 'Szukaj'. Jego zadaniem jest wyszukiwanie w A2 wpisanego numeru w liście poniżej i zostawianie jedynie linijki z wyszukanym artykułem. Następnie musi ustawić się w pierwszej wolnej komórce z ilością dla tego wiersza. Jeżeli chodzi o sendkeys to dałam go po to aby idąc te 4 wiersze w dół poprzez offset.(4,0)...
Sorki że kodu Ci nie podam, ale mój algorytm by wyglądał następująco: kopiujesz np. w pętli komórki z arkusza 1 do arkusza Master następnie z drugiego arkusza kopiujesz po kolei komórkę, następnie sprawdzasz funkcją Worksheet.Match() z parametrem 0 (dokładna wartość), jeśli funkcja zwróci błąd #N/A zapisujesz w pierwszej wolnej komórce arkusza Master,...
Witam, Mam następujący problem... Jeżeli chcę zainicjalizować zmienną w EEPROM robię to tak: unsigned char test EEMEM = 0x11 //generowany jest wtedy dodatkowy plik .eep z inicjalizacją pamięci EEPROM Powyższy kod posiada jedną wadę - kompilator zmienną "test" zapisuje w pierwszej wolnej komórce EEPROM-u, a mi zależy na tym, żeby "test" była zapisana...
Witam W załączniku jest plik Excela o nazwie "pomoc2". W tym pliku mamy dwa arkusze o nazwach: "DANE" i "BAZA". W arkuszu "BAZA" w wierszu czwartym znajdują się cyfry od 1 do 10. W skrótowym opisie jest to kolejność w jakiej powinny być wklejone dane do arkusza "DANE" dla każdego symbolu. Dla ułatwienia i czytelniejszego zrozumienia o co mi chodzi,...
To byłoby zbyt proste ;) Ciężko mi to opisać jakoś sensownie. Kolumny A do E, są kolumnami do których wpisuję dane. W kolumnie G podaję ( wpisując ręcznie co chcę wyeliminować ) datę i jeśli pokrywa się z datami z kolumny A wtedy natępują wyliczenia których efekt widać w kolumnie K. Wpisywane ręcznie daty w kolumnie G muszą się pokrywać z datami z A....
Tomuś_P tak to jest także makro do scalania, które między innymi też przeglądałem, tylko tyle, że ja potrzebuję dodatkowe funkcje, które wyszczególniłem w pierwszym poście, a których żaden gotowiec nie ma. JRV, jeżeli chodzi o wpisywanie od pierwszego wiersza, to dzięki pomocy kolegów z innego forum, już mam to rozwiązane, co do zakresu danych, to zakres...
Coby ułatwić Ci życie, a chętnym do sortowania je umożliwić wprowadź w swoim pliku kilka zmian. Główna to nazwanie zakresów, rezygnacja z formuł w nazwiskach i wydziałach i formuła licząca ilość szkoleń dla poszczególnego ludka. Na arkuszach zakresy zaznaczone są kolorami. Możesz je sobie dowolnie definiować pamiętając tylko, żeby były jednakowych rozmiarów....
Witam. Tworzę duże (jak na swoje możliwości) makro i niestety napotkałem na parę trudności. Mianowicie: Ustawiam się na pierwszej pustej komórce w danej kolumnie i chciałbym wypełnić tą kolumnę poniższą formułą do pierwszego pustego wiersza (tzn. jeśli nic nie ma w kolumnie A, B, C etc.) Niestety opcja z "H2:H" nie jest tutaj skuteczna, gdyż ten zakres...
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Kolega coś nie kuma z tymi liczbami porządkowymi. Dlaczego nie jest zadeklarowana zmienna 'a' , przecież ona przechowuje kolejny numer wiersza? Skoro kursor na starcie ustawia się w komórce F4 to dlaczego kolega nie liczy wierszy od tego kursora do miejsca wpisywania pierwszej danej? W moim przykładze było to a= b-2, gdzie: a - to wyliczony numer wiersza...
Możesz zrobić tak: [syntax=vbscript]If Range("C2").Offset(pos).Value = Empty Then Range("C2").Offset(pos).Value = Format((Timer - t) / 86400, "hh:mm:ss") Else Range("B2").Offset(pos).End(xlToRight).N... = Format((Timer - t) / 86400, "hh:mm:ss") End If[/syntax]Kod znajduje pierwszą wolną komórkę w wierszu i tam wpisuje wynik.
Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...
Cells(Cells(Rows.Count, "A").End(xlUp).Row, 1) Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1 , 1)
Witam, poniżej ciąg dalszy moich problemów z vba.Tym razem kopiowanie pomiędzy arkuszami. Mam poniższy kod: With Worksheets("002") nRow = .Range("A65536").End(xlUp).Row .Range("A2:A" & nRow).Copy ActiveWorkbook.Worksheets.Add ActiveSheet.Name = "CenyEx" Sheets("CenyEX").Select Range("A1").PasteSpecial End With With Worksheets("603") nRow = .Range("A65536").End(xlUp).Row...
Witam wszystkich Potrzebuję pomocy w stworzeniu makra działającego wg poniższego 1. w arkuszu "dane2" mamy cennik produktów 2. w kolumnie E są przyciski pod które muszę podpiąć makro; przycisk z E2 kopiuje wartość komórki C2 do arkusza "dane1"w pierwszą wolną komórkę z zakresu A3:A20; przycisk z E3 kopiuje wartość komórki C3 do arkusza "dane1"w pierwszą...
Dałem Ci tylko podpowiedź. Popraw [syntax=vb]Cells(nw, 1) = Sheets("Issuance").Cells(18, 2)[/syntax] na [syntax=vb]Cells(nw + x, 1) = Sheets("Issuance").Cells(18, 2)[/syntax] Baw się indeksami komórek...
Zrobiłem coś takiego, gdzie popełniłem błędy? [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=... excel (*.xls*),", MultiSelect:=True) For i = 1 To UBound(plik) Set b = Workbooks.Open(plik(i)) For x = 1 To...
Tak dziękuję. Jednak w Arkuszu2 dane muszą się układać od lewej do prawej nie w jedną kolumnę a w przyporządkowane wiersze. I w pierwszą wolną komórkę musi być wstawiona wartość.
Faktycznie, mój błąd, Już poprawione. ( Zmiana "Model1" na "proj1" ). Czyli po wybraniu w kolumnie N arkusza :"koszty" np. model1 i po uruchomieniu makra, z arkusza "koszty" do arkusza "Lista wybierania zapasów" mają być skopiowane komórki, odpowiednio B6:B13 do pierwszej wolnej komórki kolumny D , oraz D6:D13 do kolumny E.
To by nawet fajnie działało, ale jest problem tego typu, że aby dane zostały wczytane, to pliki źródłowe muszą być otwarte. A chodzi o to, żeby dane były wczytywane bez ich otwierania. Zrobiłem tak jak napisałeś, otworzyłem obydwa pliki, dane zostały wczytane, zapisałem plik z nadanymi ścieżkami i po ponownym otwarciu pliku nie wczytuje danych wywalając...
Witam. Proszę o pomoc. Potrzebne mi jest makro w Excelu, które będzie uruchamiać się po zmianie zawartości komórki, czyli jak ktoś coś wpisze i zatwierdzi enterem to ma się uruchomić makro. Samo makro ma działać w następujący sposób, że po zmianie zawartości w A1/Arkusz1, zostanie uruchomione drukowanie tej komórki, a jednocześnie jej zawartość zostanie...
d) To, ile jest zużytej pamięci RAM w sprzyjających warunkach można policzyć. Ogólnie pamięć wewnętrzna jest rozlokowana jakoś tak: data - bss - wolne - stos teoretycznie można pobrać adres pierwszej wolnej komórki, wierzchołek stosu i można policzyć ile pamięci jest wolne - aczkolwiek 'wolne' to pojęcie względne - wywołanie funkcji, przerwań etc będzie...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Witam proszę o pomoc przy opracowaniu pewnej reguły w excel. Chodzi o to, aby wypełnione komórki z arkusza 1 z kolumny X od wiersza 3 w dół, oraz wypełnione komórki z arkusza 2 od wiersza 3 w dół, były automatycznie kopiowane do arkusza 3 do pierwszej wolnej komórki w kolumnie E od wiersza 3. Można oczywiście z ręki kopiować właściwą komórkę do innej...
Witam, Mam problem z makrem. Zawiesiłem się w pewnym momencie i nie mogę iść dalej. Mam makro, które dopisuje dane w kolumnie A, B i C i dalej w kolumnie O jest dzień tygodnia, z którego pochodzą dane. Chce, żeby makro znalazło pierwszą wolną komórkę w kolumnie O, zapytało przez Inputbox o numer tygodnia a po wpisaniu numeru i kliknięciu ok, chce aby...
Witam! Jestem nowym użytkownikiem forum, dlatego proszę o wyrozumiałość. Szukam rozwiązania dla mojego tematu jednak nic nie potrafię znaleźć... Czy możliwe jest ustawienia hiperłącza w taki sposób aby przenosiło w pierwszy pusty wiersz we wskazanej kolumnie zamiast do na sztywno wybranego np. C3 itp.? Chodzi o to, że w karcie do której przenosi hiperłącze...
Witam, mam problem z napisaniem makra w VBA. Mianowicie, mam plik o nazwie "program" w którym, znajduje się tabelka (zał.1.). Przycisk ma za zadanie otworzyć wskazane przeze mnie pliki i z otwartych plików skopiować wartość komórki A146 z arkusza o nazwie "ORZ". Nazwy plików, które otwiera makro są różne, a w każdym pliku jest arkusz "ORZ" i wszędzie...
To nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...
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: Dim i For i = Range("B" & ActiveSheet.Cells.Rows.Count).End(xlUp)....
Witam, Jestem początkujący jeżeli chodzi o programowanie makra i utknąłem w martwym punkcie. Posiadam skoroszyty z danymi z poszczególnych miesięcy, które na koniec każdego okresu muszę wgrać do innego(zbiorczego) skoroszytu z którego wyciągam interesujące mnie dane z kilku lat. Udało mi się ogarnąć temat do momentu wklejenia danych do finalnego zestawienia...
Jeśli formuły są szybsze to super. Nie wiem tylko czy też potrafią działać tak automatycznie jak makro. O co chodzi w zadaniu? Zeskanowany kod (A1) porównać z tabelą (np: A5:A10) wartość z wagi (B2) przenieść w pierwszą wolną komórkę do właściwego wiersza (a który to właściwy, wiemy z wcześniejszego porównania) w kolumnie n przyporządkowanie. Wartości...
Przecież ten skrypt/makro jest skopiowany i dokładnie opisany na: https://www.extendoffice.com/documents/e... Czy asia.asia oczekuje na pomoc czy chce aby ją ktoś wyręczył z trudu przeczytania i zrozumienia gotowca? Odkrywanie rzeczy nowych może być pasjonujące. Proponuje przeczytać wcześniejszą moją...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Witam serdecznie. Jest to mój pierwszy post więc proszę o wyrozumiałość. Mam pewien problem a że VBA nie znam zbyt dobrze ( raczej jakieś podstawy) trochę mnie to przerasta. Szukałem coś nt. temat ale ciężko znaleźć jakiś podobny przykład. Do sedna: Dane: W pliku znajduje sie kilka arkuszy : arkusz1, arkusz2,arkusz3, arkusz4 itd. W 4 pierwszych arkuszach...
Dziękuję za zainteresowanie moim postem i podpowiedź. Faktycznie przeoczyłem, że MAKRO miałem zapisane w PERSONALU a nie skoroszycie, więc wysłałem plik bez MAKRA. Ponawiam więc załącznik z dopisanym kolejnym kawałkiem kodu. Warunek aby nazwy spółek pozostających w portfelu z poprzedniego miesiąca nie pokrywały się zestawieniem z obecnego miesiąca rozwiązałem...
Lub przywrócić tym komórkom format tekstowy Wklejana wartość komórki jak zaczyna się od apostrofu (pojedynczego ' ), to narzuca interpretację tekstową. Apostrof nie jest częścią teksu. Zapomnienie o apostrofie to jest częsty błąd, ujawniający się po czasie, w rozwiązaniach arkuszowych. (at)adamas_nt Oczywiście prawdziwa baza danych jest wolna od takich...
Co do EEPROMU - czy zapisujesz konfigurację zawsze pod tym samym adresem? Jeśli tak, to pewnie po baaaardzo długim czasie go zajeździsz. Często stosowanym rozwiązaniem jest podział EEPROMu na banki i zapisywanie za każdym razem w innym z nich. Wtedy obciążenie rozkłada się bardziej równomiernie po całym obszarze pamięci. Przyznaje, myślałem nad tym,...
Witam, proszę o pomoc w makrze pobierającym dane, utknąłem w momencie, gdy chcę aby wyselekcjonowane dane wyrzuciło mi do Arkusza3, było wiele podobnych wątków ale z wierszami, a mi się rozchodzi o kolumne. Kombinuje 2gi dzień bez lepszego skutku, jedyne co udaje mi się osiągnąć to przekopiowanie komórek z kolumny w Arkuszu2 do Arkusza3, pętla wykonująca...
Dobry wieczór, Pierwsze pytanie, czy to ma być rozwiązanie w Excelu, czy w Visual Basicu? Jeżeli w Excelu, to można wykorzystać iteracje, żeby w ciągu znaków znaleźć pierwszą literę. Zakładam, że pierwsza litera to początek nazwy miasta. Aby zrealizować obliczenia iteracyjne, należy w opcjach Excela zezwolić na iteracje. Potrzebna też będzie komórka...
pierwszej generacji pilot komórce diody komórce
front zmywarka montaż passat rolek alternator karta pamięci uszkodzona
elektroniczna głowica termostatyczna elektroniczna głowica termostatyczna
New Holland TN95 - Podnośnik nie reaguje na dźwignię Panasonic SA-AK410 – nie obraca się płyta, nie świeci laser, diagnoza i naprawa CD RAE0152