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'?
[syntax=vb] If Range("L100")<>"" Then Range("L10000").End(xlUp).Offset(1, 0).PasteSpecial Else Range("L100").PasteSpecial End If[/syntax]
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...
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...
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...
[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...
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...
witam, od razu zaznaczam ze laik ze mnie jeśli chodzi o vba. chciałbym sobie usprawnić excel przez kilka drobnych makr. ZADANIE: makro ma zaznaczyć i skopiować zakres C5:Q5 i wkleić go w te same kolumny tylko odrobine niżej (C7:Q7) zapisać i wyjść z excela. TYLKO PRZY KOLEJNYM URUCHOMIENIU MAKRA CHCIAŁBYM ABY WPISYWAŁO ZAKRES C5:Q5 O PIETRO NIŻEJ (C8:C8)...
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.
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]
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, 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...
Trzy przykłady w załączniku, ale zawsze trzeba sobie wyliczyć to przesunięcie, automatycznie się nie da.
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ą...
Range("A5").Copy Sheets("arkusz2").Range("c" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
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.
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]
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)...
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?
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...
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...
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. :)
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?
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...
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
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...
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...
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 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 :!:
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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...
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...
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...
Przyznam się że makro jest dla mnie dośc egzotycznym pojęciem, możesz mi powiedzieć w jaki sposób je zrobić?
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...
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...
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...
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
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")...
Sprawdź załączony plik.
musisz wklejać przez (wklej specjalnie i wartości)
[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?
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...
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.
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...
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.
A alternatywne skróty ctrl+ins (kopiowanie), shift+ins (wklejanie) działają?
[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...
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...
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ć....
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...
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.
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...
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ć.
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 ;)
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ś?
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.
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
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...
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.
Usunięcie hintu po wklejeniu danych i przejście linijke niżej by tam wklejać dane.
Witam Rozumiem że korzystasz z tego kodu? [syntax=vbscript]Set Poczta = CreateObject("outlook.application") Set MojMail = Poczta.createitem(0) With MojMail .To = "mail(at)domena.pl" .CC = Poczta.Session.CurrentUser.Address .Subject = "Mój tytł" .ReadReceiptRequested = False .OriginatorDeliveryReportRequested = False .body = 'Tutaj chce w formie tabeli...
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]...
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...
Jeśli tak, to wystarczy jedna lista... Pozostaje wklejać kolumny.
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.
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.
Mistrz ! dzięki bardzo ! :) Zrobiłem to na zasadzie kopiowania rubryk i wklejania w odpowiednie miejsce :)
wklejanie excel excel wklejanie wartości excel wklejanie makro
blokada pływająca czyszczenie video budowa krajzegi
calormatic ustawienia vaillant ustawienia
Protokoły komunikacyjne w kamerach Keeyo Masa gwiazdowa we wzmacniaczu i przedwzmacniaczu – spalanie potencjometru balansu, DC na ścieżce
