excel option button

Excel, option button - Jak szybko przypisać option button do grup w dużej liście?

Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...

EXCEL - Automatyczne wstawianie znaku równości do komórki

Masz niezadeklarowaną zmienną i. Dyrektywa [syntax=vbscript]Option Explicit[/syntax]wymusza konieczność deklarowania wszystkich zmiennych (co jest zalecane, bo łatwiej wtedy kontrolować co się dzieje i czy nie ma literówek w nazwach zmiennych). Bez tej opcji dla nowej niezadeklarowanej zmiennej VBA przyjmuje domyślnie typ Variant i program działa. Lepiej...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - makro, wklej wartość "Y" do komórki obok, która spełnia warune

Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub

[Excel VBA] Jak automatycznie wstawić numer arkusza do komórki A5 w 200 arkuszach?

Jeśli indeks arkusza, czyli jego nr położenia w zeszycie, to np. tak: [syntax=vba]Option Explicit Sub wstaw_nr_arkusza_w1() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets ark.Range("a5").Value = ark.Index Next End Sub [/syntax] Można to powiązać np. z procedurą otwarcia zeszytu 'Workbook_Open': [syntax=vba]Private Sub Workbook_Open() Call...

Excel Makro - Jak skopiować i sformatować wiersz z modyfikacją komórki?

...lub gotowca... [syntax=vb]Option Explicit Sub kopiujZakres() Dim r% Dim cRange As Range, pRange As Range r = ActiveCell.Row Rows(r).Insert Shift:=xlUp Set cRange = Range(Cells(r - 1, 1), Cells(r - 1, 7)) Set pRange = Range(Cells(r, 1), Cells(r, 7)) cRange.Copy Destination:=pRange Rows(r).Interior.Color = 65535 Cells(r, 3) = "1579x" End Sub[/syntax]...

Excel Makro Data i Godzina - Blokada przed zmianami

Sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 "a" co to jest to "a" w "If Target <> a" ? Tutaj też trzeba by chyba coś zmienić, bo wychodzi na to, że dwa razy jest sprawdzane, czy jakaś ".Value = "" ", czy też czemuś się równa jednak. W załączonym do tematu kodzie "a" zawsze jest 'puste', gdyż nigdzie nie...

Excel data modyfikacji komórki - Data modyfikacji oraz nazwa użytkownika

Spróbuj tak: [syntax=vbscript] Option Explicit Private a Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(ActiveCell, Range("C:E")) Is Nothing Then a = ActiveCell End Sub Private Sub WorkSheet_Change(ByVal Target As Range) Dim i As Integer i = Target.Row If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then...

Jak załadować sformatowane godziny do ComboBox w VBA Excel?

:) ... sformatować ... bowiem to co widzisz jako format godzinowy w arkuszu, to tylko zwykła excelowa ściema. W komórce jest właśnie to, co ci się wyświetla w liście kombinowanej ... :) Np.: [syntax=vbscript]Option Explicit Private Sub UserForm_Initialize() Dim tbl(), indeks With Arkusz5 'tbl = .Range(Cells(10, 4), Cells(10, 15)).Value 'lub tbl = .Range("d10:o10").Value...

VBA excel-edycja makra do uzupełnianai danych i wydruku

oki ... trochę mało udogodnień w tym arkusiku, nawet takich najprostszych, pokrywających się z menu, ale będących bardziej pod ręką .... Podgląd i uzupełnianie startuje z "BAZA", po zamknięciu podglądu aktywowany jest arkusz "BAZA". 912269

Makra Excel i Word - Jak zmodyfikować kod dla długiego łańcucha znaków?

U mnie działa coś takiego: [syntax=vbscript]Option Explicit Sub zupa_jarzynowa() 'Word Const wdFormatXMLDocument = 12 Const pnt = "$numer" Const tmplt = "szablon.docx" 'Excel Const dtxtadr = "B3" Const txtadr = "H2" Const sht = "Arkusz2" 'General Const rslt = "wyniki" Const sffx = "_Pismo" Const dfrmt = "YYYY.MM.DD" Dim txt As String, flenme As String,...

VBA Excel - Import plików txt do kolejnych kolumn w jednym arkuszu

Przetestuj poniższe makro. [syntax=vb]Option Explicit Sub Import_TXT_FSO() Dim oFSO As Object 'File System Object Dim oFld As Object 'Obiekt Folder Dim oFls As Object 'Obiekt Plik Dim oTemp As Object Dim iRw As Integer: iRw = 1 'wiersz do którego wpisywane są dane Dim sItem As String 'katalog z plikami Dim sExt As String 'rozszerzenie pliku Dim fl As...

Excel [VBA] porównanie list i skopiowanie komórek z jednej listy do drugiej

Pomysł Macieja Goneta chyba najekonomiczniejszy i do rękodzieła i do automatyki - połączyć dwie listy, wysortować, usunąć duplikaty, skopiować wynik na dwa obszary i mamy dwie listy. [syntax=vba]Option Explicit Sub ListaA_ListaB() Dim wB&, k% k% = 3 Application.ScreenUpdating = False wB = Range("F3", Range("F" & Rows.Count).End(xlUp)).Rows.Count Range("A"...

Excel VBA Makro - Makro wyszukujące znak w komórce i kopiowanie zawartości wiers

Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireColumn.Insert Cells(1, 2).Value = "autorzy" Cells(1, 3).Value...

Excel vba - wyszukanie i kopiowanie wierszy do arkusza vba

Tu masz kod tego makra. Procedurę SzukajUlicy() podepnij pod jakis przycisk. Myślę, że z resztą sobie poradzisz. [syntax=vb] Option Explicit Sub SzukajUlicy() Dim ws As Worksheet Dim lWiersz As Long Const lKolumnaUlicy As Integer = 5 'E lWiersz = 4 'początkowy wiersz zawierający dane Dim sNazwaUlicy As String Dim Znalazlem As Boolean sNazwaUlicy = InputBox("Podaj...

VBA Excel - Automatyzacja kopiowania wierszy z zbaza1 do baaza po numerze

W Twoim pliku XLS dodałem poniższy kod i przycisk w arkuszu "form2", który uruchamia ten kod. Pozdrawiam - McVik

[VBA Excel] Jak wyszukać wiersz z kierowca i NIE w dwóch kolumnach?

np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value = "NIE" Then Range(Cells(w, 4), Cells(w, 6)).Select Else MsgBox "Nie znaleziono",...

Jak edytować kod VBA do kopiowania danych między plikami Excel?

kopiować dane najlepiej z pliku zamkniętego Poniżej najprostszy (czyli najwolniejszy: 1000 wierszy i 3 kolumny w 45 sekund) mechanizm kopiowania z zamkniętego pliku, wykorzystujący zwykłe odniesienie do pliku na dysku, postaci: 946005 Ps.: Przy wykorzystaniu np. ADO/SQL wyniki szybkościowe na pewno byłyby lepsze, ale mechanizm obsługi bardziej "skomplikowany".

Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

Najprościej: Nie zadziała jeśli target jest większy niż pojedyncza komórka (np. wklejanie kilku komórek). Odnośnie mojego przykładu - a u mnie działa ;) tzn. reaguje tylko na wiersz 5. Edit: Mała modyfikacja eliminująca pewną niedogodność przy wklejaniu kilku komórek na raz ;) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim...

Excel - makro pod przyciskiem. Wczytywanie kolejnych danych.

Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...

Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych

skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Sprawdź: [syntax=vba]Option Explicit Sub odkopiuj() Dim kc As Integer, kd As Integer Dim wrs As Long Dim nagl As String Dim arkC As Worksheet Application.ScreenUpdating = False Application.Calculation = xlManual 'Niekoniecznie Application.EnableEvents...

VBA Excel - zapisywanie edycji komórki w ustalone miejsce w innym arkuszu.

... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...

[Excell] Jak ustabilizować format daty w Listbox UserForm?

problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...

Błąd "Duplicate declaration in current scope" w VBA (Excel)

Wydaje się, że tę i tak niezbyt długą, pojedynczą nić DNA, można jeszcze odrobinę skrócić, replikacja będzie łatwiejsza ... : ) Przykładu nie ma, więc i pewności, że będzie działać ... : ) [syntax=vba]Option Explicit Option Base 1 Private Sub save_Click() Dim i As Integer, igw As Integer Dim emp As Long Dim ctrls1, ctrls2, ctrls3, ctrls4, ctrls5, cols...

[VBA Excel] Pętla w pętli / wyszukiwanie kilku zmiennych

co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...

Excel - Lista "zbiorcza" składająca się z list z wielu arkuszy

Ojej, zapomniałem o Tobie... Coś tam szybko naskrobałem. Będzie od czego się odbić. Wklej do modułu i wypróbuj [syntax=vb]Option Explicit Option Base 1 Sub ListaZb() Dim rowDst(1 To 3) As Long, r As Long Dim i As Integer, j As Integer, ark As Integer Dim rngSrc As Variant, arkusze As Variant rngSrc = Array("Tabela711", "Tabela7112", "Tabela71124") arkusze...

[EXCEL] Jak poprawnie filtrować dane w trzech kolumnach w Excelu?

Wzorowałem się na pliku z dwoma zmiennymi, który działa idealnie. Dodałem trzecią zmienną i wszystko się posypało Zwróć uwagę, że: 1. W pliku "wzorcowym" istniejące tam dwa warunki działają "na krzyż", tzn., że jeśli jeden z nich = "Wszystkie", to sprawdź wartość drugiego i jeśli ten jest inny jak "Wszystkie" to wykonaj kryteria przypisane do tego...

Excel VBA – automatyczne drukowanie formularzy dla podzleceń z bazy zewnętrznej

Rozwiązań jest naprawdę sporo Zgadzam się z tym poglądem i choć autor postu chyba zasypał się w tych rejestrowanych makrach :-) to podsuwam nieco inne rozwiązanie tego zadania marek003 obawiam się uruchomienia takiego masowego wydruku na nieokreślonej drukarce (jednostronna czy dwustronna) i dlatego proponuję rozwiązanie z exportem wszystkich podzleceń...

Excel VBA - Kopiowanie danych do innego formularza

Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...

Excel-VBA: Wyświetlanie nazw kart w ComboBox i tworzenie nowych kart

Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...

VBA PowerPoint - uzupełnianie prezentacji o zdjęcia z katalogu

1. ... projekt (kilkanaście tyś. zdjęć) ... 2. ... miałoby wyglądać tak, że w katalogu w którym są zdjęcia (głównie *.JPG chodź mogą być inne formaty) wrzucam plik: prezentacja_tuJejNazwa.ppt . I otwieram go i prezentacja się uzupełnia np. po na ciśnięciu przycisku o zdjęcia z katalogu. 3a. ... Zdjęcia idą po dacie wykonania zdjęcia od najmłodszego...

Automatyczne tłumaczenia tekstów w arkuszach Google Sheets (Excel online). Tłumaczymy firmware.

Przetłumacz poniższe techniczne zwroty (związane z prądem) z angielskiego na języki: polski, czeski, niemiecki i rosyjski. Rezultat zapisz w postaci JSON. Relay, Button, Voltage, Power, Current, Options, Yes, No [syntax=JSON] { "Relay": { "pl": "Przekaźnik", "cs": "Relé", "de": "Relais",...

Excel-przenoszenie wyszukanych umów do poszczególnych arkuszy

Zacznij od początku jeszcze raz bo coś za dużo usunąłeś z kodu (nie mam jak ci podesłać bo w pracy mam 2010 i rozwala mi plik) między tymi linjami kodu wprowadź warunek If IsNumeric(fragment2) Then fragment2 = "" kod = fragment1 & fragment2 Czyli ma wyglądać tak: If IsNumeric(fragment2) Then fragment2 = "" If...

Excel VBA - wyszukiwanie wierszy i przenoszenie do innych arkuszy

I wówczas imię przypisanego sprzedawcy powinno determinować arkusz Do tego cały czas zmierzam: skąd Excel ma wiedzieć, któremu sprzedawcy przypisać danego klienta? 3. Jeśli zalogowana jest Basia, to przypisze Basi- można np. zastosować zmienną globalną i przechowywać w niej nazwę usera. 4. Jeśli zalogowany jest admin to potrzebne jest dodatkowe pytanie...

Jak zrobić aby excel zliczał komórki po kolorze czcionki

... ale nie o to mi chodziło. Ja chcę aby sumowało (wartości) tylko np. komórki z niebieskim tłem i żółtą czcionką ... Jak piszesz tak cię rozumieją - czy w tym zdaniu powyżej zabrakło "nie", czy może o "tylko" jest za dużo ? ... chcę aby sumowało (wartości) (?...?) np. komórki z niebieskim tłem i żółtą czcionką, i osobno z fioletowym tłem i żółtą...

VBA Access - Jak eksportować jeden rekord do Excela z formularza?

Cześć! Proszę o pomoc! Jestem nowy w Accessie i porywam się na zrobienie bazy danych produktów. Doszedłem do problemu, którego nie mogę przejść. Otóż nie mogę wyeksportować jednego rekordu do Excela. Co chcę osiągnąć: W formularzu wybieram/dodaję produkt. Klikam w przycisk i eksportują mi się jego parametry tylko tego jednego rekordu do Excela. W internecie...

Excel - VBA do wyciągnięcia z komórki określonego ciągu znaków / cyfr

Nasuwa mi się od razu pytanie: dlaczego 22-122 jest pominięte? Przykład jak dla mnie błędny bo najdłuższy tekst ma 7 znaków - spacja jest tekstem więc skoro pominęliśmy wcześniej "kod pocztowy" to dlaczego kolejny ciąg ze spacjami też w mojej ocenie nie spełnia warunku. Jest to do zrobienia, ale musisz precyzyjniej opisać co chcesz osiągnąć - jaki jest...

[VBA/Excel] - Jak stworzyć wyszukiwarkę filmów w Excelu?

Dodano po 4 nie trzeba pisać pełną nazwę filmu, raczej początek

[EXCEL][VBA] złączenie dwóch komórek (&) formułą ujęte w kodzie

Dopiewdź do odpowiedzi powyżej: Integer i string Dla wierszy bezpieczniej będzie "&", czyli Long. Inny wariant kolegi cbrman [syntax=vbscript]Option Explicit Sub zzz() Const nagDane1$ = "Dane1", nagDane3$ = "Dane3", nagWynik$ = "Wynik" Const kolWynik% = 5 'Przesunięcie o 5 kolumn względem kolumny z etykietą "Dane3" Dim kolDane1: kolDane1 = Application.Match(nagDane1,...

EXCEL/VBA: Jak stworzyć pętlę z warunkiem if na podstawie numeru dostawcy?

Błagam o pomoc :) Ja to zrozumiałem tak (uszczuplone do granic możliwości :) na dwóch najprostszych pętlach ) [syntax=vbscript]Sub test() plik = "h:\macro\" & "zamowienie CRC 4-2" & lp & ".mac" Open plik For Output As #1 Print #1, "[PCOMM SCRIPT HEADER]" Print #1, "Language = VBSCRIPT" Print #1, "DESCRIPTION=" Print #1, "[PCOMM SCRIPT SOURCE]"...

Jak zautomatyzować VBA do kopiowania linii między arkuszami w Excel?

No dobra ... dla zachęty ... Założenia: 1. W arkuszu masz ileś tam pól wyboru - nie odpowiedziałeś na pytanie więc wstawiaj je sobie ręcznie, jak masz czas na to ... 2. Pola wyboru, mają nazwy ściśle powiązane z numerami wierszy, w których się znajdują, np.: "CB 2" 3. Zaczynając się od wiersza nr 2 (pierwszy wiersz to nagłówki kolumn, zakładamy że są...

Makro Excel: Automatyczny import danych z pliku txt do arkusza

dzięki adamas_nt :-) poprawiłam co nie co i teraz działa. Tak wygląda poprawne makro [syntax=vb]Option Explicit Sub information_import() Dim my_file As String, text As String, postUx As Integer, postUy As Integer, licznik As Byte licznik = 1 my_file = "C:\Analysis_File\Projekty_monika\Cylind... Open my_file For Input As #1 Do Until EOF(1)...

Ikony zniknęły z paska zadań, pojawił się Zango Options, brak opcji wyłączenia

menadzera mam ale ikon napasku nadal niema jak je przywrucić Logfile of HijackThis v1.99.1 Scan saved at 23:18:58, on 2006-05-16 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe...

Excel- automatyczne kopiowanie większej zawartości pól

Wybróbuj (wklej do nowego modułu)[syntax=vb]Option Explicit Option Base 1 Sub kombinacje() Dim ark As Variant, w As Long Dim i As Long, j As Long, idx As Integer, wzor As String ark = Array("PracownicyKierownik1", "PracownicyKierownik2") Sheets(ark(1)).Range("B:E").ClearContent... Sheets(ark(2)).Range("B:E").ClearContent... w = 1 With Sheets("Pracownicy")...

Jak zmodyfikować makro w Excel 2010, aby drukowało dwustronnie?

... Gdy wybiorę karty ręcznie i dam "drukuj aktywne arkusze" drukuje mi dwustronnie ... Czyli zaznaczasz wpierw zbiorczo wszystkie arkusze i tak drukujesz, nie pojedynczo ? Edycja: Sprawdź, czy któryś zadziała. [syntax=vbscript]Option Explicit 'Zbiorczo Sub Drukuj_2() Dim ark, arr With ThisWorkbook For Each ark In .Worksheets If ark.Range("F6").Value...

[VBA] Excel - Makro kopiujące zakresy z pominięciem pustych wierszy w kolumnach D i F

możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F Jakoś tak (?) ... a może inaczej ... Założenia: 1) Arkusz z danymi = 'Arkusz1' 2) Arkusz docelowy kopiowania = 'Arkusz2' Uwagi: 1) Wielokrotne...

[VBA] Excel - Makro do uzupełniania danych w arkuszu BAZA z RAPORT

Sprawdź ... JRV , jeśli zadziała, to podziękuj mu za pomysł. Wyszukiwane są wpisy z "Baza" w "Raport", jeśli jakiś wpis nie zostanie znaleziony i funkcja wygeneruje błąd, to klauzula 'On Error' go "spławi" i kod wykona się dalej. Wyszukiwane wartości w "Baza" są wstępnie pozbawiane odstępów, jeśli więc coś "jest" a nie jest" wyszukiwane, trzeba w pierwszym...

EXCEL Blokowanie tabeli uzupełnianej automatycznie w VBA

Cześć Mam mały problem. Stworzyłem arkusz w którym wpisywane są dane w kolumnach od B do I następnie w kolumnie J dodawana jest data odpowiadająca wpisowi w danym wierszu(kod napisany w VBA). Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim WorkRng As Range, Rng As Range Set WorkRng = Intersect(Application.ActiveSheet.Ra...

Wyszukiwanie kolumny po nazwie Visual Basic (Excel makro)

Aleś "przykłade obrazkowo" machnął ... : ( ... jakbym chciał w ten sposób odpowiedzieć, to miałbyś kod też w postaci obrazka ... : ) Założenia są takie, że tabela w "Arkusz2" zaczyna się od "A1" a jej nagłówki są albo takie (swoim schematem) jak w "Arkusz1", albo tylko czteroznakowe. Tabela źródłowa również zaczyna się od "A1", chociaż jest tam niby...

VBA - Jak przypisać kilka czynności do jednej pozycji z ComboBOX w Excel VBA

Witam, w Excel VBA zrobiłem sobie formularz w ktorym dodałem ComboBox zawierający dane z arkusza 1 od B2 do B10. Po wybraniu pozycji w ComboBox program wstawia mi tą wartość do komórki F9 w arkuszu 3. Chcę teraz wstawić zależność, że jesli w Combobox zostanie wybrana pozycja nr1 to do kolejnej komórki zostanie pobrana inna wartość już z arkusza 2. Mam...

[Excel] [VBA] LIsta wyboru z podziałem na grupy i podgrupy

... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....

makro-excel - wyszukiwanie wartości o przeciwnych znakach

Zdaje się, że szybciej byłoby zapisywać od razu do komórek, bez pośrednictwa tablicy. Oczywiście wyłączając odświeżanie. Np Niestety przy tak dużej ilości danych Excel dalej się zawiesza,zastanawiam się czy jest jakiś inny sposób niż porównywanie każdej komórki z każdą? Dopiero od niedawna mam styczność z makrami, dlatego będę wdzięczna za wszystkie...

Excel - Jak odkryć kolumnę po zmianie wartości w ukrytej komórce?

Jeśli zmiany będą dokonywane "ręcznie", to można spróbować w ten sposób: (kod do modułu arkusza "źródłowego") [syntax=vbscript]Option Explicit Dim wartosc Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub wartosc = Target.Cells(1) End Sub Private Sub Worksheet_Change(ByVal Target...

VBA - Błąd 1004 podczas dodawania obrazów - Niekompletna przetwarzanie kodu

Zmieniłam kod, żeby działał w każdym arkuszu i wygląda teraz tak: [syntax=vbscript]Option Explicit Sub AddScreenshots() Dim pic As Picture Dim imgLocation As String Dim oppName As String Dim imgName As String Dim img As String Dim Column As Range Dim i As Integer For i = 2 To 13 imgName = ActiveCell.Value img = ActiveSheet.Cells(i, 1).Value imgLocation...

VB: Jak wpisywać dane do różnych komórek w Excelu?

witam mam takie pytanie mam nastepujacy kod 'Zmusza prekompilator do kontroli zmiennych Option Explicit 'Deklaracja zmiennych obiektowych Private ObiektExcelApp As Excel.Application Private WithEvents ObiektExcelArkusz As Excel.Worksheet 'To potrzebne, zeby dobrac sie do zdarzenia SelectionChange Private Sub Check1_Click() ObiektExcelApp.Visible...

Excel VBA: Jak napisać makro działające na dwóch otwartych plikach?

Można otworzyć dwa pliki w dwóch oknach w jednej instancji Excel'a Przełącza się to poleceniem w oknie imediate: Application.ShowWindowsInTaskbar = true Na pewno gdzieś w ustawieniach można to też przełączyć. Jeżeli koniecznie chcesz to z poziomu makra możesz stworzyć oddzielną instancję excel'a i do niej otworzyć. Chociaż jest to kłopotliwe bo często...

[EXCEL][VBA] Kopiowanie z różnych plików do różnych arkuszy

Nazwa pliku jest zmienna i wpisuje ją w komórce od A2 w dół. Rozszerzenie pliku jest od B2 w dół. Arkusz dawcy pd C2 w dół. Arkusz docelowy od D2 w dół. Wszystkie pliki dawcy są w jednym folderze do którego ścieżka jest w polu określonym w arkuszu. Tak samo bezpośrednia ścieżka do pliku biorcy jest określona w pliku nawigacja. Zmieniłem trochę i pozostaje...

VBA Excel 2007 - Pobieranie danych z sieci WEB logowanie

Po długim boju i pomocy znajomego udało się. [syntax=vb]'Needs references to Microsoft HTML Object Library and Microsoft Internet Controls Option Explicit Sub Test() Const cURL = "http://xxx.pl/UI/Login.aspx" Const cUsername = "xxxxxx" 'REPLACE XXXX WITH YOUR USER NAME Const cPassword = "xxxxxx" 'REPLACE YYYY WITH YOUR PASSWORD Dim IE As InternetExplorer...

Excel: Jak zapisywać automatyczne zmiany w komórce A1 z datą i czasem?

Zadziałał mi inny kod w końcu: [syntax=vbnet]Option Explicit Private oldVal As String Private Sub Worksheet_Calculate() updateOldValue Me.Range("A1") End Sub Private Sub Worksheet_Change(ByVal Target As Range) updateOldValue Target End Sub Public Sub updateOldValue(ByVal Target As Range) With Target If .CountLarge = 1 Then If .Address = "$A$1" Then...

Word - Word - automatyczna zmiana daty przy drukowaniu

Mógłby być to exel, używam worda z uwagi na to, że łatwiej mi upchać po 3-4 tabelki na stronę :) Chodzi o to, że mam tabelkę z grafikami i chce wydrukować załóżmy na 6 tygodni. To wpisuje datę początkową i automatycznie na kolejnych kartkach wychodzących z drukarki data się zmienia. Excel ma coś takiego jak "wpasuj w stronę" w obcjach wydruku w ustawieniach...

VBA Excel - Zdarzenie DblClick w Listview powoduje wystąpienie _Activate

Mam Userform1, w którym jest ListView1. Podwójne kliknięcie na elemencie ListView1 powoduje wywołanie UserForm2. To samo można osiągnąć klikając CommandButton1 na Userform1. Niby wszystko tak samo, a jednak działanie jest inne. Otóż jeśli UserForm2 wywołano dwuklikiem na ListView1, to po zamknięciu UserForm2 następuję wywołanie procedury zdarzenia Userform1_Activate....

VBA Excel - włączanie i wyłączanie ochrony arkusza w zdarzeniu change lista wiel

Dzień dobry, Mam problem którego nie umiem rozwiązać, kod nie działa przy zabezpieczonym arkuszu... próbowałam zdejmować i zakładać ochronę ale bez fajerwerek. Jestem początkująca. lista wielokrotnego wyboru, po naciśnięciu edytuj można edytować zawartość jeśli np wybierzemy cos niepotrzebnie albo powtórzymy odpowiedz. Bez tego przycisku się zapętla,...

Excel VBA - Pętla For next w połączeniu z Select case - ustawienie parametrów

Na pewno błąd jest w wierszu: Tak, to było pierwsze i udało mi się to już zrozumieć w sobotę :) Ale poza dokładnym zdefiniowaniem zmiennych to był jeden z głównych problemów Dzięki Dodano po 8 co tu zepsułem Funkcję jako taką - to nie jest funkcja, tylko procedura wbita w "nazwę" funkcji. Funkcje nie wykonują "aktywnych" działań w arkuszu - skonstruuj...

VBA (excel) : otwieranie pliku z widocznym rozszerzeniem lub bez (IF)

Tak nie zadziała, bo bez względu czy Explorator pokazuje rozszerzenia, czy też nie, to Nazwa zawsze będzie z rozszerzeniem i wywołanie [syntax=vbscript]Option Explicit Public Sub ladujarkuszs() Dim FileName As String Dim title As String Dim wiersz As Long Dim Nazwa As String Application.ScreenUpdating = False title = "Wybierz plik" FileName = Application.GetOpenFilename(,...

VBA Excel - Makro do kopiowania danych między skoroszytami A i B

Udało mi się nieznacznie poprawić kod. Wszystkie potrzebne dane po użyciu makra uzupełniają się w danym wierszu formularza ale dzieje się to w sposób niekontrolowany. Oznacza to że raz pobiera dane w sposób pożądany a raz nie pobiera wcale lub kopiuje dane w zupełnie inne miejsce. Może wynikać to ze złego zdefiniowania programu. [syntax=vb] Option Explicit...

Excel VBA - Przekroczenie limitu pamięci przy przetwarzaniu 650 tys. rekordów

Witam, natknąłem się na problem przy przetwarzania za pomocą VBA dużej ilości danych i przekazywaniu ich za pomocą obiektu Recordset do bazy SQL. Procedura wysypuje się z komunikatem "niewystarczająca ilość pamięci" mniej więcej w tym samym miejscu, kiedy ilość rekordów przetwarzanych w pamięci wynosi ponad 650tys. Ilość zużywanej przez proces Excela...

VBA Excel - Jak sprawdzić, czy komórka należy do zakresu?

W jaki sposób mogę sprawdzić, czy komórka np. F17 należy do zakresu np. A3:S90? trzeba użyć metody Intersect ... lub możesz tworzyć "własne rozwiązania", jeśli chcesz sobie "poćwiczyć", np.: [syntax=vba]Option Explicit 'Option Base 1 Sub nalezy_nie_nalezy() Dim i As Integer, pocz As Integer, idt As Integer, kol As Integer, kol_prw_odn As Integer, kol_ost_odn...

Excel -makro: Wstawianie obrazu z pliku do arkusza za pomocą makra

Ad1. W module standardowym wklej kod. [syntax=vb]Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range If Not ActiveSheet.Pictures Is Nothing Then ActiveSheet.Pictures.Delete End If obraz = ActiveWorkbook.Path & "\" & Range("M86").Value Set kom = Range("C2:D6") x = kom.Columns.Width y =...

Jak szybko znaleźć 11-cyfrowy numer w wielu plikach Excel?

Jeżeli dobrze rozumiem to koledze chodzi o wyszukiwanie frazy w plikach które są zamknięte i leżą gdzieś w katalogu. A to nie to samo, co szukanie w pliku już otwartym. Option Explicit 'Deklaracje 32-bit API Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath...

[VBA] [EXCEL] Kopiowanie rekordów spełniające dwa kryteria

Cześć. Trochę mi głupio zaczynać aktywność na forum prośbą o pomoc, ale... Sprawa jest pilna. Otóż, mam do wykonania zadanie. Radziłem sobie z nim do pewnego momentu. Mam problem ze złożoną procedurą. Mam bazę danych kosmetyki.txt. Chcę wyszukać dystrybutorów, którzy: 1) Kryterium 1: dokonali transakcji w 2009 roku, 2) Kryterium 2: dokonali transakcji...

MS EXCEL VBA - Wstawienie do komórki opcji wyświetlania kalendarza

Najpierw zamieniłem w kodzie nazwę formuł kalendarzy: z nazwy Kalendarz na obecną nazwę CalendarFrm Tak wyglądał kod kalendarza oraz komunikatów o błędzie daty, przed jego połączeniem. [syntax=vb]Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'check cells for desired format to trigger the calendarfrm.show routine 'otherwise...

Jak zastosować makro Excel do wielu arkuszy jednocześnie?

Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...

Migracja makr VBA w Excelu z wersji 2003 do 2013 - błędy w ADO

Witam. Po przesiadce na nowszego EXCELA mam duży problem z prawidłowym działaniem kodów napisanych przez poprzedniego użytkownika, proszę o pomoc w korekcie makra: [syntax=html] Option Explicit Sub ADO_pobierz_z_2007(strSourceFile As String, strSQL As String, TargetCell As Range) Dim oConScores As ADODB.Connection, rs As ADODB.Recordset Set oConScores...

[VBA] [VBA][Excel] Import wielu plików PGN do arkuszy z nazwami plików

Witam. Proszę o pomoc w stworzeniu programu w języku VBA. Będzie to makro Excela. Program ten będzie częścią mojej pracy licencjackiej. Program będzie analizował zapisy partii szachowych w formacie pgn. Na początku musi zaimportować z pliku/plików tekstowych zapisy partii. Następnie będzie analizował dane pod różnymi aspektami, to znaczy: policzy liczbę...

VBA Excel - Przenoszenie zakresów pomiędzy arkuszami

Witam, Napisałem makro, które ma za zadanie przenosić wiersze z jednego arkusza do drugiego, na podstawie wartości (tekstu) komórek, w jednej z kolumn (A), a następnie usuwa puste wiersze. Jest ono napisane w dość 'prymitywny' sposób, jednakże działa. Niestety jednak, nie radzi sobie zbyt dobrze z dużą ilością danych - wszystko wychodzi jak powinno,...

VBS csv2excel - Visual basic script export z csv i import do xls

Jak by ktoś kiedyś szukał to poniżej działający skrypcik vbs: Option Explicit Dim objUser, strExcelPath, objExcel, xlBook1, objSheet, _ objFSO, objFile, aline, aLines, irow, icol Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFile = objFSO.OpenTextFile("D:\FIRMY\ARP\1\1\1.... ForReading) Set objExcel = CreateObject("Excel.Application")...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

jestem początkujący z vb ale mam doświadczenie w basic pierwsze moja prace były na commodore :) stare dzieje później amiga... pracuje nad zrobieniem magazynu towarów na sklepie chodzi o proste funkcje żeby dodawać do magazynu a następnie odejmować co się sprzedało a przy odejmowaniu tworzył się dzienny raport sprzedaży. w raporcie tym automatycznie...

[VBA] [Excel] Jak uruchomić RibbonXML w menu użytkownika w Excel?

Witajcie! Jeśli ktoś może pomóc to bardzo proszę o sugestie. Mam w Excelu menu użytkownika tworzone za pomocą procedury: [syntax=vbscript] Public Sub Workbook_Activate() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"...

Excel/Access - Jak masowo wstawić hiperłącza do plików PDF z folderu?

Potrzebne jest jeszcze makro podobnie działające jak funkcja powyżej, tylko dodające hiperłącze w accessie. Chodzi o to aby pobrał nazwę z odpowiedniej kolumny i wstawił ją w kolumnie obok jako hiperłącze, które działa czyli musi wpisać także ścieżkę do pliku. Mam makro które wygląda tak: [syntax=vbscript]Option Explicit Sub UtworzHiperlacza() Dim myRangeB...

Automatyczna zamiana znaków graficznych na polskie litery w plikach - Makro Excel

Przyjmij jako PEWNE, że każdy system kadrowy zasługujący na tą nazwę potrafi wyprodukować tą samą treść w wielu formatach - bardziej podatnych do analizy. Bez bohaterstwa nad PDF. Wystarczy zadzwonić do brzydkiej pani Basi w kadrach. Jest pewien problem. Pani Basia nie jest taka brzydka, a jak to zazwyczaj bywa, uroda nie idzie w parze z innymi walorami....

Excel-makro-kopiuj i wklej do nowo utorzonego arkusza jeśli suma >20

[syntax=text] Option Explicit Sub Makro6() ''''''' Arkusz źródłowy musi zawierać w kolumnie 'P' dane do sumowania ''''' ''''''' Program liczy sumy z tej kolumny i po pzekroczeniu 20 : ''''' ''''''' Arkuszem wyjściiowym musi być arkusz z danymi w kolumnie 'P' ''''' ''''''' a) zakłada nowy skoroszyt i arkusz o nazwie "Wyniki" ''''' ''''''' b) kopiuje...

VBA/EXCEL dzielenie danych na pliki uwzgledniajac dwa warunki

Hej, próbuje napisać makro, które pozwoli mi podzielić plik o dowolnej długości na mniejsze pliki uwzględniając dwa warunki. MAX wierszy 1500 na plik Jeśli wartość w komórce B w wierszu 1500 dla każdego pliku jest równa temu co w 1501 wtedy musimy znaleźć początek występowania tej liczby i skopiować cały ten zakres do nowego arkusza. Czyli mając taki...

EXCEL VBA MAKRO - Wysyłanie emaili z spersonalizowanym załącznikiem

Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006” adresy email. Chciałbym aby pętla do każdego...

Samoczynnie pojawiające się rekalmy - log z hijackthis

Logfile of HijackThis v1.99.1 Scan saved at 17:49:25, on 2007-01-18 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: E:\WINDOWS\System32\smss.exe E:\WINDOWS\system32\winlogon.exe E:\WINDOWS\system32\services.exe E:\WINDOWS\system32\lsass.exe E:\WINDOWS\system32\Ati2evxx.exe E:\WINDOWS\system32\svchost.exe...

[Excel 2007] - makro do pobierania danych z innych plików *.xlsx

Witam, stworzyłem makro które pobiera dane z zamkniętego pliku i wkleja dane w wyznaczone miejsce w drugim pliku. Z makrami dopiero początki, więc kopiuje gotowe kody i próbuje je odpowiednio dopasować [syntax=vbnet]Option Explicit Private Function GetValue(path, file, sheet, ref) Dim arg As String If Right(path, 1) <> "\" Then path = path &...

Tłumaczenie pojęć przez AI przy zachowaniu kontekstu - prompt ChatGPT i nie tylko

https://obrazki.elektroda.pl/2701808100_... W jednym z poprzednich tematów próbowałem tłumaczyć pojęcia związane z elektroniką za pomocą Arkuszy Google. Szybko jednak zauważyłem, że tamtejsza funkcja GoogleTranslate nie bierze pod uwagę kontekstu i tłumaczy słowa nie tak jak byśmy tego oczekiwali. Tutaj sprawdzę, czy popularne ostatnio...

Excel - Tworzenie makra - sortowanie i przenoszenie między komórkami

Hej hej! Koledzy, potrzebuję pomocy :) Mam pliczek, który pomogliście mi ogarnąć: dostosuj.xls W pliczku makro wygląda następująco: Option Explicit Sub Dostosuj() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New Collection, Unikaty2 As New Collection...

Excel 2013 - VBA - Rozwijana lista - invalid property value

Hm może tak. Panowie lesławek, oraz clubs - bardzo dziękuję za pomoc. Oba zaproponowane rozwiązania działają, nauczyły mnie kolejnych nowych rzeczy i jestem za to bardzo wdzięczny. Gdyby ktoś był ciekawy jak wygląda finalny kod (być może jest więcej takich laików jak ja), to podaje go poniżej: [syntax=vbscript] Option Explicit Dim tbl() As Variant...

Makro pobierające dane z pliku - Pobieranie danych z Pliku do odczytu za

makro które będzie pobierać z pliku Excel. xls : ( ... swobodna kombinacja przedalpejska ... nawet nazw tych kolumn nie znamy ... może z wyjątkiej jednej "Index" ... makro też nie od początku zapodane, tylko jakieś takie jak po spotkaniu z samurajem .. : ( ... ogólnie to na niewiedzę informacji cierpimy, ale spróbuj ... moooże będzie działać (?): [syntax=vbscript]Option...

[EXCEL, VB] Jak przerobić makro z Excel 2003 na Excel 2007 bez Application.FileSearch?

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 w folderze w którym znajdują się podfolery z posortowanymi...

Jak odświeżyć dane w ComboBox w Excel przy dodawaniu nowych pozycji?

Dzień dobry, Przygotowałem, a raczej zaadaptowałem na podstawie opisanych przykładów kod pod swój arkusz excela. Mam 2 problemy: 1. Potrzebuję w arkuszu "material cost" z którego pobierane są dane dopisywać pozycje - w związku z tym potrzebuję aby combo odświeżało sobie dane przy otwarciu (lub jakiś trigger do odświerzania po wpisaniu nowych danych)...

Wyszukiwanie najbliżyszch punktów z tablicy VBA Excel

jednak ładowanie arkusza do tablicy trochę trwa ... "zależy jak leży" ... są sytuacje kiedy "nic nie pomoże" i wtedy rzeczywiście tak jest, ale w większości są to dość szybkie "kody", przykład na zwykłych tablicach: (wydaje się że 1:1 w stosunku do kodu "kończącego sobotę") Sekcja-Odpowiednik => .Range("A" & el).EntireRow.Delete " można skrócić...

klient poczty Vista - Uszkadzanie załączników podczas wysyłki.

Odkopuję temat, bo: --Po próbach rozwiązania problemu, oraz z przyczyń "zamulawczych" system Vista na komputerze został postawiony na nowo z partycji recovery. Wydawało się, że wszystko jest ok... przez mniej więcej 2 dni. Potem problem wrócił (druga partycja z danymi pozostała b/z w przypadku nowego i starego systemu, w usb siedział i siedzi również...

Wysokie użycie CPU przez svchost.exe - jak rozwiązać?

Mam taki problem że jak włącze komputer to strasznie się przycina i użycie procesora jest na poziomie 100%. Ale jeśli tylko wyłącze proces svchost.exe wszystko wraca do normy. Co radzicie z tym poradzić?? Oto log z HijachThis Logfile of HijackThis v1.99.1 Scan saved at 20:18:59, on 2005-12-27 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE:...

VBA EXCEL obsługa plików TXT na SharePoint z identyfikacją użytkownika

Witam, Wprawdzie "trochę się już bawię" w pisanie w VBA ale natrafiłem na sporą "ścianę". Problem do rozwiązania: Z poziomu makra w Excel'u potrzebuję: 1.Tworzyć/edytować oraz odczytywać pliki *.TXT ale nie na zwykłym dysku, tylko w sieci na dysku SharePoint, zasoby tego ShP są identyfikowane per użytkownik (aktualnie zalogowany na komputerze). 2. Dodawanie...

excel VBA makro - usuwanie wierszy, gdy data jest starsza od podanej

Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...

Użycie procesora 100% po krótkim czasie po starcie systemu.

Witam! Mój problem polega na tym, że po krótkim czasie po starcie systemu procesor jest wykorzystywany w 100%. Menedżer zadań pokazuje, że proces, który wykorzystuje prawie w 100% procesor to: svchost.exe. Po zakończeniu tego procesu wszystko wraca do normy i procesor pracuje normalnie, ale wyłączenie tego procesu powoduje, że nie mam głosu podczas...

makro/excel - kopiowanie danych filtrowanych do nowych skoroszytów

W załączeniu Twój plik przerobiony. Jak chcesz go użyć jak jest to wklej twoje dane do arkusza dane i syntetyka. Odpalenie makra Ctrl + Shift + t. Albo wejdź do VBA (lewy Alt + F11) i Pierwsze makro. Kod powinien się wykonać szybko. Można z powodzeniem użyć do naprawdę dużych ilości wierszy w tabelach źródłowych. Kod: (nazwy modułów kodu arkuszy zmienione...

Excel - makro kopiujące tylko wartości komórek, bez formatowania

Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...

[VBA Excel] Makro do inwentaryzacji zapasów i dat przydatności

Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...

[VBA] Podział danych w arkuszu według dwóch kolumn i eksport do osobnych plików

Witam Mam skoroszyt z pięcioma arkuszami, w których opracowuję dane. (w załączeniu). W ostatnim arkuszu "dane_end" mam wynik opracowania. Arkusz ten za pomocą makra eksportuję do nowego pliku. Jest "ok" jeżeli dane dotyczą jednego dnia i jednej jednostki. Opracowane dane są zawarte w kolumnach od A do K. W kolumnie "C" ma datę, a w kolumnie "G" jednostkę....