Istnieje na to jakaś funkcja, Mozna funkcja przy zalozeniu ze numery pozycji z CP-P, CP, TPP itd. i rok nie powtaraja sie tzn. ze np. 201207527 w kosztach jest tylko dla 2012 TWP w 'arkusz...2012 w B7 =INDEKS('[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!B:B;PODAJ.POZYCJĘ($A7;'[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!$A:$A;0)) przeciagnij wprawo...
Prostsza metoda przez 'sendkeys' (jak co to zostaje rangetohtml) ........................... Podmieniłem załącznik
Twoja formuła robi tak jak chcesz czyli ma zmienić tylko aktywna komórkę czyli ActiveCell Aby to poprawić: zmień ActiveCell.FormulaR1C1 = ....(itd) na: rng.FormulaR1C1 = ....(itd) Czyli cała procedura: [syntax=vb] Sub kopiujtlumacz() Dim rng As Range For Each rng In Range("b2:b16") If rng.Value = "" Then rng.FormulaR1C1 = _ "=IF((ISNUMBER(SEARCH(R3C3,RC[-1]))),(R6...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpe... myślałem, że chcesz od 101:) teraz powinno wklejać w kolejną wolną.
Trzy przykłady w załączniku, ale zawsze trzeba sobie wyliczyć to przesunięcie, automatycznie się nie da.
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Range("A5").Copy Sheets("arkusz2").Range("c" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
[syntax=vb]ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista)[/syntax] Elementy tej tablicy są typu variant, którym nie nadano wcześniej wartości, stąd mają wartość null. Kolega pewnie googla i wkleja, prawda?
Excel 2007 - działa i kopiuje wartości bezproblemowo - formuła =JEŻELI(A1;A1;B1) Czyżby błąd w MsOffice 2010? A może jakaś ukryta opcja?
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
musisz wklejać przez (wklej specjalnie i wartości)
Przyznam że też myślałem żeby np przy przeliczaniu arkusza Private Sub Worksheet_Calculate() 'odpowiedni format komórek End Sub albo zmianie w arkuszu Private Sub Worksheet_Change(ByVal Target As Range) 'odpowiedni format komórek End Sub wstawiać dany format poszczególnym komórkom. Innej możliwości nie widzę ("protect" nie ma takiej...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
A alternatywne skróty ctrl+ins (kopiowanie), shift+ins (wklejanie) działają?
Ostatnie pytanie.. jak będzie wyglądała procedura która ma za zadanie : po naciśnięciu Buttona zamknąć Formę a otworzyć plik excel'owsi w którym się znajdujemy ? Dokładniej chodzi mi o to, że.. po otwarciu excela otwiera mi sie automatycznie forma z moim programem.. i teraz, chce zrobic tak, ze jak ancisne button ktory u mnie sie nazywa "Zamknij" to...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Przyznam się że makro jest dla mnie dośc egzotycznym pojęciem, możesz mi powiedzieć w jaki sposób je zrobić?
Witajcie Nie znalazłem odpowiedzi na mój problem, zatem piszę. Mam plik Excel, w którym pewne komórki są zablokowane a pewne odblokowane do użytkowników. Problem pojawia się, gdyż użytkownik kopiuje dane z innego pliku i wkleja dane do mojego pliku ( w pola odblokowane). Po tym pola odblokowane "przekształcają się" w zablokowane. Przenosi format komórki...
tak najprościej to dopisz na końcu modułu Generate SQL to: Cells(16, 2).Value = szSql Wstawi ci tego stringa w komórce. Ewentualnie: Workbooks.Add ActiveSheet.Paste wrzuci do nowego sheeta. Albo jedno albo drugie wklejasz zaraz po: MsgBox ("Dane zostały wygnerowane: " & iColumnCount & " kolumn i " & iRowCount & " wierszy." & vbNewLine & vbNewLine &...
Nie koniecznie trzeba biegać do Worda. W Excelu możesz, w dowolnej komórce wstawić symbol >> alfabet grecki (duże lub małe). Kopiujesz go potem i wklejasz w opisie odpowiedniej osi.
Potrzebuję pomocy. Mam kod, który wkleja do Worda określoną rzecz z Excela. Aktualnie jest to wklejane na początku strony. Czy jest szansa, aby było to wklejane w określone miejsce - Np linijka po znalezieniu słowa harmonogram w pliku Word? Poniżej kod. [syntax=vbscript]Sub WklejDoWorda() Dim oWord As Object Set oWord = CreateObject("Word.Application")...
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
Podczas wklejania Excel traktuje tą komórkę z datą jako tekst, mimo, że oznaczysz ją jako data. Można to łatwo obejść stosując taką formułkę =DATA(FRAGMENT.TEKSTU(A1;1;4);FRAGMENT.T... Oczywiście w A1 mamy datę w postaci "2019-06-20" a komórka wynikowa ma format daty.
Witam, wiem że stary temat ale mam pytanie czy tą funkcją da radę zrobić tak aby szukało w tabeli wartości zadanych w 2 komórkach. Przykład: mam tabele z wartościami dla różnych średnic i na przecięciu dwóch średnic mam czas. Chce żeby po wpisaniu tych średnic wyszukiwało mi ten konkretny czas Wydzieliłem z https://www.elektroda.pl/rtvforum/viewto...
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <= 10 Then MsgBox "Wartość poniżej 10!", 64, "Wesołych Świąt" End If End Sub[/syntax]A teraz? Procedurę wklejasz w kod arkusza...
Wklejam tekst w skoroszyt i excel automatycznie zmienia mi wartości na zgodne z formatem daty. Nie pomaga preformatowanie wszystkich komórek na tekstowe przed wklejaniem. Excel zmienia wtedy format z Tekstowe na Ogólne a w jednej kolumnie na Data. Kopiuję tabele ze strony www więc nie moge danych wcześniej preformatować (np. dodając apostrof). Kopiowanie...
Trudno powiedzieć dlaczego. Kod wygląda normalnie. Spróbuj treść maila zapisać do jakiejś zmiennej typu string przed utworzeniem maila i zobacz czy jest tam co trzeba np. poprzez Debug.Print. Potem to wykorzystasz, a przy okazji będziesz mógł zrobić drugiego with'a, co znakomicie skróci zapis. PS. Nie rozumiem po co tworzyć, a potem zwalniać niepotrzebne...
Próbowalem, jednak bez sukcesu , Problemem jest nie excel a strona i jej sposób przedstawiania danych , uzytkownik kopiuje cala tabelke od prawej dolnej strony tabeli do górnej lewej a pozniej wkleja , excel pozniej formatuje ja odpowiednio , jednak zostawia "kropeczki" . . To nie jest jednak wielki problem, moge sie obejsc bez tego. Wielkie dzieki...
Dzięki. Dokładnie tak samo próbowałem to zrobić ale trochę to myliłem i do złych kolumn mi wklejało dane.
...interesuje mnie tylko konwersja obiektu. Niestety, jeśli wkleiłeś to jako obraz to nie masz możliwości edycji (przynajmniej ja nie znam). Sprawdzałem uwagi jakie koledzy wcześniej pisali i rzeczywiście tak jak paweliw napisał, link jest wiekszy od obrazu. Do tej pory byłem przekonany, że to najmniejszy plik wynikowy. Zrobiłem próby ctrl-c ctrl-v...
Opcje formatowania są wygaszone, a we wklej specjalnie mam do wyboru jedynie mapę bitową. Problem występuje jedynie pomiędzy arkuszami, bo w obrębie jednego arkusza nie ma kłopotów wszystko chodzi.
Usunięcie hintu po wklejeniu danych i przejście linijke niżej by tam wklejać dane.
To chyba ta funkcja ale mam problem ze składnią :( =WYSZUKAJ.PIONOWO($A7;Arkusz3.$B$1:$D$16... Funkcja wyszukuje dopasowanie do pola A7 w aktywnym arkuszu i w tej postaci zwraca niestety pole B163 z Arkusza3 zamiast B120. Dodanie na końcu FALSZ czy PRAWDA powoduje błąd . pole A7 : DEXTER Arkusz3: pole C120 : DEXTER B120 : 1452345 pole zwracane : B163...
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
Metoda PasetSpecjal z klasy Range nie powiodła się. No pewnie, że się nie powiedzie. Podałem tylko przykład, a nie rozwiązanie. Zanim wykonasz Selection.PasteSpecial, musisz wybrać arkusz i komórkę, do której wklejanie nastąpi...
Jeśli tak, to wystarczy jedna lista... Pozostaje wklejać kolumny.
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
Zależy mi aby było to rozwiązane bez makr Jeśli szukasz sposobu uniemożliwienia wklejenia duplikatów :cry: - to można przygotować kolumny pomocnicze, które zweryfikują unikatowość poszczególnych danych w zestawie wklejanych wartości :D 1078166 Wstępnie wklejasz nowe dane w "zielone" pole, formuły weryfikują unikatowość i z "niebieskiego" pola wklejasz...
Czyli nie złapałem ;) http://obrazki.elektroda.pl/8434948300_1... Zaznaczasz kod i wybierasz z listy "Listing kodu". Lub odwrotnie, wstawiasz znaczniki i kod wklejasz pomiędzy...
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D [syntax=vb]Sub macro1() Worksheets("Arkusz1").Range("B5:B10").Co... Range("D:D").PasteSpecial End Sub[/syntax] Reszte musisz bardziej sprecyzowac bo nie bardzo czaje, nowy wiersz czyli do kolejnej kolumny?
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Witam, mam problem z komunikacja z Excelem poprzez DDE. Wszystko robie zgodnie z intrukcja (ctrl+shift+C w aplikacji z ktorej pobieram dane), wklejam w Excelu i Excel sie zawiesza. Jesli wkleje sciezke do notatnika, adres jest poprawny. W jakim innym programie moznaby to wyprobowac. Z jakich programow mozna pobierac i wklejac dane poprzez DDE? Czy Windows...
Wkleiłem ten kod w visual BASIC i po uruchomieniu nic się nie dzieje. Nie bardzo wiem co mogę odpowiedzieć, ja wklejam i działa. Może prześlij plik do którego to wkleiłeś?
Mistrz ! dzięki bardzo ! :) Zrobiłem to na zasadzie kopiowania rubryk i wklejania w odpowiednie miejsce :)
Istotne jest dla mnie też aby administrator w prosty sposób mógł przerwać działanie makr. . W tej chwili od momentu otworzenia pliku w arkuszu nr 2 makra nie pozwalają na wykorzystanie kopiowania i wklejania. Zadanie jest taki aby admministrator na czas swojej pracy mógł w prosty sposób wyłączyć makra, a po skończeniu pracy - z powrotem je włączyć....
Dokładnie ten sam co w załączniku. W sumie to jest komunikat, nie błąd, moja pomyłka :) To dziwne bo przy wklejaniu wartości nie powinno być komunikatu że wkleja formuły
Spróbuj [syntax=vb]Sub Makro() wrs = 2 'pierwszy wiersz zakresu ile = 36 razy = 30 Do While Cells(wrs, 1) <> "" wrs = wrs + ile For i = 1 To razy Rows(wrs & ":" & wrs + ile - 1).Insert shift:=xlDown Rows(wrs - ile & ":" & wrs - 1).Copy Rows(wrs & ":" & wrs + ile - 1) Next wrs = wrs + ile * razy Loop End Sub[/syntax]
Wszystko gra jeżeli jest stała ilość arkuszy i one co miesiąc są takie same. czy u ciebie jest podobnie? Niestety u mnie miesiąc w miesiąc te arkusze się zmieniają, albo trzeba któreś usunąc albo nowe dodac więc to odpada.. Czyli zostaje makro, a ja z tego jestem kompletnie zielony:) ale dziękuję za pomoc. Będę sobie wklejał ręcznie ;]
Formuła tablicowa z jeżeli() i wyszukaj.poziomo (). Załącznik musisz spakować bo pliki *.xlsx chyba nie "wejdą" na elektrodę. Wklejanie zdjęć też do poprawki wg tego http://www.elektroda.pl/rtvforum/topic20... Przygotuję mały przykład jak to zrobić.
w jaki sposób makro będzie wiedziało z którego fragmentu kodu html pobrać dane? Takie rzeczy zrobisz za pomocą kwerendy. (excel>narzędzia >pobierz dane zewnętrzne) do jakiejś bazy z kursami
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
Jeśli nie tabela przestawna to myślę, że najlepszym rozwiązaniem jest zastosowanie makra. Takie makro może pobierać datę na którą ma być obliczona godzina wejścia wyjścia i dla wszystkich pracowników wklejać w odpowiednie pola odpowiednie czasy. Jeśli będziesz zainteresowany mogę przedstawić więcej szczegółów.
[syntax=vbscript]Sub Scalaj() Kryterium = InputBox("Podaj kryterium filtra: ", "Filtr") Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:B" & ow).Select Selection.AutoFilter ActiveSheet.Range("A1:B" & ow).AutoFilter Field:=1, Criteria1:=Kryterium y = 1 For x = 2 To ow If Not Rows(x).Hidden Then Sheets("Arkusz2").Cells(y,...
Musisz z tej jednej kopiować kolejno data, miesiąc... i wklejać do innych kolumn.
Arek, prośba użytkownika PRL.;) Wklejaj kod w odpowiedni sposób.
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
To samo robiący kod, tyle że krótszy. [syntax=vbscript]Sub Drukowanie() i = InputBox("Numer wiersza") Set a = ActiveSheet Set b = Workbooks.Open(Environ("userprofile") & "\Desktop\Zeszyt2.xlsm") w = 2 For k = 1 To 5 a.Cells(i, k).Copy b.Sheets(1).Cells(w, k + 1) w = w + 1 Next ActiveSheet.PrintOut b.Close True End Sub [/syntax] Wklejam tutaj kod bo...
Arkusz kalkulacyjny nie jest efektywnym środowiskiem programistycznym. Formuły liczone są dużo szybciej niż interpretowany kod. Zamiast makra w F1 użyj formuły =MATCH(A1,A5:A10)+4 Resztę czytam i nie rozumiem, o co chodzi (ze skanowaniem, rysunkiem I, zaznaczaniem, wklejaniem, kopiowaniem tabel). Sorry. Może łatwiej będzie napisać, jaki cel chcesz osiągnąć,...
Najprawdopodobniej wchodzą dwa slash'e. Najlepiej dopisywać warunkowo. Przy okazji: przypisujesz tę samą wartość do dwóch zmiennych (nieszkodliwa nadmiarowość)[syntax=vb] ImgFldr = InputBox(AnsDirPrompt, "Powitanie", "C:\") 'ImgFldr = AnsDir CurrentFile = Dir(ImgFldr & IIf(Right(ImgFldr, 1) = "\", "", "\"))[/syntax]
Tak, da się coś takiego zrobić. Daj przykład jakiegoś tekstu. Domyślnie z tego co pamiętam jeśli tekst jest ciągiem znaków bez enterów to powinno się to wklejać do jednej komórki.
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
Kod wklejamy pomiędzy znaczniki (Syntax) - opcja "Listing kodu". Twój post (z racji pełnienia funkcji) poprawiłem, przy okazji łącząc oba w jedno ;)
Dobra tak w skrócie, kolumnę z tekstem "dodane 01.01.2000" kopiujesz np. do Worda, wszystkie spacje zamieniasz na znak tabulacji, wklejasz spowrotem do Excel i masz już wyodrębnioną datę którą możesz porównać z komórką B. To jeden z x sposobów.
Ja nie mam zamiaru kogokolwiek pośpieszać. Jestem wdzięczny za udzielanie mi pomocy. Przy okazji proszę powiedz mi która część kodu (w powyższym) jest odpowiedzialna za wklejenie gotowej listy do arkusza? Tz. że jest wklejana do kolumny 'B' licząc od wiersza 6? Jestem w trakcie dodania do 'Ankiety' możliwości obsługi skomplikowanej listy której niestety...
Kopiuje zaledwie 11 komórek w pętli (zakres) i kilka pojedynczych. Nie trwa to długo, ale widać, jak excel wkleja pojedyncze wartości, czas to około 0,5s / komórkę. Otwieranie skoroszytów też jest wyjściem, ale wydaje mi się w tym przypadku nieeleganckie. W każdym razie, wielkie dzięki za pomoc.
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
kombinuje z wklejaniem dlatego że jeżeli nie ma nic dopisane do .body outlook tworząc wiadomość dodaje przypisaną sygnaturę (jeżeli została domyślnie przypisana do nowo utworzonej wiadomości) jeżeli tekst skopiuję to po pojawieniu się okna klikam wklej i jest tak jak potrzebuję, z tąd moje kombinację nad wklejaniem w outlooku
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
Gdybyś zarejestrował sobie makro, to pewnie udałoby Ci się je zmodyfikować pod ten problem. Makro nic więcej nie robi, jak kopiuje i wkleja. W załączniku masz rozwiązanie.
Nagraj makro jak wklejasz wartość i na tej podstawie zmodyfikuj swój kod
Witam Kopiuje z netu dużo tekstu i robię to na piechotę potrzebuje pomocy by przyśpieszyć mi pracę w excelu. Mam same podstawy nie operuje w "makach'. Rozchodzi się o to, że kopiuje tekst który się wkleja lp. nr text - test - test cena tak mi się wkleja 1. a000 tworzywo sztuczne - grubość 20 69 zł a chciałbym to żeby się wklejało 1. | a000 | tworzywo...
po wskazaniu drugiego pliku excela gdzie mają być dane, wklejał je. wkleić do wskazanego pliku worda Kopiowanie do Excel, Word lub obu?
Witam. Mój problem wygląda następująco: Posiadam zewnętrzny program w którym pojawia się okno zapisu. Chciałbym aby excel wklejał ze swojej kolumny wartość jednej komórki do okna zapisu i klikał ok aby zapisać plik następnie, kopiować kolejną komórkę i czekać aż otworzy się kolejne okno zapisu aby wkleić wartość (pętla) W tym zewnętrznym oknie mam największy...
A jeżeli nie jest to Excel?
Witam czy istnieje możliwość dodania przycisku KOPIUJ do arkusza, z którego kopiuję do schowka wcześniej zdefiniowany obszar komórek A1:D8. Potrzebuję to wklejać dalej do innego programu.
Dzień dobry. Mam problem z zapisaniem arkusza. Wygląda to następująco: Otwieram arkusz excel- otwieram VB -daje insert moduł- wklejam kod i zapisuje. Wracam do arkusza i kod działa. Wchodzę ponownie do edytora VB , kod jest i działa w arkuszu ale... jak zamknę arkusz, pomimo zapisania go, to po ponownym otworzeniu ,kodu nie ma. Co robię nie tak.
Gdybyś zamiast wklejać zrzuty ekranu załączył arkusz, byłoby łatwiej :)
Na przykład dodaj jeszcze jedną kolumnę przy wierszach które mają być liczone wpisz 1, w kodzie dodaj jeszcze jeden if który sprawdzi czy jest jeden jeśli jest to liczy jeśli nie to następny wiersz, lub po ostatnim Next do wartości p. K. i dodajesz tyle ile ma być pominiętych wierszy, np i =i +10 i jeszcze raz wklejasz swój kod który sprawdzi następny...
Teraz OK. A jak zmodyfikować linijkę If key = 6 Then Arkusz3.PrintOut Copies:=1 żeby poszło na drukarkę inną niż domyślna Nazwa drukarki do XEROA5 PS. Modyfikacja załącznika nie potrzebna. Ja i tak kopiuję kod VBA i wklejam do swojego makra.
Nagraj makro polegające na skopiowaniu i wklejaniu... jako formuły / jako wartości... Może coś rozjaśni...
'If Format(Sheet3.Cells(69, 2),"0") = Sheet1.Cells(2, 8) Then ' Nadal wklejana jest liczba 1,0102E+21
Słaby pomysł z tym oknem dialogowym - trzeba się naklikać i to niepotrzebnie chyba, bo kolega napisał, że ma już otwarte pliki. Z innej beczki: 1. Jak wybrać te pliki? Mają może jakąś charakterystyczną część nazwy? Nie może to być taka sama nazwa jeżeli są jednocześnie otwarte. 2. Jak zidentyfikować arkusz do kopiowania? Może być stała nazywa, albo...
a opcja taka, że zamiast ręcznie wlkejać - naciskać przycisk to wykonujący (wklejanie + funkcja) też nie wchodzi w grę?
Mi chodziło o stworzenie listy rozwijanej (coś takiego jak autofiltr), w którym wybierając daną nazwę firmy w odpowiednim miejscu wkleja mi się całe dane firmy.
Tak samo F11. W oknie po lewej stronie dodajesz nowy moduł, a w treści po prawej wklejasz potrzebne makro. ----------- Miało być ALT+F11 ;)
Formuły nie dam rady napisać, ale wklejam Ci makro. Tak mniej więcej mogłoby to wyglądać :wink:
Już mam =ZŁĄCZ.TEKSTY(A2;" ";B2;" ";B2) to wklejamy do wiersza nr 2 następnie przeciągamy na pozostałe wiersze
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
Działanie w pliku jest ok, ale problem jest że ja muszę zamienić wartości w istniejącej już kolumnie, po prostu przełamać przez liczbę, dorabianie kolumny odpada. A odp z wklejaniem nie działa :(
Jeśli chodzi o daty, koledzy już wyjaśnili jak obliczyć cyferki... a wycinanie i wklejanie... cóż.. tu VBA się kłania... Ale nic nie stoi na przeszkodzie żeby użyć funkcji jeżeli. W komórce z której wartość ma być wycięta: JEŻELI(liczba mniejsza od 10;wpisz liczbę jeśli prawda;wstaw puste jeśli fałsz) W komórce gdzie ma się wklejać wartość: Jeżeli(liczba...
Nie ma pewności czy o taką funkcjonalność Ci chodzi ale n YT masz sposób funkcjonowania i jak to zrobić. Niestety jestem młody na forum i nie mogę wklejać linków więc w YT poszukaj: Excel - Jak stworzyć listę rozwijaną bez powtórzeń - widzowie #101 Funkcja pomoże dodać listy do każdego pokoju i nikt nie da rady dopisać się na przykład do dwóch pokoi.
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...
Postarałem się to uprościć. Na dzień dzisiejszy muszę wszystko kopiować i wklejać w zamówienia. Robię to niby raz w roku ale...
Nagrałem makro które kopiuje dana tak jak chce, lecz gdy zmienię datę (B2) to dalej wkleja do tych samych komórek a nie pod odpowiednią datę.
Witam, Opcja "Zachowaj szerokości kolumn źródłowych" pozwala na ustalenie szerokości kolumny, do której dane zostały przekopiowane, takiej samej, jak ta, z której dane zostały zaznaczone do kopiowania. Przykładowo: masz w kolumnie A wpisane kilka osób z imieniem, nazwiskiem, PESELEM - czyli długi tekst dla każdej komórki. Kopiujesz, wklejasz w kolumnę...
excel wklejanie wartości excel makro wklejanie excel wklejanie makro
fotowoltaiczny przetwornica pompa próżniowy dyfuzyjny skuter tuningu
generator chloru generator chloru
Błąd E23 w falowniku IBO IVR 11 - przyczyny i rozwiązania Częstotliwość fali T w EKG - szczegółowa analiza