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...
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.
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.
Czy da się to jakoś ustawić? Myslim ze tak...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Oto makro. Pan wymienić [syntax=vb]Sub wig() ' ' wig Makro ' Rozdziela spó³ki na wig 30 i przenosi do bazy danych ' ' Klawisz skrótu: Ctrl+q ' Dim bs As Range, dane As Range, lst As Range Dim r&, rd&, rb& Set bs = ThisWorkbook.Sheets("Baza Danych2").Cells rb = bs(Rows.Count, 1).End(xlUp).Row + 1 Set dane = ThisWorkbook.Sheets(1).Range("A:O") Set...
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.
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...
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),...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
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,...
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)
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ół.
Jego przeznaczeniem jest użytkowanie przez bardzo amatorską osobę Już podpowiadam. Dla w/w osoby: "4D, 5D, 5N, 29N" ; "4d ,5d ,5n ,29n" ; "4D,5D,5N,29N" ; "4D. 5D. 5N .29N" w zasadzie wygląda tak samo. O pomyleniu literki, bo przecież można się pomylić, nawet nie wspomnę. Jeśli 15 razy dziennie nie chcesz słyszeć: "Panie kefler! Ten pana program znowu...
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.
[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
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
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...
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...
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,...
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
Dokładnie.Już robiłem wcześniej transpozycje tylko pozostał problem co drugiej kolumny(komórki). Dodano po 10 No i przy transpozycji przenosi mi formatowanie komórki (z ramką kolorem czcionką itd) a chciałbym żeby przenosiło tylko wpisaną wartość.
='C:\PlikiExcela\[Pracownicy.xlsx]Pracow...
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.
Eksperymenty związane z EKG Od dawna uważałem za interesujące rozważania o własnych systemach EKG. Szczególnie interesują mnie rozwiązania niedrogie i łatwe w konfiguracji. W tym artykule przedstawiono kilka sposobów wykorzystania tej techniki. Ale najpierw coś podstawowego: Ze względu na bezpośredni kontakt elektrod EKG z ciałem, wszystkie elementy...
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]
nie chciał bym bawić się w makro Czy w Excelu mogą migać komórki? Te dwie rzeczy nie są zgodne... ale mogą migać np. http://www.goldenline.pl/grupy/Zainteres...
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...
Dobry wieczór, Zobacz w załączniku, czy o to chodziło. Wynik zwrócony przez formułę tablicową (Ctrl+Shift+Enter), obejmującą cały zakres. Zakres danych i wyniku na razie ustawiony na 2:100 można zwiększyć w razie potrzeby. Formuła wynikowa powinna sięgać do końca zakresu danych mimo, że faktycznie wyników jest mniej. Ze względu na funkcję JEŻELI.BŁĄD...
Excel'owska :) Zakładając, że lista (może być z "dziurami") jest w A1:A1000 [syntax=n]=ADR.POŚR("A"&SUMA.ILOCZYN...
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ę...
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ść...
[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]
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.
Musisz odpowiednio sformatować komórkę docelową. Formuła wstawia wartość a nie przenosi formatowania.
Ma kolega szczęście, że się akurat nudziłem... Ale jakieś drobne modyfikacje proszę już sobie samemu wykonać.
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...
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...
Cześć, skleiłam sobie kod, który przenosi mi całe wiersze z arkusza 2 do 3, jeżeli komórka w kolumnie D jest wypełniona. Niestety nie działa on poprawnie i przy wykonaniu w pewnym momencie plik przestaje działać. Nie mam pojęcia co może być problemem proszę o pomoc. :) PS. Proszę również o wyrozumiałość co do wyglądu i jakości kodu - dopiero się uczę...
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.
excel makro przenosi przenosi makro excel przenosi aplikacja
android zdalny aparat skuteczna antena instrukcje celma
gdzie kupować przewody gdzie kupować przewody
Podłączenie halogenu w Audi A6 C6 - przewody i schematy Podłączenie lewego halogenu Audi A6 C6 2010
