='C:\PlikiExcela\[Pracownicy.xlsx]Pracow...
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Dzień dobry, To jest formuła tablicowa i aby poprawnie działała należy: 1) zaznaczyć zakres do którego ma być wprowadzona, 2) wprowadzić formułę, a jeśli została już wcześniej wprowadzona przejść do trybu edycji klawiszem F2 lub kliknięciem na pasku formuły, 3) zatwierdzić kombinacją klawiszy Ctrl+Shift+Enter. Pozdrowienia.
Pliki bazy TERYT są w formacie XML a Excel przecież je obsługuje, po co ma przenosić.
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
Witaj Przytrzymanie klawisza Ctrl, można zauważyć kursor po komórce w wierszach, dla którego konieczne Etykiety. Następnie kliknij przycisk OK.
Funkcja Wyszukaj.pionowo() z zerem jako ostatni argument.
Wprowadziłem zabezpieczenie żebyś dwa razy nie wprowadził tej samej umowy zarówno poprzez wprowadź jak i poprzez dodaj. Eliminuje przypadkowe powtórne naciśnięcie przycisku. Na marginesie na forum jak jesteś wdzięczny to wciskasz pod daną wypowiedzią "pomógł". :)
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
A jeżeli makrem, to można wypróbować poniższy kod: [syntax=vb]Sub Rozdziel_Na_Kolumny() Dim rRngData As Range Dim rRngSearch As Range Dim rRngCrit As Range Dim lLstDataRw& Dim colParametr As Collection Set colParametr = New Collection Application.ScreenUpdating = False lLstDataRw = Cells(Rows.Count, 2).End(xlUp).Row Set rRngData = Range(Cells(1, 1),...
W takim razie spakuj i wystaw tutaj.
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 5 Then nw = Sheets("Logistyka").Cells(Rows.Count, "A").End(xlUp).Row + 1 If nw = 2 Then nw = 1 w = Target.Row Range(Cells(w, 1), Cells(w, 5)).Copy Sheets("Logistyka").Cells(nw, 1).PasteSpecial xlPasteValues End If End Sub [/syntax] Kod na tyle prosty,...
Tak odwołanie bezwzględne ale zliczane na podstawie pól ((WIERSZ()-2) / 49) * 5. Przejdź do swojego pliku, usuń wiersze od 49 w dół (ten drugi formularz) zmień formuły według tego co napisałem, zaznacz formularz łącznie z 49 wierszem i przeciągnij w dół.
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Coś tam naskrobałem. Zauważ, że jeśli kontrolki są nazwane, wszystko idzie łatwiej. Ustaw sobie kolejność tabulatora. Zrobiłem tylko pierwsze cztery.
Czy uruchomiłeś kod w pliku z załącznika, czy w swoim skoroszycie? Jeśli w swoim skoroszycie, to czy dodałeś arkusz o nazwie "Ostatni"? Te komunikaty wskazują, że ze skoroszytu próbuje się usunąć wszystkie arkusze. Wtedy przy usuwaniu ostatniego pojawiają się takie komunikaty.
W załączniku, wartość z D41 jest przenoszona do AK1
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
załączyłam dokument chodzi mi o jednorazowe uzupełnienie całego wiersza, tj kolumny opis robót jedn.miary i cena
W kolejnych arkuszach pojawiają się dane dla dwóch pierwszych klientów. No pewnie, że tak będzie, bo tak to opisałeś. Domyślam się, że chodzi o przenoszenie do arkusza klienta, kolumny A z 'Target' i kolumnę klienta... [syntax=vb]Sub ArkuszeKlientow() Application.DisplayAlerts = False Dim Klient As String ok = Sheets("Target").Cells(1, Columns.Count).End(xlToLeft).Column...
W Excelu prawie wszystko jest możliwe :) Najprościej użyć WYSZUKAJ.PIONOWO(). Załączam proste rozwiązanie, dodałem wybór z listy towaru w rozliczeniu i zmianę miesięcy rozliczenia. Na przyszłość załączaj pliki excela jak wzór, nie trzeba ich tworzyć od nowa. Nie wiem tylko czemu masz to w dwóch skoroszytach, w jednym byłoby prościej.
[syntax=vbscript]Sub Niepuste() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If Left(Cells(x, 1), 13) = "Pomieszczenie" Or Cells(x, 1) <> "" And Cells(x, "F") > 0 Then y = y + 1 Rows(x).Copy Sheets("Arkusz2").Cells(y, 1) End If Next Sheets("Arkusz2").Select End Sub [/syntax] Masz błąd w nazwie pomieszczenia...
Jeżeli wprowadzisz odpowiednią kolumnę pomocniczą w arkuszu głównym :spoko: to pożądany efekt można uzyskać formułami jak na zrzucie 927750 Całość w załączniku. 927751
np. dane w kolumnie "O" zawsze po aktualizacji są wieksze od zera (jest to suma danych z kilku wierszy)..
[syntax=vb]Sub Etykiety() Dim x As Long, y As Long x = 2 y = 1 Sheets("Baza towarów").Select While Cells(x, 1) <> "" Sheets("Ceny").Cells(y, 1) = Cells(x, 1) Sheets("Ceny").Cells(y + 1, 1) = Cells(x, 2) Sheets("Ceny").Cells(y + 3, 1) = Cells(x, 3) Sheets("Ceny").Cells(y + 1, 3) = Cells(x, 9) x = x + 1 y = y + 5 Wend End Sub [/syntax] Drugą kolumnę...
To chyba masz rację ;). Zacznij od podstaw. End Sub kończy całe makro, więc powinno być ostatnim wierszem. [syntax=vb] Sub Przenies() Dim Wzorzec, Przebieg Wzorzec = " " Przebieg = 2 Do While Wzorzec <> "" Wzorzec = Cells(Przebieg, 5).Value If Wzorzec = "Wstrzymany" Then (tu działanie) End If Przebieg = Przebieg + 1 Loop End Sub [/syntax] Z grubsza...
Czy da się to jakoś ustawić? Myslim ze tak...
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
Chyba niedokładnie oglądałeś film tam wszystko widać jak na dłoni. Problem rozwiązany, obszar pola wyboru minimalnie nachodziło na inną komórkę i dlatego nie przesuwało się w trakcie rozszerzania.
To chyba nie przejdzie. Transponuj obraca jedynie zakres. Formułami można Np w taki (załącznik) sposób (nie jestem pewien, czy zgadza się układ wejściowy).
Najprościej byłoby z wykorzystaniem kolumn pomocniczych (załącznik) P.S. Formuły są "kopiowalne" w pionie i w poziomie, nie będzie więc problemu z kolejnymi (w przykładzie) miastami.
Witaj, wszystko jest możliwe [syntax=vb] sub Idziemy() Dim tbl As Range Set tbl = Sheets("Jacek").Range("W:W").Cells If Application.Intersect(ActiveCell, Range("a1:k500")) Is Nothing Then MsgBox "Bledne odwolanie - wybierz poprawna komorke" Else r = Application.Match(ActiveCell, tbl, 0) Application.Goto tbl(r) End If end sub [/syntax]
W załączniku.
chodzi o to, żeby z 1 i 2 (i innych których nie ma we wzorze) arkusza z danej kolumny konkretnego pracownika na ostatni arkusz przenosiły się w osobną tablkę Jeżeli posiadasz Excela powyżej wersji 10 :?: to tego typu efekt jak na zrzucie 1047238 możesz uzyskać poprzez utworzenie tabelki połączonej (łącza z danymi z tabelek "kierunkowych" np w ukrytym...
To byłoby bardziej przejrzyste, jeśli było przykładem te dwa arkusze, dwa "poszukiwanych typy" do arkusza docelowego (będzie w nim maksymalnie 8 takich kolumn I arkuszu docelowym: ABCDE To jest tylko pięć
W kodzie arkusza [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Target.Resize(, 2).Interior.Color = vbRed Sheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Resize(, 2).Offset(1) = Target.Resize(, 2).Value Cancel = True End If End Sub[/syntax]
Chciałabym aby w arkuszu 2 pojawiały mi się automatycznie wszystkie wartości, które w arkuszu jeden mają brak lub może, bez wolnych komórek wszystko ma się dziać w poziomie oczywiście za pomocą funkcji załaczam załącznik Bardzo proszę o pomoc[/img]
wpisuję kolejno w 1a imię 1b nazwisko 1c nr tel Zawsze w tej samej komórce?(wiersz 1) Dodano po 16 w kodzie arkuszu (dane wprowadzone ) [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim rekord As Range, baza As Range Set rekord = Range("A1:C1") Set baza = ActiveSheet.Next.Cells If Intersect(Target, rekord) Is Nothing Then Exit Sub...
Mam następujący problem. Chciałbym aby Excel przenosił całe wiersze do nowego Arkusza jeżeli w kolumnie E pojawi się wartość. Poradziłem sobie z problemem na ten moment tak, że stworzyłem formułę <jeżeli> w kolumnie A która daje wartość "1" jeżeli wpiszę ilość w kolumnie E (większą niż 0). Potem całość filtruje (wyrzucam wartości "0" z kolumny...
A może nie musisz tego przenosić do innego arkusza, a wystarczy zastosować autofiltr ?
Dzień dobry, Chciałabym przenosić przefiltrowane dane z kilku arkuszy do jednego. Tak jak w załączonym pliku, chcę aby z arkusza1, arkusza2 i arkusza3 przenosiły się odpowiednio osoby, przedmiot zamówienia i stan zamówienia, ale tylko dla wybranych osób (Zosia, Jakub, Maciej). Czy jest to wykonalne? Jeśli tak, to czy istnieje możliwość aktualizacji...
nie potrafię sobie poradzić aby odpowiednio przekształcić zaproponowane rozwiązania na potrzeby mojego pliku To nie kwestia "nie potrafienia", to kwestia Microsoft'u. Chodzi o nazewnictwo zakładek. Nazwy zakładek do hiperłącza poprzez funkcję "HIPERŁĄCZE" nie mogą posiadać odstępów, ich nazwa musi być "jednociągowa", tzn. taka zakładka nie może się...
[syntax=vb] Sub MojeKopie() Dim r&, myCopy As Boolean slowa = Array("Period", "Account", "Terminal") For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row myCopy = True For Each slowo In slowa If Cells(r, "A").Text Like "*" & slowo & "*" Then myCopy = False Exit For End If Next If myCopy Then Cells(r, "A").Copy Cells(r, "C") Next End Sub [/syntax]
Ma kolega szczęście, że się akurat nudziłem... Ale jakieś drobne modyfikacje proszę już sobie samemu wykonać.
Witam serdecznie, chciałbym nauczyć się w jakimś stopniu obsługi komend excela. Próbuję zrobić zależność, w której dane faktury są przenoszone pomiędzy arkuszami, jeśli spełniają jeden warunek - "NIE" są zapłacone. Jak można by było to rozwiązać w inny sposób niż tabela przestawna i odświeżanie przy każdym dodaniu kolejnej faktury? W załączniku plik.
Excel'owska :) Zakładając, że lista (może być z "dziurami") jest w A1:A1000 [syntax=n]=ADR.POŚR("A"&SUMA.ILOCZYN...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Z VBA wyszło mi coś takiego.
Naprawdę nie chcesz pójść w tym kierunku? Zobacz w pliku - Arkusz1 komórka A2 - wybierasz użytkownika i resztę danych przenosi ci się samo. Szybko, prosto i bez makr.
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
Witam! Potrzebuję pomocy z odpowiednim zaprogramowaniem funkcją lub przy użyciu VBA pliku z "planem produkcji". Potrzebuję aby w momencie otworzenia skoroszytu o nazwie plik2 sprawdzało w skoroszycie plik1 które wiersze powinny być już zakończone (czyli w przedziale kolumn D:R powinny występować jedynie dla dni poprzedzających dzień otwarcie pliku,...
Musisz odpowiednio sformatować komórkę docelową. Formuła wstawia wartość a nie przenosi formatowania.
Dziękuję. Makro Pana JRV spełnia to o co mi chodzi, niestety przy zmianie samej daty od razu pojawia się ona na samym dole, gdy przypiszę do tej daty zysk pojawia się ta sama data na dole z nowym zyskiem. Założenia są takie, że nie może być dwóch takich samych dat. Więc niezależnie od zmiany zysku powinien się on zmieniać tylko w przypisanej dacie....
To może jaśniej - mam makro, którego zadaniem jest scalenie dokładnie 9 plików excel do jednego zbiorczego pliku. Makro scalające jest powyżej. Może i koślawe ale działa :) Do tego makra chcę dorzucić filtr, mający za zadanie scalić dane od - data początkowa, do - data końcowa. Obie daty, mogę wprowadzać w odpowiednie komórki w arkuszu, przed generowaniem...
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_zzz Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli For, gdzie licznikiem będzie rozmiar tablicy. Wynik można...
Witam. Mam dwa pliki - jeden z kartami pracowników : data, czas pracy, miejsce, sprzęt . Kolejny plik jest z "robotami" czyli koszty poszczególnych "robót . Chce aby z karty pracowników automatycznie przenosił się zużyty sprzęt do poszczególnych robót. Próbuje z licz jezeli i adres pośredni ale średnio mi to wychodzi . proszę o pomoc.
Witam Dim wksz As Worksheet, wksdo As Worksheet - definicje były? Baza/Arkusz1 i znajdują się w nim dane do skopiowanie Formuły są tam? ale jak w arkuszu Baza jest dużo wierszy około ile?
Ale to są zupełne podstawy Excela! Najprostsze odwołanie, opisywane w pomocy zaraz po "Witamy w programie Excel" ;) Pytanie nie ma nic wspólnego z tematyką działu, więc przenoszę do właściwego.
Może takie rozwiązanie zadowoli
Mam taki sobie kod... A gdzie reszta? Bo ten kawałek (tak mi się wydaje, a mogę się nie znać) nic nie kopiuje ani nie przenosi.
Dodałem do każdego makra linijkę kodu który podałeś i nic. Zauważyłem że Excel odnajduje i przenosi, ale tylko w (w tle), kursor we wskazane komórki. Jednak ich nie wyświetla. W załączeniu plik z dodaną linijką kodu którą zaproponowałeś.
Witam utworzyłam korespondencję seryjną w Word na bazie pliku excel. Dane ładnie się przenoszą z małym wyjątkiem. W excel mam wpis powstający na bazie formuły. Na potrzeby graficznej prezentacji jest on łamany funkcją znak(10). Zawartość tej komórki jest przenoszona do Word jako jedna linia w miejscu gdzie w excel znajduje się Znak(10) w word pojawia...
Ok, dziękuję - właśnie o to mi chodziło. Mam jeszcze pytanie jak zrobić, aby po naciśnięciu na "tak" nie przechodził mi kursor automatycznie do zakładki podsumowanie tylko zostawał na swoim miejscu w arkuszu info? W tym makrze co napisałeś niestety mi się przenosi.
Witam, Jestem raczkująca jeśli chodzi o VBA a może nawet poziom niżej :) Mam kolumnę danych, którą muszę podzielić na części (Arkusz1) tak, aby w końcowym efekcie w wierszach znalazł się ID (AA, BB, CC, ....) i dane z każdego dnia miesiąca (II). Nie mam "mocy" na stworzenie kodu, coś świta, że trzeba będzie tak napisać kod aby przenosiło po 32 (ID =31...
Zastosuj zakresy danych i formułę z sumą iloczynów (zwykłe Enter) lub sumą (Ctrl+Shift+Enter) [syntax=text]=SUMA.ILOCZYNÓW(MOD(C5:BK5-... komórek [gg] lub lepiej [g], bo po co te zera podwójne? Oczywiście jak będziesz to przenosił w inne miejsce, zwróć uwagę, czy liczyć kolumny parzyste, czy...
No cóż, drygu do formułek to takiego nie mam jak kolega Prot , natomiast makrem to tak, jak poniżej w pliku, no i takie zgrabne to to nie jest .. : / ... : ) ... 907466 Starałem się uwzględnić tutaj "stan nieustalony", tzn. sytuację kiedy " tak dostawy2 " może znajdować się albo pod " tak dostawy1 ", albo po przekątnej od niej. 907467 Poza tym, lepiej...
Jasne, że tak można tylko nie bardzo wiem jak to potem wszystko powiązać. Gdybym np wpisywała w każdej zakładce dla każdego pojazdu datę tankowania itd to jak to zrobić żeby excel automatycznie przenosił to do zakładki "dystrybutor" - zużycie paliwa (wtedy niepotrzebny by był arkusz "razem dział"). W ogóle to muszę zrobić tak, że zakup paliwa musi schodzić...
Troszkę mi się zeszło z odpowiedzią, ale chwilowo zająłem się innymi sprawami. Jak wcześniej wspomniałem moim założeniem jest stworzenie makra/funkcji która po kliknięciu na na pole obok "Współczynnik częstotliwości [FM]" przenosi nas do tabelki znajdującej się w arkuszu 2. Po kliknięciu na odpowiednią komórkę w tabeli danych makro/funkcja zwraca wartość...
Proszę, Po zastanowieniu, komórki niepowtarzające się ze ZMIENNY mogłyby się przenosić do KLAS.
Witam, Spróbuję opisać problem. Wpisuję formułę do komórki odnoszącą się do komórki w innej zakładce tego samego skoroszytu np.: ='bilanse miesięczne'!B22. Teraz, ponieważ jest sporo takich komórek chętnie przeciągnąłbym w dół formułę do kolejnych komórek ALE; przeciągając Excel domyślnie przenosi formuły pionowo czyli B23, B24, B25 itd. Niestety odniesienia...
Jeśli to jest nowy Excel, to najlepiej sprawdzi się tu nowa funkcja WYBIERZ.KOLUMNY. Tylko dlaczego ta ostatnia kolumna ma nagłówek "n", a nie liczbowy? To jest arkusz kalkulacyjny, w którym dane powinny być przede wszystkim liczbowe. Teksty pomieszane z liczbami, to jest dodatkowy kłopot. Co oznacza to "n"? Nie można go zastąpić liczbą? Tu można sobie...
Udało mi się dopasować pliki i przetestować. Za każdym razem pojawia mi się komunikat - w schowku jest duża ilość informacji, czy chcesz później wklejać je do innego programu. Może źle dopasowałem? nie mam wprawy w excel. Czy można wprost przenosić dane bez np formuł. Tzn w każdym pliku jest lista rozwijana z RM (wybór z kilkunastu opcji), czy też wyszukaj...
Taki szybki przykład (w załączniku). Kolekcje są gotowe dla wszystkich kolumn, wystarczy tylko poukładać i przepisać do "z góry upatrzonej", nowej tabelki. Sortowanie "na żywca" z rejestratora (E2007), więc jeśli się wysypie, to najpierw posortuj tabelkę wg instrukcji podanej przez marek003 i usuń linijkę (zaapostrofuj) w module1...
Temat zamykam
Nie bardzo rozumiem, gdzie w tym jest ukryty problem. Zerknij na arkusz i napisz co jest nie tak:
Z wcześniejszego twojego postu: Rozumiem że ma się kopiować w te same wiersze w arkuszu2 (jeżeli od początku [pierwszego wiersza] arkusza 2 to kod będzie trochę inny.) [syntax=vb]Sub cos() Dim x As Integer For x = 12 To 111 If Worksheets("Arkusz1").Cells(x, 16) <> 0 Then Worksheets("Arkusz2").Cells(x, 2) = Worksheets("Arkusz1").Cells(x, 2) Worksheets("Arkusz2").Cells(x,...
Moja propozycja - kod do umieszczenia w module arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Or Target.Value = "" Then Exit Sub Select Case Target.Column Case 1 Call UtworzFolder(Target.Value) Case 2 If Target.Offset(0, -1).Value <> "" Then Call PrzeniesFolder(Target.Offset(0, -1).Value)...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Błąd polega na tym że w kolumie A wszystkie dane masz jako tekst (mimo że wyglądają na liczbę) natomiast w kolumnie C masz większość danych jako liczbowe. Zaznacz wszystko i odznacz wyrównanie do prawej. Jeżeli żadna z opcji formatowania nie zostanie włączona to tekst jest wyrównywany do lewej krawędzi a liczba do prawej. Mimo że wyglądają tak samo...
Użyj opcji formatuj jako tabelę. Jako Lp. wpisz formułę (komórka powyzej)+1. Formuły w skoroszycie sformatowanym jako tabela będą się automatycznie przenosiły do nowych wierszy. Prosty przykład.
Link przybrał postać: słupy%20+%20oprawy.pdf%20%20#page=4 Link działa, ale niestety nie przenosi na konkretną stronę :(
I jeszcze chyba w Excelu poniżej 2007 jeżeli() w jeżeli() nie może być więcej niż 7. Więc może być kłopot z ostatnią 8 kolumną. (Choć jak dla sprawdzenia wklejam kolejne "jeżeli" to nawet siódmego "jeżeli" mi nie pozwala wstawić informując o błędzie. :( - sześć jest jeszcze ok. W 2007 i wyżej jest chyba do 15
Myślałem, że filtr będzie z reguły założony, a zdejmowany tylko na chwilę, żeby dokonać zmian. Ale jeśli wolisz, żeby również stan wyłączenia filtra był przenoszony na inne arkusze, to sprawdź drugi wariant.
Przeniesienie nie wchodzi w grę, bo to nie jest jeden arkusz, tylko kilkanaście, które są powiązane ze sobą makro... Osiwieję... Dodano po 6 Chyba nic nie wymyślę, zacznę przenosić powoli wszystko. Dzięki...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Dzień dobry, Niezbyt to jasne. Czym różnią się te 2 arkusze? Na jakiej zasadzie miałyby być uwzględniane te zmiany, czy chodzi o powiązanie funkcjami, czy o dosłowną kopię? Czy te arkusze są tam na stałe, czy są okresowo przenoszone gdzie indziej? Czy poszczególne wiersze (pracownicy) są zawsze w obu arkuszach w tym samym miejscu, czy mogą być w różnych...
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
A tak sprawdzałeś? Dziękuję za pomoc - ale niestety hiperłącze nie przenosi mnie do odpowiedniej komórki/kolumny. przenosi mnie na początek Archiwum
Mamy już chyba wszystkie przypadki zapisu kwoty w postaci słownej. Wszystko działa super, nawet przy prostym kopiowaniu przenosi formułę zapisu słownie. Dziękuję wszystkim za pomoc.
Bardzo dziękuje za pomoc. A gdybym chciał by taki wiersz gdy wstawiamy pracownikowi datę zwolnienia nie tylko był ukryty ale przenosił sie do innego arkusza by mieć listę zwolnionych
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Zapytam o makro co ma przenosić tylko wybrane komórki do nowego arkusza i ustawiać je w jednym wierszu. Mam już coś napisane ale nie działa. Proszę o pomoc. Kod makra: Sub zapisdobazy() ' ' zapisdobazy Makro ' Przyjmujący_zamówienie = Range("E6") ID_zamówienia = Range("E7") Sheets("Baza").Select NewRow = Range("A65536").End(xlUp).Row + 1 Range("C" &...
Prawy klawisz na checkboxie formatuj format i - właściwości - nie przenoś anie nie zmieniaj rozmiaru z komórkami
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...
Przesyłał filmik w załączniku. Nie chce działać. Wklejam do tego samego skoroszytu i rozbija dalej, maila też nie przenosi. Czy nie da się tego zrobić?
excel makro przenosi przenosi aplikacja subiekt przenosi
miękki start wiertarka dioda voltage schemat reverb
uziemienie pojazdu uziemienie pojazdu
Jak zwiększyć przyczepność paska w turboszczotce odkurzacza? Automatyczne włączanie LG Smart TV - przyczyny i rozwiązania