Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
Dobrze by było jak te formuły miały charakter stały, uwzględniając np. zmianę dnia w tygodniu (ponieważ inaczej rozlicza się godziny w dzień roboczy, a inaczej w święto). Zrób dodatkową kolumnę, którą będziesz wyróżniał dzień wolny/sobota-niedziela/święto od normalnego dnia pracy. Wtedy wartość z tej kolumny ta może posłużyć za warunek do zmiany sposobu...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Sheets("DATA ENTRY " & s)
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Witam, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
Z tym przeciąganiem to jest dość skomplikowane, bo w takim przypadku obszar selekcji jest większy niż obszar zmian. Trzeba to dopasować. Poza tym przy przeciąganiu najpierw jest kopiowanie, a potem selekcja, w związku z tym przy takiej metodzie rejestracji zmian, jaką tu przyjęto wynik wygląda tak, że wartość poprzednia jest taka sama jak bieżąca. Zatem...
Tylko już .xlsm
Dzięki PRL za pomoc! Już jest prawie dobrze. Jest tylko jeszcze jeden mankament. Otóż jeżeli np. w wierszu G2 mam wartość 5 to makro kopiuje wiersz 2 pięć razy a powinno kopiować 4 razy. Ilość skopiowanych wierszy razem z tym, który pozostaje powinna być taka jak wartość w komórce w kolumnie G jeszcze przed uruchomieniem makra. Czyli suma wierszy po...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym...
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
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...
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
W zasadzie można to zrobić zwykłą funkcją "JEŻELI". Jeżeli data nowsza od poprzedniej wpisz kolejną wartość do kolejnej komórki .... Chyba, że macie jakieś inne pomysły
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Napisałem krótki kod w VBA, który tworzy mi historię edytowania każdej komórki z danego zakresu w komentarzu. Pokazuje też, kto wprowadził zmiany wraz z datą. Wszystko ładnie działa, tylko musi to być bardziej - że tak powiem - idiotoodporne :) ...i z tym mam problem, tzn.: 1. Jak już komentarz automatycznie się stworzy, to nie może być możliwości usunięcia...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Jeżeli musisz powiązać jeden plik z wartościami z innego i znasz ich lokalizacje, to otwórz te dwa pliki jednocześnie, w pliku LUTY zrób odwołanie do pliku STYCZEŃ (po prostu - wpisz w komórce =, przejdź do arkusza STYCZEŃ i zaznacz w nim komórkę). Formuła przyjmie wartość mniej więcej taką: =[STYCZEŃ.xls]Arkusz1!$B$3. Jak teraz zamkniesz plik STYCZEŃ,...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
Dziękuję za pomoc. Już dawno zaprzestałem bezmyślnie kopiować i wklejać, wiem o co chodzi taki głupi to ja nie jestem, jeśli chodzi o temat to wykorzystałem formułę jak również i makro w jednym i w drugim przypadku działa bez problemu, jeszcze raz dziękuję za pomoc. Uważam temat za zamknięty.
Bez montowania tej procedurki potrafię powiedzieć, że ona nic nie przenosi ani nie kopiuje. I przy tym trwał będę uparcie. Moim skromnym zdaniem wstawia ona stałą wartość (8 lub 16) do komórek arkusza 2 przesuniętych o offset 3,3 w stosunku do komórki modyfikowanej w arkuszu 1. Gdzie tu jest kopiowanie? Jeśli się mylę popraw mnie. A jeśli chodzi o trafianie...
Dzień dobry. Czy trudne jest zrobienie makra które po wciśnięciu przycisku "DODAJ" doda wartości dwóch komórek do trzeciej, a następnie wyczyści zawartość jednej z nich i czterech innych? Chodzi o to, że w komórkach "L" jest obliczana wartość na podstawie komórek H,I,J,K tego samego wiersza. W komórce "M" wartość czasem jest wpisywana z ręki, a czasem...
Witam i proszę o pomoc - jeśli jest to możliwe. Stworzyłem makro kopiujące dane kolejno z wielu plików do pliku docelowego: 'kopiowanie z pliku 01 do docelowego w wierszu 5: Windows("plik_01.xls").Activate Range("P4").Select Selection.Copy Windows("docelowy.xls").Activate Range("$C$5").Select Selection.PasteSpecial Paste:=xlPasteValues 'kopiowanie z...
W zasadzie jeżeli(licz=licz;ok; nie ok), a dokładniej: [syntax=tex]=JEŻELI(LICZ.JEŻELI(baza!H:H... service")[/syntax]Wklej w F3 i przeciągnij w dół.
Witam Dopiero zaczynam z Vba Exel i mam problem z przyśpieszeniem swojej pracy. Mam 2 arkusze. W pierwszym uzupełniam wiersze od (a2:h22) oraz komórkę "k1". Po włączeniu makra chcę by komórki z podanego przed chwilą zakresu dopisywały się w drugim arkuszu od "a2:h" a komórka "k1" żeby skopiowała się tyle razy ile dopisało się wierszy i to do ostatniej...
Witaj. Prawie wszystko jest możliwe, ale powiedz co miałoby "to" robić z pasującymi wierszami? (zaznaczać kolorem, kopiować gdzieś liczyć ich ilość). Mogłoby zaznaczać identyczne wiersze na jakiś kolor, albo gdzieś podać numery identycznych wierszy. Potrzebuje znaleźć pary. Dodano po 2 Używając w kolumnie pomocniczej formuły =--ORAZ(A1=B1;C1=B1;D1=C1)...
Ok mam już coś takiego [syntax=vb]Private Sub CommandButton2_Click() Dim i As Integer For i = 3 To 12 Selection.NumberFormat = "General" Cells(i, 3) = "='" & Link(TextBox1.Text) & "[" & Nazwa(TextBox1.Text) & "]Input'!$C$" & i Next i For i = 14 To 287 If i <> 32 And i <> 33 And i <> 103 And i <> 104 And i...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
ten InputBox nawet nie jest tu konieczny bo zawsze z każdego pliku źródłowego z tego samego arkusza i tej samej komórki będzie spływała jakaś wartość do tej samej komórki w arkuszu UZYWANE. Więc muszę i tak wpisać ręcznie Array. Problem pojawia się wówczas gdy chciałbym nie tylko kopiować ze wszystkich Arkuszy1 do Arkusza1 w UZYWANE. A jeżeli w plikach...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
U mnie działa...
Myślę, że to tak dobrze [syntax=vb]Sub copy_poz() Dim dst As Range, src As Range Dim rd&, rs&, rse& Set dst = Sheets(2).Range("A:D") Set src = Sheets(1).Range("A:D") rd = 2: r = 1 While src(r + 1, 1) <> Empty pcur = 0 While pcur <= src(r + 1, 1) r = r + 1 If src(r, 4) = "M" Then pcur = src(r, 1) rs = r While src(r + 1, 1) > pcur...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
Może najpierw "wydłubać" ten fragment zwykłymi formułami i w następnej kolejności brać się za kopiowanie. A gdzie chcesz je (wartości) kopiować?
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
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?
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Czekamy aż zrezygnujesz z prowizji...
Sprobuj takie makro - jest bardzo proste zaklada ze uruchamiasz je z arkusza Dane i ze tabelka w arkuszu Dane jest w tym samym miejscu co dales w przykladzie Sub test() Dim DaneX, DaneY, SpisX As Integer DaneX = 2 DaneY = 2 SpisX = 10 Do While Cells(DaneX, 1).Value <> "" Do While Cells(1, DaneY).Value <> "" If Val(Cells(DaneX, DaneY).Value)...
Czytać, szukać przykładów. Np [url=http://office.microsoft.com/pl-pl/e... i efekt (w tabelce-fule skopiowane formuły, wartości dla fuli kopiowane od dołu) + wskazanie zwycięzcy ;)
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
kopiuj prawy klawisz wklej specjalnie - wartości
Przy założeniach że w arkusz1 dane w kolumnie A rozpocząć 3 wiersz, tabela na arkusz2 rozpoczyna się w 2 wiersze =INDEKS(Arkusz1!A:A;(WIERSZ()-2)*45+3)
W załączniku.
chcę to zmienić na przycisk To proponuję wykorzystanie kodu typu :spoko: : [syntax=vbscript]Public Sub Powiel() i = 2 Do Until IsEmpty(Cells(i, 7)) If Cells(i, 7).Value > 1 Then a = i + 1 b = a + Cells(i, 7).Value - 2 Range("A" & i & ":K" & i).Select Selection.Copy Range("A" & a & ":A" & b).Select Selection.Insert Shift:=xlDown Range("G" & i & ":G"...
Uruchamia się poprzez wpisanie do arkusza Parametry w A1 wartości 1.
takie cuś Jedzie od końca listy w kolumnie C: [syntax=vbnet]Sub usun_nie() Dim LastRow As Integer ' long Dim FirstRow As Byte Dim i As Integer With Sheets("Arkusz1") LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row FirstRow = 2 End With i = 1 For LR = LastRow To FirstRow Step -1 If LCase(Cells(LR, "C").Value) = "tak" Then Sheets("Arkusz1").Range("C"...
No i masz odpowiedź! Wywal dolary i będzie OK! Pierwszy $ ustala kolumnę, drugi wiersz. $X$Y to stały adres komórki, nie zmieni się przy kopiowaniu.
Niestety Run-time error '1004': Metoda PasetSpecjal z klasy Range nie powiodła się.
Wpisujesz formułę w C1, zatwierdzasz w/w kombinacją klawiszy i kopiujesz w dół. Ot i cała filozofia :)
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Pierwsze pobranie powinno nastąpić w pętli Numerować powinieneś na podstawie licznika pętli w , jest to bardziej logiczne. Jeśli ustaliłeś w=3 (wiersz 3), to wartość komórki A w tym wierszu powinna być ustawiona z warunkowym wykonaniem jako [syntax=vb]If a<>0 Then Cells(w, 1).Value = w-2 [/syntax] w momencie pobrania zerowej wartości, nie nastąpi...
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
Gwoli ścisłości: sprawdzanie poprawności danych nie chroni przed kopiuj-wklej z innego arkusza (czytaj: robiąc kopiuj-wklej i tak możesz wkleić w komórki dowolną wartość). Ale, nie ma rozwiązania idealnego.
A czy dane z wierszy w sekcji "Zakup paliwa" są powiązane jakoś z danymi w wierszach "Zużycie paliwa"? Masz tam kolumny stan pocz./kon. licznika, których brak w zakładce "Razem dział", co z nimi?? Last but not least : czemu po prostu nie dodawać wierszy z datą tylko wtedy, kiedy rzeczywiście jest jakiś zakup robiony? Bo co tak komplikować plik tyloma...
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
[syntax=vbnet]Sub Makro1() Set toskopiowac = Selection.EntireRow Range(toskopiowac.Offset(1, 0), toskopiowac.Offset(Selection.Value - 1, 0)).EntireRow.Select Selection.Insert Selection.EntireRow = toskopiowac.Value End Sub[/syntax]
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
Wiem ;) ale nie widzę związku za bardzo. Nigdzie dolarów nie mam, a nawet jeśli, to jak miałyby wpłynąć na procedurę kopiowania?
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...
Witam, mam pytanie czy istnieje sposób na przenienie danych z excel do innego programu, w którym muszą one być pojedyńczo potwierdzane enterem. Automat miał by wyglądać tak kopiuj wartość excel -> wklej do innego programu -> potwierdź (enter) i ta czynność miała by być powtarzana np. 1000x Z góry dzięki za pomoc
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
Dziękuje za pomoc. Mam jeszcze pytanie - czy istnieje możliwość pomijania kopiowania, gdy w danej komórce dodatkowej nie ma żadnej wartości / danych?
Ale że nie makro czy nie taka formuła?
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie. Dodano po 3 (at)ElektrodaBot Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ?
Nie wiem czy dobrze cie rozumiem Zaznaczasz kolumny wciskasz kopiuj przechodzisz do nowego zeszytu (nie wiem jak jest w oo ) wciskasz prawy klawisz myszy wybierasz wklej specjalnie... zaznaczasz "wartości" ok i masz wklejone same cyfry.
Range(" A1:S" & n+1 ).Select tak próbowałam i wyrzuciło mnie Mam nadzieje, ze przed tym byla wartosc n znalezena i > 0 For n = 0 To Cells(65536, "P").End(xlUp).Row
Filtruj wg kolumny z wynikami LICZ.JEŻELI http://obrazki.elektroda.pl/7228439700_1... i ostatnia czynność: kopiuj > wklej specjalnie/wartości - w z góry upatrzony arkusz. Przy odrobinie wprawy wszystko "idzie piorunem" ;)
Działa. PO zapisaniu pliku i ponownym otwarciu problem chwilowo zniknął. Czy istnieje jakaś kombinacja klawiszy, która ustawia ctrl-c w tryb: kopiuj, kopiuj tylko wartości, kopiuj, kopiuj tylko wartości .... ?? Bo tak mi to właśnie naprzemiennie działało i nie wiem co przypadkowo wcisnąłem.
dane po określonej dacie Tak, jak napisałeś w warunku godziny, tak dodaj do niego datę i wartość C.
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
Sortowanie w Excelu działa tak jak kopiowanie, a nie jak przesuwanie. W związku z tym odwołania z zewnątrz do obszaru sortowanego nie aktualizują się. W odwołaniach zewnętrznych trzeba się odnosić do stałych, a nie do adresów. Zaprezentowany problem można rozwiązać np. za pomocą funkcji WYSZUKAJ.PIONOWO.
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
Wstaw nową kolumnę, wklej funkcję (przykład dla kolumny źródłowej A od 1 wiersza) =FRAGMENT.TEKSTU(A1;1;DŁ(A1)... i przeciągnij w dół. Następnie zaznacz kolumnę, Kopiuj, Wklej specjalnie>wartości i usuń kolumnę źródłową. Tę samą funkcję można użyć w pętli VBA (mid, len, right). Warto, jeśli czynność...
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
excel kopiować wartość komórka excel kopiować ostatni wartość kopiować wartość
gniazda radia samochodowego print serwer skaner skanować biała kartka
krzywe ściany polecane lutownice
Jak wyciągnąć kosz sprzęgła WOM w Zetor Frontiera? Pilot Stanley 10 83-12 - dioda nie świeci, pilot nie działa
