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...
Trzy przykłady w załączniku, ale zawsze trzeba sobie wyliczyć to przesunięcie, automatycznie się nie da.
Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpe... myślałem, że chcesz od 101:) teraz powinno wklejać w kolejną wolną.
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'?
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?
musisz wklejać przez (wklej specjalnie i wartości)
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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
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...
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...
A alternatywne skróty ctrl+ins (kopiowanie), shift+ins (wklejanie) działają?
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 &...
Rzecz w tym, że schowek office to inny obiekt niż schowek windows. Poniżej przykład umieszczenia danych w schowku systemowym oraz odczyt i wyświetlenie w msgbox. Uwaga: wymagane referencje, Edytor VB>Tools>References, zaznacz "Microsoft Forms 2.0 Object Library" Przyjąłem, że dane są w kolumnie "A", komórka "C1" użyta jako licznik. [syntax=vb]Sub proba()...
Przyznam się że makro jest dla mnie dośc egzotycznym pojęciem, możesz mi powiedzieć w jaki sposób je zrobić?
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.
[syntax=vb]Sub Makro1() UserForm1.Show Range("A1").Value = UserForm1.TextBox1.Text End Sub[/syntax]
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.
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...
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??
[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...
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...
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...
Usunięcie hintu po wklejeniu danych i przejście linijke niżej by tam wklejać dane.
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...
...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...
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.
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.
Jeśli tak, to wystarczy jedna lista... Pozostaje wklejać 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...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
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...
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...
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...
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...
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...
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.
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 ;]
A jeżeli nie jest to Excel?
Musisz z tej jednej kopiować kolejno data, miesiąc... i wklejać do innych kolumn.
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?
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.
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"
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...
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]
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.
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...
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.
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...
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ć.
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.
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.
Może być VBA?
Nagraj makro jak wklejasz wartość i na tej podstawie zmodyfikuj swój kod
Gdybyś zamiast wklejać zrzuty ekranu załączył arkusz, byłoby łatwiej :)
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...
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...
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.
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
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.
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
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...
po wskazaniu drugiego pliku excela gdzie mają być dane, wklejał je. wkleić do wskazanego pliku worda Kopiowanie do Excel, Word lub obu?
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.
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.
Postarałem się to uprościć. Na dzień dzisiejszy muszę wszystko kopiować i wklejać w zamówienia. Robię to niby raz w roku ale...
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
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ąć,...
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
a opcja taka, że zamiast ręcznie wlkejać - naciskać przycisk to wykonujący (wklejanie + funkcja) też nie wchodzi w grę?
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...
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...
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 makro wklejać wklejać linek wklejać linek wklejać wiersz
ploter wycinania gaznik zalewa silnik licznik honda
Przesunięcie krzywej grzewczej w kotle Saunier Duval Niedźwiedź Jak wgrać Windows CE na Modecom MX4 - instrukcja