Dodano po 3 Jak w dowolnym arkuszu nie będzie pozycją "Wartosc", błąd występuje Dodano po 4 wtedy[syntax=vb]Sub test2() Dim naglowek As Variant Dim lastrow As Long For Each sh In ThisWorkbook.Sheets With sh Set naglowek = .Rows(1).Find(what:="Wartosc", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) If Not naglowek Is Nothing Then col = naglowek.Column...
Witaj [syntax=vb] Dim ark As Worksheet, r As Long Set ark = ActiveSheet Application.ScreenUpdating = False For r = 1 To 110 ark.Range("B" & r * 4).Formula = "=IF(B" & r * 4 - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r * 4 - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r * 4 + 1).Formula = "=IF(B" & r * 4 - 1 & "="""","""",INDEX('Lista...
:) Antoni nie denerwuj się tylko popatrz na własny przykłąd. W której kolumnie arkusza "Roczny" umieścił byś dane wg twojego opisu? Gdyby nie było takiego przypadku można by było uprościć kod a tak trzeba sprawdzić czy się nie mylisz bo będzie wywalać błąd. [syntax=vb]Sub Przenies() Dim x As Integer, nrKol As Integer 'Sprawdzenie za pomocą licz.jeżeli()...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
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,...
Przetestuj ten kod dla zdarzenia Worksheet_Change arkusza Form2. W komórce B4 arkusza Form2 wpisujesz jedynie numer rekordu do skopiowania. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim lLstRw& 'pierwszy wolny wiersz w arkuszu "baaza" Dim lLstRwBs& 'ostatni zapisany wiersz w arkuszu "zbaza1" Dim lFndRec& 'numer wiersza ze znalezionym...
Kod dostosowany, przerobiony, działa. Cud miód. Jeden mały acz irytujący szkopuł. Przy przeglądaniu kolumny z nazwiskiem liczącej 5000 rekordów czas jest szalenie długi głównie przy wpisywaniu nazwiska. Wpisując np Kowalska potrzebujemy ok 4sec żeby nazwisko pojawiło się w textboxie. Jakiś kolejny genialny pomysł? To już kwestia do optymalizacji -...
Próbowałem użyć Private Sub Worksheet_Calculate(ByVal Target As Range) i to skleić z kodem: [syntax=vbnet] Option Explicit ' Zmienna przechowuje aktualną wartość komórki A1 Dim vStaraWartosc As Variant Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Jeżeli zaznaczamy komórkę A1 ' wtedy przypisz zmiennej wartość tej komórki If Target.Address...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu wiersz ten zostanie najpierw skopiowany do arkusza...
wbwartosci - jest objekt, formula wymaga nazwe skoroszytu w kwadratowych nawiasach Dodano po 6 $C$1:$C$2 - to zakres 2 komorki lub kolumny 1..2 ? Dodano po 7 Zamiast Autofill [syntax=vb] r = Application.CountA(wb1.Sheets(2).Range("... wb1.Worksheets(2).Range("B2:B" & r).Formula = "=VLOOKUP(A2,'[" & wbwartosci.Name & ".xls]Sheet3'!A:B,2,0)"[/syntax]
Witam, czy może któs z Was zmienić makro by działało z przycisku ? Ja laik jestem i tego niepotrafię :/ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim OstW As Long Dim Nazwa As String With Me OstW = Last(.Columns("A")... If OstW = 0 Then Exit Sub If Not Intersect(Target, .Range("A1:A"...
To pewien "mankament" VB dla VB liczba z przecinkiem jest "ciągiem" a z kropką jest wartością. W związku z tym trzeba takie przecinki zamieniać "ręcznie" Poniżej kod [syntax=vb]Sub ChgInfo() Dim WS As Worksheet Dim Search, Search2, Replacement, Prompt, Title, Zakres As String Dim MatchCase As Boolean Dim Kom As Range Dim Stara, Nowa As Double Zakres...
Proszę bardzo. Zmieniać kody będzie we wszystkich arkuszach tam gdzie zaznaczysz cos do zmiany i uruchomisz makro. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
mam makro, które działa w starszych wersjach exela, ale w wersji 2003 już nie. Czy ktoś mógłby powiedzieć jak je przystosować do exela 2003?? pokreśla mi na żółto:Wokrsheets("Arkusz1").Range("AI1", "AI9").Value = Worksheets("Arkusz1").Range("B33", "B42").Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'tu masz kopiowanie Wokrsheets("Arkusz1").Range("AI1",...
Przerobiłem trochę Twój kod, zamiast autofiltra używając funkcji .FIND. Kod poniżej, w razie wątpliwości - załącznik. Mam nadzieję że o to chodziło? pozdrawiam Private Sub CommandButton1_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo...
Panowie poniżej kod , który został mi zaproponowany, ja go zmodyfikowałem tylko pod swoje warunku: Option Explicit Private Sub CommandButton1_Click() Dim ws1 As Worksheet, ws3 As Worksheet Dim i&, j&, d&, n$, h&, maxj& Set ws1 = Sheets("Arkusz1") Set ws3 = Sheets("Arkusz3") Range("Tabela1[#All]").Select ws1.ListObjects("Tabela1").Sort.SortFiel...
Witam. Już gdzieś poruszałem temat w sprawie tego kodu ale nie mogę odnaleźć wątku. Chodzi mi o poniższy kod. Jak go zminimalizować aby robił to samo ale wstawiał wzorce do co najmniej 1000 wierszy? Niestety rozpisanie tego kodu aby to robił miał by z kilometr, poniższy kod przerabia mi tylko 100 wierszy: [syntax=vb]Dim ark As Worksheet Set ark = ActiveSheet...
1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być single albo większe grupy? W przypadku większej liczby powtórzeń co ma być skopiowane? Wartości w kolumnie A mogą występować pojedynczo, parami lub w większych grupach 2) Czy istotna jest kolejność danych? Czy można je posortować i szukać par w zbiorze sortowanym? Kolejność danych...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
To był przykład. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then w = Application.Match(Target, Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0) If Not IsError(w) Then For x = 5 To 9 If Cells(w, x) = "" Then Cells(w, x).Select Exit For End If Next End If End If End Sub [/syntax]
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Witam. Mam prośbę o pomoc w stworzeniu odpowiedniej formuły lub kodu VBA który doda mi (w moim pliku do kolumny G) odpowiednią dniówkę na podstawie przepracowanego czasu pracy. Zasady dodawania dniówek napisałem w pliku który jest w załączniku. W moim macierzystym pliku w arkuszu w który chcę dodawać te dniówki pracuje poniższy kod. Kod dział jak najbardziej...
Mam kod który już jakiś czas próbuję zmodyfikować ale nie wiem jaka jest różnica między jednym a drugim: Kod 1: [syntax=vb] Sub sp0() Dim Wiersz, Kolumna As Integer Dim Wartosc, Wartosc2 As Byte Dim zn, zn2 As Byte Worksheets(3).Range("c2:c81").Clear Worksheets(2).Activate Wiersz = Range("c1").End(xlDown).Row Kolumna = Range("c1").End(xlToRight).Column...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach No właśnie, makro, które testowałem działało tylko po wpisaniu konkretnych wartości. Private Sub Worksheet_Change(ByVal Target As Range) Range("AC65:AF65").Select ActiveWorkbook.Worksheets("EW").Sort.Sor... ActiveWorkbook.Worksheets("EW").Sort.Sor...
Dziękuję bardzo za pomoc, idąc za Twoją radą zrobiłem to w następujący sposób, aby kopiowało mi nagłówek, ale gdy nie ma innych danych niż N/A to aby nie usuwał. [syntax=vbscript] Dim wb As Workbook Set wb = ThisWorkbook Dim lastrow As Integer lastrow = wb.Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row If WorksheetFunction.CountIf(wb.Sheets(3).R...
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Sprawdź, czy o to chodzi[syntax=vb]Sub sprawdzanie() Dim Wiersz As Long, Kolumna As Integer Dim Wartosc As Integer, Wartosc2 As Integer Dim zn As Variant, zn1 As Variant, zn2 As Variant Worksheets(3).Range("c2:c81").Clear Worksheets(2).Activate Wiersz = Range("c1").End(xlDown).Row Kolumna = Range("c1").End(xlToRight).Column For Z = 1 To Wiersz For x...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
[syntax=vbscript]Sub FindReplace() Dim sht As Worksheet Dim fndList As Variant Dim rplcList As Variant Dim x As Long fndList = Array("A1", "A2") rplcList = Array("B1", "B2") For x = 1 To Sheets.Count For y = LBound(fndList) To UBound(fndList) Sheets(x).Cells.Replace What:=Range(fndList(y)), Replacement:=Range(rplcList(y)), _ LookAt:=xlPart, SearchOrder:=xlByRows,...
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
Zrobiłem coś takiego Plik zewnętrzny o nazwie formularz.xls w tym samym katalogu musi być plik zeszyt.xls z danymi ułożonymi jak w podanym wyżej przykładzie (nazwy i kolejność kolumn). otwieramy plik formularz wciskamy przycisk i już mamy wyliczone godziny dla każdego pracownika w zależności od wyróżnika. Jeżeli to by miało być piękniejsze to trzeba...
Wszystko działa :?: :?: :?: Chyba "lekko" przesadziłaś z tym działaniem :please: Pożądany efekt "uzupełniania brakujących dat w kolumnie A" możesz uzyskać przy użyciu następującego kodu: Arkusz1 "), oraz zakres sortowania Range("A1:F50") - musisz te ustawienia dostosować do swoich danych i wypróbować :spoko:
Hej Mam lekko zmodyfikowane makro, które pozwala mi specjalnie nazwać pliki w pierwszej kolumnie „xyz” która się potem kasuje z plików podzielonych więc może mieć plik inną nazwę niż zawartość docelowej 1-wszej kolumny, ale kurczę potem mam wąskie kolumny i muszę w każdy plik wchodzić i je poszerzać ręcznie do szerokości „zawartości” mimo, że w pliku...
(at)clubs Masz rację, jak usuwam linijkę w kodzie z dodatkowym "findem" to pętla działa poprawnie. Poprawiłem trochę kod i praktycznie został mi tylko jeden "find" ale bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. A bez tego cały projekt do piachu.... Miałem wstawić plik, ale niestety z braku czasu...
Mam taki kod i teraz nie wiem jak mam go zmienić żeby kopiowało mi dane ale nie usuwało tych które już były wcześniej skopiowane. Kod ma dodawać już do istniejącej listy. Może mi ktoś pomoc? [syntax=vb] Sub Kopiuj() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearContents y = 2 x = 1 Application.ScreenUpdating = False Worksheets("Scanlijst22").Cells(1,...
Hej może ktoś mi pomoże tutaj. Sprawa wygłąda tak, że mam kod, która zawiera 2 petle czyli petla w petli. Problem jest taki, że wykonuje najpierw jedną petle póżniej drugą i pózniej jak wraca do pierwszej petli aby powtórzyc działania to niestęty póżniej omija tą 2 petle. Kod wygłąda tak : [syntax=vbscript]Sub prod() Dim art As Long art = 2 y = 2 og...
Hej, bardzo dziękuję za pomoc. Dodałam również kilka wierszy , które usuwają "/" z kolumny D :) . Mam jednak pewien problem z uruchomieniem tego makra. Po pierwsze zauważyłam, że duże znaczenie ma kolejność uruchamiania plików. Jeśli plik, z którego mają być usuwane duplikaty zostanie otwarty jako pierwszy, to wówczas po uruchomieniu makra z jakiegoś...
Witam Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
zrobic jedna komorke w ktorej bede wpisywal litere Np komorka jest "G1" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then If Not Application.CountIf(Range("F:F"), Target) = 0 Then ActiveWindow.ScrollRow = Application.Match(Target, Range("F:F"), 0) End If End If End Sub [/syntax]
nie wyskakuje żaden komunikat z błędem makra, pojawia sie komunikat że pojawił sie niespotykany błąd i excel zostanie zamknięty. Wiec to nie błąd vba Windows(p & ".xlsm").Close Samo użycie zamknięcia nie ma wpływu na plik Rejestr Kilka rzeczy jest nie potrzebnych [syntax=vbscript]Sub Zakończ_zlecenie_pozmianowe() Dim zlec As Worksheet Dim Rng As...
Ja metodami prób i błędów zrobiłem taki kod, [syntax=vbscript]Sub test() Dim ilosc As Long Dim txt As String Dim zakres As String Dim w As long 'rozbija na dwie kolumny numer ( numer + całość w nawiasie - daje niepotrzebny komunikat o zmianie wartości w 2 kolumnie) Range("D2:D13").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("D2"),...
Przesyłam jeszcze raz kod z komentarzami przy instrukcjach, które dopisałem lub zmieniłem. [syntax=vbscript]Sub zapisywanie() Dim zlec As Worksheet Set zlec = ActiveSheet 'zapamiętaj aktywny arkusz w zmiennej zlec Dim FindString As String FindString = ActiveSheet.Range("F3").Text 'zapamiętaj numer zlecenia ' należy użyć właściwości Text ze względu na...
Dzień dobry ! Mam pewien problem z kodem, którego celem jest odczytywanie wartości temperatur z dwóch/trzech/czterech termopar w komorze termicznej w określonym zakresie. Zebrane dane ustawiane są w kolumnach, przeciętna ilość wierszy po całym cyklu zbierania danych to około 13 tysięcy. W czasie ustawienia pomiaru detektory zczytują wartości wewnątrz...
Witam, mam wielką prośbę o pomoc. Potrzebuję stworzyć makro, które będzie podmieniało wartości komórek w kolumnie w zależności jaka wartość tekstowa zostanie znaleziona. Przykład: Mam komórki które zawierają: Dobre_Kino Kina Super_kino_ Samochodu Jadę Samochodem KOTEK Dla_kota Makro powinno wyszukiwać ciągi tekstowe: "kin", "samoch", "kot" i tak gdzie...
Poniżej cały kod. Kwoty, które schodzą się do 0 zawsze są 2. Chodzi o to, że w danym subtotalu nieraz jest więcej tych pozycji (które się "zerują") o takiej samej nazwie, ale różnej kwocie i wtedy nie wszystko zostaje usunięte i przekopiowane do innego arkusza. [syntax=vbscript]Sub Porzadkowanie2() Dim i As Long Dim lw As Long Dim ws As Worksheet Set...
Dla zasady #NAZWA to nie format tylko błąd obliczeń - excel nie zna funkcji o danej nazwie (nazwa po - ). Aczkolwiek dziwne bo u mnie pomimo myślnika nie zmusza excela do obliczeń (chyba że na wstępie jest znak równości ( = ). Formatowanie arkusza jest na ogólne a wkleja wartości ale ... Sama zmiana formatu komórek właściwie nic nie da bo i tak jak...
Panowie jeżeli to możliwe proszę o pomoc w podpięciu pętli do userform. Jeżeli w pętli używam msgboxa i przycisków TAK i NIE /TAK-szukaj dalej, NIE-przerwij szukanie/ to wszystko jest ok. Stworzony userform ma zastąpić msgboxa. Problem polega na tym, że nie wiem jak zatrzymać wyszukiwanie po uruchomieniu makra w którym jest pętla oraz z którego uruchamia...
Udało mi się stworzyć cześć kodu. [syntax=vb]Sub trzeci() Worksheets("dane").Select Dim a As Integer Dim b As Integer On Error GoTo Err_Execute 'Start search in row a = 2 'Start copying data to row (row counter variable) b = 2 While Len(Range("A" & CStr(a)).Value) > 0 'If value in column F, cut If Range("F" & CStr(a)).Value > 9 Or Range("F"...
Nigdy nie programowałem w VBA, ale znalazłem takie coś, może okaże się pomocne. Jeżeli nie to poszukaj w sieci pod hasłami "vba copy rows" i podobnymi, pojawia się sporo wyników. The example codes will copy to a database sheet with the name Sheet2. Every time you run one of the subs the cells will be placed below the last row with data or after the...
Dzień dobry. Borykam się z problemem użycia funkcji Application.Match przy wyszukiwaniu numeru PESEL i zwróceniu numeru rzędu w tabeli. Problem polega na tym, że funkcja ta świetnie sobie radzi, jeżeli PESEL zaczyna się od zera (np.: 01111111111), ale gdy jest już 111111111111, to wywala błąd, że nie znaleziono. Podczas próby ręcznego wpisania PESELu...
Siedzę już stosunkowo długo i nie mogę wpaść jak to zrobić więc jeśli ktoś jest w stanie mi pomóc rozwiązać ten problem będę niezmiernie wdzięczny. Chodzi mianowicie o to że mam kod który przeszukuje i zwraca wartość w arkuszu 3 przy odpowiedniej wartości w kolumnie "c" w momencie gdy wartość komórki w jednym wierszu w arkuszu 1 jest równa wartości...
Znalazłem i przerobiłem coś takiego: [syntax=vb] Sub Kopiuj_Do() a = Val(InputBox("Soort numer")) Cells.Select Selection.ClearContents y = 2 x = 1 Worksheets("Blad2").Cells(1, 1).Value = "Baan" Worksheets("Blad2").Cells(1, 2).Value = "Pos" Worksheets("Blad2").Cells(1, 3).Value = "Bcode" Worksheets("Blad2").Cells(1, 4).Value = "Artikel" Worksheets("Blad2").Cells(1,...
W porządku, więc skoro dopiero zaczynasz, to: 1. Utrzymuj porządek w kodzie - wcięcia, odstępy między blokami kodów, pozycjonowanie składni typu ' If ... End If ', ' Select Case ... End Select ', itd. Robisz to co prawda dla siebie, nie dla innych, ale im większy będziewsz mieć porządek, tym szybciej będziesz mógł coś zmienić, poprawić, przestawić,...
Czy ktos potrafi tak to przerobic zeby wyskoczyl inputBox zebym mogl podac slowo do wyszukania, makro odpala stronke ale w google grafice odrazu i tam szuka hasla. Otwiera pierwszą stronę i pobiera adres grafiki. Wiem, że o wiele prosze, ale daje kod, może wystarczy go tylko trochę zmodyfikować? Niestety ja nie potrafię na takim poziomie w VB pracować....
Prośba o skrócenie kodu tak aby makro działało szybciej oraz działało również w excel 2010 Podaję jeden z kodów oraz plik [syntax=vbscript]Sub Zestawienie() Dim lastRow As Long Sheets("USUNIĘCIE ZAGROŻEŃ").Select Application.Run "Hide_DeleteRows" Sheets("ZESTAWIENIE").Select j = 3 For Each c In Worksheets("zestawienie").Range("aa1:aa1... If c = "1"...
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) w = Target.Row k = Target.Column If k = 1 Then ow = Cells(Rows.Count, "A").End(xlUp).Row s = Application.WorksheetFunction.Match([J1]... Range(Cells(w, k), Cells(ow, k)), 0) + w - 1 Range(Cells(w, k), Cells(s, k)).Select Cancel = True End If End Sub [/syntax]
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
Hej, jestem poczatkująca w temacie VBA i mam problem: chcę skopiować dane do nowego sheet'a w formie tabelki i wiem gdzie powinnam wstawić petle. Dodano po 3 Wszystko jest dobrze i ładnie wkleja się pierwszy wiersz do nowego sheet'a, ale nie ma pętli żeby zczytalo wszystko.
Witam, Zrobiłem stany magazynowe oraz historię ich zmian. Mój problem polega na tym, że jak zrobię jakieś pobranie towaru to w historii zmian wszystko ładnie się wyświetla ale tylko ostatnia zmiana. Moje pytanie brzmi jak zrobić by w historii zmian pojawiały się wszystkie wpisy zmian wers pod wersem? A o to mój kod: [syntax=vb]Private Sub CmbAktualizujdane_Click()...
Macro dziala tak ze ma mguzik w pliku X, Nciskam go i Macro łączy się z plikiem źródłowym Y. Macro pobiera potrzebne dane i tworzy TEMP Sheet gdzie wkleja pobrane dane w formie tabelek miesięcznych. Następnie w Temp Sheet manipuluje danymi, przestawia kolumny, zmienia nazwy nagłowkow itd. Potem copiuje tak zmienione dane i wkleja do Sheet Ostatecznego...
owszem w komórce może być 32 767 znaków. Ale to jest inny problem. Chodzi mianowicie o to, że jeśli w komórce "H2" w "Arkuszu2" znajduje się powyżej 40 numerów PESEL przedzielonych przecinkiem i spacją. W momencie próby wykonania kodu pojawia się komunikat: "parametr typu string jest za długi". Poniżej cały kod: [syntax=vbscript]Private Sub CommandButton1_Click()...
Witam Mam za zadanie napisać kod do automatycznego tworzenia tabeli przestawne w VBA. To udało się bardzo łatwo... Jednak problem pojawił się w momencie dodania opcji uzupełnienia tabeli źródłowej o dane z innego arkusza. W momencie tworzenia tabeli wyskakuje błąd VBA6.dll dla office'a 2007. bez tego kod kompiluje się normalnie PT.AddFields RowFields:=Array("Użytkownik"),...
Bardzo dziękuję. Tak zrobiłam i działa. Mam jeszcze jedno pytanie. Chciałabym za pomoca makra posortować dane, ale niestety pojawia mi się błąd. Mam tabelkę zawsze tak samo zbudowaną, natomiast akrusz, w której ona się znajduje ma różne nazwy. Próbowałam usunąć Worksheets("reporting 27.01"), zmieniałam ActiveWorkbook.Worksheets("reporting 27.01") na...
Witam, Napisałem właśnie swoje pierwsze makro, ale jak widać żaden ze mnie programista. Makro działa długo, a na razie tylko 2 pliki podpiąłem pod nie. Czy jest ktoś w stanie pomóc mi tak, żeby działało szybciej, a przy tym żebym się połapał o co chodzi?:) Chodzi tu generalnie o to, żeby kopiowało z każdego pliku i każdego arkusza w każdym pliku wszystkie...
Witam na Elektrodzie znalazłem bardzo fajne makro które tworzy dokumenty "wordowskie" na podstawie danych z tabeli excela. Jestem w stanie przerobić je do swoich potrzeb ale nie umiem "działać" makrami na plikach wordowskich z poziomu excela. Czy jest ktoś w stanie tak poprawić kod aby po utworzeniu plików "wordowskich" ich zawartość połączyć w jeden...
A, to sorry. Tę linijkę masz OK .Range(.Cells(wiersz, "C"), .Cells(wiersz, "M")) = Application.Transpose(Sheets(&qu... Zadeklaruj zmienną obiektową gdzieś na początku Set ark = Sheets("Historie") Dalej trzeba znaleźć pierwszy...
Witam. Stworzyłem takie o to prościutkie makro, które obrabia mi dane do porządanego efektu. Jednakże chciałbym dodać mu jeszcze jedną regułę. Mianowicie na samym końcu mam subtotala i chciałbym aby w kolumnie A w przypadku gdy jest w komórce tekst "AT0JD" i komórka po nią jest pusta to makro dawało "D", a jeśli coś innego, to "K". Bardzo by mi się...
Witam Mam makro, które kopiuje plik i wstawia nowe arkusze Dodano po 3 już znalazłem błąd
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
sterownik match worksheet change micra match
samsung galaxy dzwonki bc516 darlington viessmann viessmann vitodens viessmann
pralka powtarza program cisza nocna
Kosz górny i dolny do zmywarki BEKO DSFS6831X – gdzie kupić oryginał i zamienniki Problemy z systemem airbag w Fiacie Punto - diagnostyka i naprawa
