Prostsza metoda przez 'sendkeys' (jak co to zostaje rangetohtml) ........................... Podmieniłem załącznik
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...
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...
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ą.
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...
[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,...
Cześć Marku! Plik działa wyśmienicie, jest znacznie więcej niż chciałem, o tym aby rejestrować PW i PZ nawet sobie nie pomyślałem a tak będe wiedział kiedy co weszło i wyszło! REWELACJA. Powiedz mi taką rzecz, czy dałoby się w zakładce technologia zamienić kolumny z wierszami tak aby w łatwiej było wklejać z BOMA materiał i ilości. Druga rzecz czy...
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...
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...
vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...
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...
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
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...
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?
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.
Witam, mnie również interesuje porównywarka cen w hurtowniach spożywczych. Czy coś takiego da radę stworzyć? Dziennie za pomocą programu do zamówień generuję plik z produktami, które mam zamówić i na obecną chwilę porównuję ceny w 7 hurtowniach spożywczych poprzez wklejanie kodu paskowego produktu na stronie internetowej każdej hurtowni. Czy dałoby...
udało się rozwiązać problem, ale mam jeszcze jedno pytanie. Co zrobić żeby dane pobrane z formuły INDEX i MATCH po zapisaniu w folderze były stałe ?. To znaczy jak na przykład osoba której prześlę ten plik, a nie ma dostępu do pliku źródłowego widziała wygenerowane wcześniej dane w komórkach ? Cieszę się, że udało Ci się rozwiązać problem z funkcją...
Ok, zamyka formularz, a jak zrobić żeby to co zostało wklejone przez program do excela otworzylo sie po zamknieciu formularza ? (wklejony znaczy dodane np. Range("Arkusz1!A7") = Label2.Caption) Edit: owszem arkusz zostaje, ale znika mi z paska i musze ponownie go otwierac poprzez tzw. double click z pulpitu .. Nie bardzo rozumiem. Nic tu nie znika...
Witam, mam problem ,a niewiele czasu na jego rozwiązanie . Otóż mam 2 arkusze w excelu (openoffice calc - ale to chyba bez większego znaczenia) gdzie w jednym : numer_seryjny | nazwa a w drugim : nazwa | kolor | cena (nazwa jest zbliżona ale może delikatnie się różnić ; zbieżność 80%) i chciałbym by excel automatycznie po nazwie połączył to w jeden...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Może wniesiesz coś do tematu i po prostu pokażesz jak to powinno wyglądać uwzględniając wklejanie do pierwszej wolnej komórki kolumny D, a nie piszesz posty, które nic nie wnoszą. Zakładam, że skoro tutaj coś piszesz to masz jakąś wiedzę więc się nią podziel. Bo na tą chwilę wszystko co piszesz to coś co może napisać każdy.
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...
Ja mam zawsze dylemat, gdy widzę post z kodem. Skoro kod jest w miarę czytelny, to znaczy, że autor wie, co pisze. A skoro wie co pisze, to raczej łatwo sam znajdzie odpowiedź na swoje pytanie. No chyba, że pisanie kodu, to wklejanie zlepków różnych kodów z sieci i potem coś nie działa. Kopiuj/wklej nie zawsze działa.;) (at)Jarofon takie tstr = Str(Target.Value)...
Range("A5").Copy Sheets("arkusz2").Range("c" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Dziękuję za wskazówki, na obecną chwilę jest tak: (at)adamas_nt: [syntax=vbscript] cCellYTD.FormulaR1C1Local = "=" & YTD [/syntax] Spróbowałem, oczywiście iteracyjnie, komórka po komórce (bo "=" przed tablicą powoduje niezgodność typów (chyba, że czegoś nie zrozumiałem)) - i działa, formuły się przeliczają. Ale, że raport jest długi - to się ładuje...
Działać działa, ale błąd nadal jest. Mimo wszystko + daję, bo wklejanie samych wartości też mi się przyda. :)
wypełnienie szablonu Word aby otrzymać w wypełnionej tabeli dokładnie takie formatowanie wartości jakie mam w arkuszu Excela Jeśli nie ma jakiś istotnych przeszkód :?: to proponuję najprostsze rozwiązanie :D - kopiowanie tabeli w Excelu i wklejanie jej do dokumentu Worda poprzez najprostszy kod 1044488
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]
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
Byłoby dobrze dołączyć pliki przykładowy(Excel i Word), w Excel jest tylko arkuszy z wykresy, lub innych? Zawsze 10 wykresow lub różne iłosći?
Trzy przykłady w załączniku, ale zawsze trzeba sobie wyliczyć to przesunięcie, automatycznie się nie da.
A dlaczego klawiszem Insert? On nie do tego służy. Tak wiem, że ten klawisz jak wszystkie inne na klawiaturze do czegoś służy. Dałem przykład - równie dobrze może być to kombinacja klawiszy, skrót, jakkolwiek to ubierzemy. Zwyczajnie chcę wybrać sobie miejsce do wklejenia dwóch różnych zakresów z jednego arkusza w dwa różne zakresy drugiego arkusza....
wstawiłam formułę. działa super ale kiedy próbuję ją skopiować w dół mam komunikat "ta operacja wymaga aby wszystkie scalane komórki miały takie same rozmiary". wklejanie formuły w każdy wiersz z osobna jest niemożliwe (mam ponad 2000 wierszy). w załączeniu plik z formułą. co zrobić ? jest jakiś sposób? pomocy!
skopiuj wartości z komórek od M do R i wklej do kolumny C :?: :cry: Jak to chcesz zrealizować ? Wklejanie pięciu wartości komórek do jednej :D i to do kolumny z loginami :?: Do czego Ci potrzebne wyszukiwanie pionowe ? Znasz ograniczenia tej funkcji ? W Twojej tabeli w kolumnie C na pewno nie powtarzają się loginy ? Zrób i pokaż przykładowy plik z...
Jeśli koniecznie chcesz przenosić wartość jednej komórki do drugiej przy użyciu makra - to po zarejestrowaniu edytuj to makro i skoryguj wklejanie ze schowka (zapisana jedna wartość :D ) na wklejanie wartości komórki pierwotnej. Znacznie prostszy sposób przenoszenia wartości z jednej komórki do drugiej to łączenia typu d10 = a1 :!:
Niestety nie mogę wrzucić tutaj pliku. Jako N miałem na myśli liczby zawsze powiększone o +1 np. A2 potem A3 itd. Znalazłem rozwiązanie które powinno mi pomóc. Mianowicie jest to pętla, której niestety po wielu próbach nie potrafię wykonać. Więc na ten moment moje makro jest "ręcznym" odpowiednikiem pętli czyli wszystko napisane krok po kroku a chciałbym...
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...
Jednak okazuje się, że jest większy problem z sortowaniem tego. Wszystko opisałem i zaznaczyłem w Twoim pliku. Myślę ogólnie nad transpozycją w arkuszu X - Auta/trasy do wierszy, a kolejne sklepy do kolumn. Wtedy zamiast macierzy 400Wx100K wyjdzie macierz 100Wx400K. Niby nie było by to problemem w końcu excel oferuje wklejanie z transpozycji, ale Producent...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Faktycznie nie precyzyjnie. Oczywiście cały czas mam na myśli nowy skoroszyt. Mówiąc typ, mam na myśli listę którą rozwijam w filtrze. Piszę ogólnie, bo makro po przeróbkach przydałoby mi się do kilku czynności które wykonuję w pracy, i zdecydowanie by mi ją usprawniło. Generalnie chodzi o filtrowanie po kolei to co mam na liście w kolumnie E, kopiowanie...
Ze względu na ograniczenia nałożone przez admina nie jest możliwe zapisanie tego tekstu do pliku tekstowego/sekwencyjnego na dysku. Jakoś nie jestem przekonany. 1. Każdy Windows zapisuje/usuwa pliki tymczasowe. Ściągnij (otwierając, nie zapisując) dowolny załącznik i się przekonaj. 2. Zalogowany User zwykle ma jakąś przestrzeń do tego celu (plik nad...
Moze cos od poczatku zle robie? Plik z makrem jest kopiowany z komputera z danymi na komputer z nowym excelem i windowsem. Zmiany wprowadzam bezposrednio w dwa pliki xls i xlsm po zapisz jako (myslalem na poczatku ze moze to wina formatu pliku). Teraz po ruszeniu makra od poczatku wrocil blad 1004 [syntax=vb]Worksheets("Working").Select Range("a1:iv65536").ClearContents...
Można. Najłatwiej w VBA. Aktywujesz pierwszą komórkę wiersza (zakładam, że w przykładzie jest to pierwsza kolumna). Stosujesz pętlę Do While {ostatni znak = np.1 } ... kolumna = kolumna + 1 Loop zaznaczasz zakres od pierwszej kolumny do kolumny o numerze określonym przez "kolumna" z powyższego kodu. Kopiujesz i wklejasz w odpowiednim wierszu....
Hej, Mam prośbę o pomoc. Mam plik z makrem, który wskazuje folder, w którym znajdują się wszystkie dokumenty z których musze pobrac dane. Wszystkie dokumenty są zaszyfrowane z tym samym hasłem "1111". Dane muszę pobrac z zakładki, która jest veryhiden "do exportu" zakres komórek od j3 do bf3 Planowane działanie makra: 1) wskazuję folder gdzie znajdują...
Dzięki, makro jest bardzo dobre. Niestety przeszukuje tylko ten arkusz w którym je uruchomię. Bardzo proszę o jeszcze jedną modyfikację: Aby makro przeszukało arkusz pierwszy o nazwie 2010, później arkusz drugi o nazwie 2011 i arkusz trzeci o nazwie 2012. Po przeszukaniu każdego arkusza niech kopiuje wiersze jeden pod drugim do arkusza o nazwie RAZEM,...
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Witam, Szukam rozwiązania problemu z którym borykam się od jakiegoś czasu używając Excela 2007. Pracuje na arkuszu w który wklejam dane pochodzące z zewnetrznego programu (Sabre Red). Obecnie wygląda to tak: W jednej komórce (powiedzmy A1) znajduje się wartość od której muszę odjąć inną wartość (ze schowka), tak żeby w innej komórce (np B1) pojawił...
Witam. Mam prostą listę rozwijaną, która nadaje statusy OK lub NOK w całej kolumnie. Niestety lista zezwala użytkownikom na wprowadzanie danych "z ręki" oraz wklejanie OK lub NOK do całego zakresu komórek. Dodatkowo mogą "przeciągnąć" w dół dany status i przypisać status do zbyt dużej ilości wierszy niż powinni. Chciałbym, aby użytkownik mógł wprowadzić...
Jak pisałem. Wklejanie z menu kontekstowego "Wklej specjalnie" otwiera okno z 3 opcjami: HTML, Tekst Unicode, Tekst. Tylko opcja HTML rozdziela komórki. Pozostałe walą wszystko ciurkiem w pierwszą kolumnę. Tabela z www ma liczby z separatorem w postaci kropki. Excel takie liczby zamienia automatem do daty. Pozostaje chyba tylko ręczne, mozolne zamienianie...
zaproponować takiej opcji: Utwórz kopię pliku źródłowego, wierszy i kolumn zawierających poufne informacje nie są cięte (jasne, Wymaż) i wysłać na mój e-mail. na innym komputerze będzie polskie ustawienia regionalne i musi doprowadzić to do końca Oryginalny plik źródłowy wygląda identycznie jak ten 20 MB plik (okład kolumn i wierszy jest dokładnie...
Nie mogę jeszcze porównać szybkości, ale wcześniejsze makro które działało na podobnej zasadzie z tym, że wplecione w nim było bardzo dużo działań na arkuszach, w sensie kopiowania wartości komórek z jednego arkusza, wklejanie do innego, sprawdzanie czy pasuje i tak w koło, co podobno brało bardzo dużo mocy obliczeniowej, było w stanie przerobić około...
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]
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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Chce zautomatyzowac process kopiowania zawartosci komorki do pola tekstowego (w tym samym akruszu i stronie), ale nie znam skladni VBA. Nagralem makro, i robi to co chce, ale jak zmienie zawartosc komorki A1, z ktorej ma kopiowac (tekst jest tam zmieniany dynamicznie), to on dalej kopiuje tekst na czym oryginalnie makro bylo nagrane (caly tekst jest...
1. Kopiowanie jest możliwe tylko przy otwartych plikach. Możesz otwierać je i zamykać w kodzie Np. Workbooks.Open Filename:=ThisWorkbook.Path & "\Zlecenia wystawione TE 2009.xls" 'jezeli w tej samej lokalizacji 'tutaj kopiowanie i wklejanie Workbooks("Zlecenia wystawione TE 2009.xls").Close (savechanges = False)'zamykam...
Oj. Zapomniałem, że składanie stringa realizowane jest w funkcji. Jeśli zmieniasz zakres dla Target.Range, zmień również Nr kolumn w funkcji. Kolejne poprawki trzeba wprowadzić w adresach komórek docelowych. Będzie zawsze o 1 w prawo niż w Target.Range. Np dla tabeli A:I, wynikowa to "J", czy idx 10 ( W przykładowym pliku jest 'For i = 1 To 9' dla kolumn...
Skopiowany wykres Excela można wkleić do dokumentu Worda jako: - wykres Excela - obiekt, który można edytować jako arkusz - rysunek (metaplik) - który można rozgrupować i edytować jako rysunek z polami tekstowymi itd., - łącze do wykresu Excela - zmiany w arkuszu będą się przenosiły do dokumentu Worda Ponadto skopiowany z Worda obiekt/rysunek można...
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
[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)
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...
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
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...
Sprawdź załączony plik.
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 &...
A alternatywne skróty ctrl+ins (kopiowanie), shift+ins (wklejanie) działają?
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.
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")...
[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...
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...
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...
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.
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.
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...
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"
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 ;)
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ć.
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ś?
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.
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.
Usunięcie hintu po wklejeniu danych i przejście linijke niżej by tam wklejać dane.
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ć....
Jeśli tak, to wystarczy jedna lista... Pozostaje wklejać kolumny.
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...
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...
Mistrz ! dzięki bardzo ! :) Zrobiłem to na zasadzie kopiowania rubryk i wklejania w odpowiednie miejsce :)
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...
A mógłbyś mi jeszcze pomóc z tym automatycznym przepisywaniem imienia z pierwszego wiersza każdej tabeli do następnego imienia? Chciałem na koniec zastosować funkcje autofill, ale zmienna jest ilość wierszy. Chyba, że dało by rade zrobić to od razu wklejając arkusze.
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.
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
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]...
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...
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]
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
excel wklejanie excel wklejanie wartości excel wklejanie makro
kondensator pompa grundfos amica indukcyjny płyta czyszczenie video
calormatic ustawienia vaillant ustawienia
VW Touran Diesel - Obroty na biegu jałowym rosną do 1100, potem spadają do 900 Jak wygląda uszkodzony telewizor po burzy?
