Funkcje z grupy WYSZUKAJ znajdują zawsze pierwsze dopasowanie, więc tu trudno ich użyć. Uwzględniając, że to ma działać w dość wiekowym Excelu, najlepiej użyć tu formuł tablicowych z funkcjami INDEKS i MIN.K. Coś takiego: =JEŻELI.BŁĄD(INDEKS($C$3:$C$...
Zakładam, że w każdym wierszu będą dwie kontrolki zależne. W Excelu 365 na karcie Wstawianie znajduje się pole do wstawiania tych kontrolek. [syntax=text]Wstawianie > Kontrolki > Pole wyboru[/syntax] Aby wstawić kontrolkę należy zaznaczyć komórkę (lub komórki) i kliknąć przycisk. Standardowo kontrolka jest powiązana z komórką, a w tej komórce...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
Jedna rzecz jeszcze nt strncpy - to dość "niebezpieczna" funkcja. Jezeli dlugośc stringu który kopiujesz bedzie wiekszy lub równy ilosci znakow do kopiowania to nie będzie zera na koncu !!! Przykład: http://obrazki.elektroda.pl/6631623100_1... Po wykonaniu strncpy (jak widac nie ma wartosci zero na koncu: http://obrazki.elektroda.pl/9385412600_1...
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Jesli tak: [syntax=vb]Arkusz1.Cells(w, kol).Copy Arkusz21.Cells(poz, kol_doc)[/syntax] Ponadto czy istnieje Arkusz21 ? Nie nazwa wkladki, tylko kodowa nazwa(widoczna w edytorze VBA)
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Witam W prosty sposób to chyba będzie tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then temp = Cells(wiersz, 10).Value Cells(wiersz, 15) = temp wiersz = wiersz + 1 Else wiersz = wiersz + 1 End If Loop End Sub
W pierwszy poście było napisane, że formuła miała zwracać pierwszy dzień pracujący. Zauważyłem, że źle napisałem, bo zwracała bieżący dzień. Żeby oprócz bieżącego dnia pracy, zwracała kolejny pracujący (przy założeniu, że nie ma więcej niż dwa dni wolne w kolejności), to formuła powinna być na przykład następująca. =JEŻELI(TEKST(PRZESUNIĘCIE(D...
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
A rzeczywiście. Już poprawiam...
Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Zgodnie z zasadami księgowości nota odsetkowa tyczy się faktur już zapłaconych, ale poza terminem. Czyli za czas spóźnienia. Może się tyczyć tych jeszcze nie opłaconych (na dzień sporządzenia noty) ale wtedy jest "kłopot" z wyliczeniem wartości odsetek za zwłokę bo dzień sporządzenia noty...
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie Po co bawić się w "przyciski" jak można przez 'doubleclick' Kliknij dwa razy na dana cyfrę.
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
Sprobuj [syntax=vb]Sub zamowienie() Dim lista As Variant, ostWs As Long Dim kalk As Workbook Set kalk = ThisWorkbook 'Myslim ze tu ma byc wydruk lista = Array("I7", "I9", "L3", "I10", "K33", "J33", "L33") Application.ScreenUpdating = False Workbooks.Open Filename:=("D:\ZEST_ZAM.xlsx") With Sheets("ZEST_ZAM") ostWs = .Range("A" & .Rows.Count).End(xlUp).Row...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Przy założeniach że w arkusz1 dane w kolumnie A rozpocząć 3 wiersz, tabela na arkusz2 rozpoczyna się w 2 wiersze =INDEKS(Arkusz1!A:A;(WIERSZ()-2)*45+3)
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
Takie automatyczne kopiowanie możliwe jest tylko poprzez VBA :D Proponuję wykorzystać dla arkusza 1 i 2 prywatne procedury wywoływane zdarzeniami zmian odpowiednio w kolumnie X i L. Przykładowe rozwiązanie w załączonym pliku xlsm :spoko: 864181
Cześć Może tak: Z_max=X_max/50 For Z = 0 To Z_max X=Z*50 Y=Z*31
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
nie chodzi o tabele, chodzi o to żeby każda kolejna komórka kopiowała się do kolejnego arkusza np: pozycja pierwsza (A1) z arkusza "protokół likwidacji" ma się kopiować do arkusza "1" do komórki B5. pozycja druga (A2) ma się kopiować do arkusza "2" do komórki B5. pozycja trzecia (A3) ma się kopiować do arkusza "3" do komórki B5. pozycja czwarta (A4)...
Kopiowanie komórek: [syntax=vb]Sub Kopiowanie() Linia = 2 Sheets("Sheet1").Select Range("C6:H45").Select Application.CutCopyMode = False Selection.Copy Sheets("PASS").Select While Range("A" & Linia).Value <> "" Linia = Linia + 1 Wend Range("A" & Linia).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False,...
Wydaje mi się, że najzwyklejsze WYSZUKAJ.PIONOWO powinno rozwiązać problem...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Makro kopiujące wybrane komórki do nowej zakładki
1. Jest to drugi plik - z_którego_kopiuje.xls (26.5KB) - (niesteety nie załapały się polskie znaki) 2. Imiona będą się powtarzały dla każdej czynności. Nie przewiduję, żeby w zakresie wystepowała pusta komórka. Jeżeli tak się stanie to chciałbym, żeby kopiowało mi do ostatniego imienia. Tzn. Jeżeli komórka C4 będzie pusta to chciałbym, żeby mi tak czy...
Prototyp. Chcemy aby, po wpisaniu danych w dowolną komórkę pustego skoroszytu, excel sprawdził, czy w skoroszycie pierwszym To nie jest dobry pomysł, żeby za każdą zmianą w jakiejkolwiek komórce przeszukiwać arkusz z pliku z danymi. No chyba, że plik otworzymy przy otwieraniu pliku głównego.
Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości. Niech Gulson coś w końcu z tym zrobi.
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...
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
Podobny temat [url=https://www.elektroda.pl/rtvforum/v...
tylko adres porzebny Tutaj. ;) https://obrazki.elektroda.pl/5067666000_...
Czy dobrze zrozumiałem, że chodzi Ci o utworzenie pliku tekstowego (w tym przypadku struktury xml) z danych z zaprezentowanej tabeli? Coś takiego: [syntax=vb]Sub DoXML() Dim x As Long ow = Cells(Rows.Count, "A").End(xlUp).Row Open "C:\Wynik.xml" For Output As #1 Print #1, "<Counter Name=" & Cells(1, 1) & ">" Call Rekord(1) For x = 2 To...
Witam Tu masz odpowiedź http://www.elektroda.pl/rtvforum/topic31... wystarczy zmienić "linijkę"
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
W załączniku.
Witam. Mam następujący problem. W excelu mam wykonaną tabelkę w której każda komórka powstało ze scalenia 5 kolumn. Kopiując dane z powiedzmy 3 tych komórek i wklejając je do innego arkusza, kopiowane są te scalone komórki z danymi a nie same dane które w nich są. Chciałbym aby po skopiowaniu do innego arkusza te dane były po prostu klejone do 3 zwykłych...
Użyj właściwości Text komórki zamiast Value, czyli [syntax=text].TextFrame.Characters.Text = Cells(3, 2).Text[/syntax]
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
[syntax=vb] Sub myCopy() Dim wb As Workbook, ws As Worksheet ara = Array("D3", "C7:C32", "F7:F32") Set wb = Workbooks.Open("43.01.xls") For Each sn In ThisWorkbook.Sheets ark = sn.Name If ark Like "A-*" Then Set ws = wb.Sheets(ark) For Each rng In ara sn.Range(rng).Copy ws.Range(rng) Next End If Next End Sub [/syntax]
makro kopiować komórka kopiować formuła komórka kopiować wybrać komórka
dioda błysnąć sterownik prąd przemienny corsa sonda lambda
mikrokomputer cobra1 mikrokomputer cobra1
Miernik Avidsen 107112 - brak reakcji wyświetlacza Brother MFC-9340CDW 100V – zwarcie po podłączeniu do 230V, uszkodzony zasilacz i fuser