Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
Po pierwsze to zastanawiam się nad zyskiem z automatyzacji wypełniania tej daty, przecież wystarczy przeciągnąć myszką. A problem można rozwiązać całkiem zgrabnie: wykorzystując zdarzenie Change arkusza pobrać położenie aktualnej komórki, jej wartość i wypełnić tą wartością wszystkie puste w dół jeżeli w "B" jest jakaś wartość. Dodano po 11 Po pierwsze...
Zapomnialem zaznaczyc ze jestem troche zielony.. Dodano po 24 Ohm, juz zamkniete, zrobilem, dziekuje. Wszedlem po prostu w makra, nagralem makro - edytowalem je w visual basicu i wkleilem kod do przycisku :)) wyglada on tak: ActiveCell.FormulaR1C1 = "=VLOOKUP(R23C12,Podsumowania!R3C1:R32C5... Range("I27").Select Pozdrawiam. Dodano po 19 Niestety...
OK działa. Super, dzięki. A czy do mojego kodu mogę dodać tworzenie tabeli 2x2 (wiersze, kolumny). i tak, żeby np. w którejś kolumnie pisać dwoma stylami. Tzn. był napis "KolorTest" w którym to napis "Kolor" będzie czerwony a "Test" czarny? Dodano po 5 Może bardziej sprecyzuję o co mi chodzi: W tej procedurze jestem już w stanie (dzięki OJM) wrzucić...
Mam obszar o czterech kolumnach (A:D) i zmiennej ilości wierszy; w kolejnych iteracjach komórki wypełniane są nowymi danymi, więc liczba wierszy w kolumnach się zmienia. Każda z kolumn lub nawet dwie kolumny jednocześnie może w danej iteracji zawierać same puste komórki. Problem jest taki, że gdy korzystam z CurrentRegion a jedna lub więcej kolumn zawiera...
Witam, mam następującą zagwozdkę. Mam kilkanaście plików. Jeden z nich ma kontrolować czy są wypełnione dane komórki w pozostałych plikach. W plikach, które wypełniają pracownicy jest makro, które powoduje po kliknięciu przycisku powstanie nowego arkusza z pustą tabelą o nazwie "przekazanie zmiany" &date i ukrycie poprzedniego arkusza. Oba pliki chciałam...
Ten opis jest w dalszym ciągu nieprecyzyjny. 1) Kopiuje Pan kolumny E, F, G, H, I. Czy w tym momencie ma być sprawdzana unikatowość trójki kolumn E,F,G oraz osobno H? Dane są skopiowane. Procedura sprawdza poprawność. Jak ma zareagować w razie stwierdzenia, że jest duplikat w kolumnach E-G lub H? Rozumiem, że ma wyświetlić komunikat i co dalej? Usunąć...
Kopiuje z pojedynczej komórki do zakresu scalonego który ma swoją nazwę. //wcześniej pomyliłem zmienne wksz,wksdo //status to nazwa scalonego zakresu //arkusz wksdo - jest aktywnym otwartym arkuszem fpath = ActiveWorkbook.Path fname = ActiveWorkbook.Name Workbooks.Open FileName:=fpath & "\Baza.xlsx" Set wksdo = Workbooks(fname).Sheets("Arkusz1") Set...
Nie wiem jak zrobić aby tworzyło mi fakturę (plik pdf) z drugiego arkusza, jednym przyciskiem, zrobiłem sobie wszyściutko jak ma wyglądać, sama się wypełnia gdy użyję przycisku wydania lub przyjęcia towaru, pokazuje ilość itp, jeśli tworzę plik pdf za pomocą kolejnego przycisku kodem: Worksheets("Faktura").Range("A1:I39").Ex... Type:=xlTypePDF,...
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
Witam, mam problem związany ze zobrazowaniem wartości komórek innego arkusza w danym skoroszycie w czasie gdy otwarty jest UserForm. Załączony arkusz jest "okrojony" w celu udokumentowania problemu , który napotkałem. Pytanie brzmi: Czy można tak określić reguły UserForm aby uzyskać taki efekt jaki zamieściłem w na załączonym obrazku ? (jest to sytuacja...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Dziękuję za odpowiedź. Używałem kontrolek z formatu ActiveX Dodano po 47 A powiedz mi kolego, może się orientujesz. Czy jest w ogóle technicznie do zrobienia w wordzie coś takiego że wstawiam sobie checkboxy i później na końcu jakiś label który liczy mi sumę liczb z tych checkboxów? Tylko jeden warunek, nie mogą być użyte makra z tego względu że ten...
Czemu nie ma załącznika? Niby to proste, ale niejasne. Komórka A1 w którym arkuszu? w aktywnym? w określonym z nazwy? w pierwszym, w którym komórka A1 jest wypełniona? W sąsiednim arkuszu należy rozumieć: w następnym czy w poprzednim? Poszukiwane słowo "białe" lub "czarne" ma stanowić pełną zawartość komórki czy fragment zawartości komórki? Czy wielkość...
Przetestuj [syntax=vb]Sub y() Dim rRng As Range 'definicja przetwarzanego zakresu Set rRng = Range(Cells(7, 3), Cells(19, 15)) 'wpisanie wartości z nagłówków kolumn 'najpierw formuły odnoszące się do wiersza 4 rRng.SpecialCells(xlCellTypeConstants).F... = "=R4C" 'wklejenie jako wartości For Each cl In rRng.SpecialCells(xlCellTypeFormulas) cl.Value...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Jak już piszemy o różnych rozwiązaniach, to zaproponuję takie: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Interior.Color = vbYellow Then UserForm1.Show Cancel = True End If End Sub [/syntax] Wystarczy wypełnić na żółto żądane komórki.
Jeżeli to arkusz ukryty, to daj tym komórkom jakiś kolor wypełnienia, a później czyść wszystkie, które mają taki kolor. Jak w arkuszu widocznym to daj tło np: .Color = 16711422, myślę, że nie odróżnisz od białego ;) To arkusz roboczy, aktywny, który częściowo ma ukryte wiersze, które też powinny się czyścić. Ale tak, ma czyścić pola, które może wypełnić...
Makro jest do zrobienia. Możliwa jest też obsługa makrem komunikacji z ew. PowerPoint co po spięciu z całą tabelą daje możliwość "odwrócenia" wszystkich wpisów w komórkach z automatu. Szkoda tylko, że autor wątku zamilkł, a taki był aktywny... do czasu.
A co z ilościami, ceną i wartością? Która ilość ma znaleźć się na PZ? Sucha się "sama" liczy, czy wpisujesz ręcznie? Czy kopiowanie danych z aktywnego wiersza, czy z ostatniego. Które dane są wymagane, a które można pominąć (PZ tworzona jest mimo niewypełnionych komórek wiersza)?
Nagraj makro i dostosuj do swoich potrzeb. Dzięki. Nie pomyślałem i rzeczywiście udało się. Będę tylko wdzięczny jak ktoś mi podpowie co należy dopisać jeżeli chcę np edytować komórkę w kolumnie C pod ostatnią wypełnioną komórką (w kolumnie są też puste komórki) Dodano po 1 Mam takie teraz makro: [syntax=vbscript]Sub wstawianie_bezduplikatów() Sheets("Arkusz1").Select...
Witam i potrzebuję pomocy doświadczonych w tym temacie. Poniżej mój kod zmodefikowany z kilku opcji:sprawdzanie wypełnionych komórek,tworzenie kopi zapasowej z zapisanie we wskazanej lokalizacji i zapisanie przed przypadkowym zamknięciem skorozytu. Działa i spełnia swoją rolę lecz jest małe utrudnienie,mianowicie mam kilka arkuszy w tym skoroszycie,gdy...
Dzień dobry, Proszę spróbować zastosować takie makro: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim s As Long, n As Long, i As Long With ActiveSheet.UsedRange s = .Row n = .Rows.Count For i = 1 To n If .Cells(i, "A") > 0 And .Cells(i, "K") = "" Then .Cells(i, "K").Activate MsgBox ("Komórka K" & i + s - 1 & " nie została wypełniona."...
Zastosuj pętlę, np: for/next [syntax=vb]Sub Wyslij_Petla() Dim lOstRw As Long 'określenie ostatniej wypełnionej komórki w kolumnie A aktywnego arkusza lOstRw = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lOstRw 'twój kod .to = Range("A" & i).Value Next i End Sub[/syntax]
WITAM!! Bardzo prosze o pomoc w napisaniu makra: musi zawierać ono 3 przyciski (yesNoCancel) oraz ikonę ostrzeżenia. musi wyswietlac zapytanie "czy kolor obramowania aktywnej komórki ma być czerwony a wnętrza niebieski" TAK- obramowanie czerwone, wypełnienie niebieskie NIE- nic musi to dzialac w excelu 2010 VB... wogole sie na tym nie znam- dla tego...
Witam, W załączonym przykładzie w pliku Excel mam dwa arkusze: Dane oraz Tabela. W arkuszu Dane mam wstawioną tabelę z danymi, która jest na bieżąco uzupełniana przez różnych użytkowników. W arkuszu Tabela mam wstawioną tabelę przestawną która prezentuje dane z podziałem na osoby odpowiedzialne za dany temat i przyporządkowanymi jej tematami. Bardzo...
WO 2010066025 20100617 Magazynowania energii ELECTROCHEiVlICAL I ABSOLUTORIUM Wynalazek dotyczy urządzenia i sposobu magazynowania energii elektrochemicznych i absolutorium. Tło wynalazku Najważniejsze znane techniki związanych z przedmiotem wynalazku jest przedstawiony w patentach US 5124012 (Berleyev) wydane 23 czerwca 1992 i 7033478 (Harde) wydane...
Witam wszystkich forumowiczów, mam pytanie związane z Excelem 2013, a mianowicie czy mogę uaktywnić przycisk wykonujący makro z listy drop box. Bardziej dokładnie opisując: mam kolumnę z komórkami wyboru listy drop box i jeśli wszystkie są wypełnione to ostatnia komórka jest zdefiniowana jako drop box tak lub nie. Jeśli jest wybrane Nie to nic się nie...
Witam, Od niedawna zacząłem swoją przygodę z VBA w Excel'u, a więcej jestem raczej laikiem w tej kwestii. Aktualnie staram się przygotować makro, które pozwoli mi zaoszczędzić trochę czasu w pracy. Przechodząc do konkretów, chciałbym napisać makro, które będzie zamieniało wartości w komórkach - z daty na konkretne wyrażenie(#N/A). Komórki mają być zamieniane,...
Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):[syntax=vb]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("Wydruk") With ActiveSheet wrs = ActiveCell.Row arkPrn.Range("d7") = .Cells(wrs, 1) 'Nr...
Witam, Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor". Czy mógłby ktoś miły pomóc? Dodano po 55 Jakby co to sobie już poradziłem, wklejam kod... może...
Witam, Jestem zupełnie nowa w temacie VBA i wrzucono mnie od razu na gęłboką wodę. Mam do napisania aplikację sortującą bazę danych. Ale po kolei: na chwilę obecną potrzebuję makro które będzie wyszukiwało wartość tekstowa w 1 wierszu i jeśli ją znajdzie ustawi tam aktywną komórkę po czym wstawi 4 puste kolumny na prawo od niej. pózniej muszę wypełnić...
http://obrazki.elektroda.pl/4657030700_1... Pamiętam, gdy kupiłem swój pierwszy procesorowy miernik częstotliwości. Wyposażony pierwotnie w rezonator kwarcowy zapewniający dokładność około 10ppm. Było to całkiem zadowalające, biorąc pod uwagę rozdzielczość częstościomierza oraz możliwość dopasowania obliczeń do odchyłki wzorca. Po krótkim...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
Sugestia to potężna broń. Nie napisałem słowa na temat zastosowania przeze mnie srebra koloidalnego ani jakiej wody użyłem, a już jeden z kolegów skierował mnie do lekarza. Napisałem " dla własnych potrzeb " , a to nie oznacza, że woda będzie użyta w celach zdrowotnych. Można stosować w zabiegach higienicznych lub kosmetycznych, w utrzymaniu czystości...
https://obrazki.elektroda.pl/1453908500_... Cześć, Chciałem Wam przedstawić coś z trochę innej beczki. Są to miniaturowe głośniki do komputera, teoretycznie jakich wiele, ale nie do końca :) Zaczęło się od tego, że chciałem zrobić sobie miniaturowe głośniki do laptopa charakteryzujące się możliwie jak najlepszym przenoszeniem basu...
Tak jak pisałem, jedno podpiąłem do aplikacji na komórce, a drugie do monitora, w Twoim przypadku chyba trzeba założyć jeszcze co najmniej jedno, aczkolwiek jednocześnie uruchomiłem to samo konto na panelu i monitorze i cośtam działa, ale chyba lepiej będzie dać na każde urządzenie osobne (tak samo w przypadku innego domownika - przynajmniej w Akuvoxie...
http://obrazki.elektroda.pl/7154876600_1... Boberov Unbelievable Boot Loader V0.1 2013 Na wstępie skrócone informacje na temat projektu którego szerszy opis znajduje się w dalszej części tekstu. Program bootloadera przeznaczony jest dla ATMEGA8 (po minimalnych zmianach każdy AVR z wystarczającą ilością pamięci), umożliwia programowanie...
Energia za Darmo? Silnik Johnsona – PPM. Jest to silnik, który przekracza barierę 100 %, używa magnesów stałych do generowania i podtrzymywania swojego ruchu. Inż. Howard Johnson stwierdził, że przy odpowiednim ułożeniu magnesów energia poruszających się na nich elektronów może stanowić nieskończone źródło energii, dzięki której będą mogły się...
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: http://obrazki.elektroda.pl/1253251300_1... Po podwójnym kliknięciu na komórkę C6 Excel tworzy nową zakładke...
kolor aktywnej komórki ustawiane aktywnej komórki pobieranie wartości aktywnej komórki
wypadanie zapłonu cylinder honda wtórnik napięciowy wzmacniacz soundbar zrobić samemu
Sharp LC22CFF4041E, Vestel 17MB95-S – typowe usterki, firmware, naprawa mainboardu Firmware do routera ZTE MF258 od Play - gdzie znaleźć?