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....
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
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ł". :)
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.
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ół.
W takim razie spakuj i wystaw tutaj.
Coś tam naskrobałem. Zauważ, że jeśli kontrolki są nazwane, wszystko idzie łatwiej. Ustaw sobie kolejność tabulatora. Zrobiłem tylko pierwsze cztery.
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),...
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)
[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,...
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 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...
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
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
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).
Excel'owska :) Zakładając, że lista (może być z "dziurami") jest w A1:A1000 [syntax=n]=ADR.POŚR("A"&SUMA.ILOCZYN...
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,...
W załączniku.
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...
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]
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.
Ma kolega szczęście, że się akurat nudziłem... Ale jakieś drobne modyfikacje proszę już sobie samemu wykonać.
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...
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
Z VBA wyszło mi coś takiego.
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...
No to znowu jest kilka możliwości, można zrobić trochę kodu, który przeleci przez te komórki i jak spotka to, co am spotkać, to dopisze w jakimś arkuszu kolejny wiersz (rekord), jeżeli lista tych nazwisk jest stała to można też ich wszystkich przepisać do arkusza zbiorczego, który potratujemy autofiltrem (rozwiązanie prostsze, nie wymaga programowania).
W szkole nie mówiono nic na temat rozwiązania 'Zadanie nr 4'?
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...
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
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...
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,...
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...
Jakoś nie widzę zastosowania makra do przenoszenia z Arkusz1 do Arkusz2 niepustych wierszy. Wygląda na to, że coś się zmieniło... Opisz wiec proszę co i jak ma być.
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?
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...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
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)...
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...
Nie bardzo rozumiem, gdzie w tym jest ukryty problem. Zerknij na arkusz i napisz co jest nie tak:
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...
Temat zamykam
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.
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,...
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
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel (at)ElektrodaBot
Tak się zdarza przy przenoszeniu "projektu" na różne systemy
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...
Brakuje informacji, w jaki sposób następuje przenoszenie danych z P1 do P2.
Jakie polecilibyście rozwiązanie problemu? Podobny temat. https://www.elektroda.pl/rtvforum/topic3...
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]
Arkusz zbiera bezpośrednio dane pomiarowe z urządzenia. Zbieranie danych w programie zewnetrzym i export do excela jest rozwiązaniem mniej korzystnym, niż wstawienie danych do konkretnej komórki wskazanej przez użytkownika.
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ę...
Załącz skoroszyt aby pokazać co już masz zrobione.
[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]
Wszystko ma być zrobione w USER FORM Załącz plik z tym formularzem i przykładowymi danymi do odfiltrowania/wyszukania. Trudno wyczuć, czy najpierw filtrujesz listBox, czy kopiujesz "w locie" po... no właśnie otwiera się okno do wpisania wyszukiwanego tekstu
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...
U mnie nieco uproszczona wersja :) za to, wykorzystując kolumnę pomocniczą, z przenoszeniem...
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...
='C:\PlikiExcela\[Pracownicy.xlsx]Pracow...
Witam serdecznie, Czy ktos moglby mi pomoc w napisaniu makra dla excel 2007. Potrzebuje stworzyc chyba prosta baze danych, ale niestety przekracza to moje umiejetnosci znacznie. W zalaczniku przesylam plik - jak chcialabym zeby to dzilalo Algorytm Artusz 1 (WPIS) 1. wpisuje dane w zoltym polu (kolumna B2:B6) 2. Dopiero po wciśnięciu przycisku dane są...
Mam dziwny problem podczas pracy w programie EXCEL. Pracuję często na wielu otwartych plikach, kilkoarkuszowych. No i najczęściej jest tak, że wpisuję któreś z kolei dane do komórki i ku mojemu zdziwieniu (w sumie to już mnie to przestało dziwić) po zatwierdzeniu przyciskiem Enter, nagle zostaje przeniesiony do innego pliku. No i po takiej akcji, po...
Moim osobistym zdaniem - VBA w Wordzie jest mało przyjazne i intuicyjne. Jeżeli już - to kod w VBA i przenoszenie do odpowiednich zakładek w Wordzie. A na pewno formularz musi być w Wordzie? Nie da się zrobić tego finalnego formularza również w Excelu?
Są dwa typy userów - administrator który widzi wszystkie arkusze i user szeregowy, czyli sprzedawca (Basia/Ania itp), który widzi tylko swój arkusz z klientami oraz arkusz z raportami. Po uruchomieniu skoroszytu Excel pyta o login i hasło, na tej podstawie makro ukrywa niektóre arkusze, zależnie od tego kto się zaloguje. Arkusz z klientami "wolnymi",...
Witam, w załączonym pliku nie działa wyszukiwanie pionowe dla Arkusza "DANE". Chcę pobrać dane z arkusza "DANE" do arkusza "POBIERZ". Zakres wyszukiwania, arkusz "DANE" (tabela) B1:K1000, pobieranie danych z 4 wiersza do arkusza "POBIERZ". Z góry dziękuję za sugestie.
Jak usunąć podział strony po drukowaniu? Podzial reczny sie usuwa tak jak to opisali w podpowiedziach, http://office.microsoft.com/pl-pl/excel-... ale podzial automatyczny zostaje. Jak zlikwidowac te krechy??
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.
Excel NIE JEST i nigdy nie był / nie będzie narzędziem do develomentu oprogramowania
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Temat do zamknięcia
Wiele opisów dotyczących kopiowania danych w Excelu znalazłem tutaj: http://forum.idg.pl/excel-makro-do-przen...
Ostatecznie odpuściłem to sobie. Znalezienie rozwiązania zabrało mi zbyt wiele czasu.
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Pliki bazy TERYT są w formacie XML a Excel przecież je obsługuje, po co ma przenosić.
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Która linia w kodzie jest podświetlona? P.S. Poprawka w kodzie, ale nie mająca związku z tym błędem. [syntax=vb]Sub Integruj() For Each sht In Sheets nw = Sheets("Zbiorczy").Cells(Rows.Count, "A").End(xlUp).Row + 1 If sht.Name <> "Zbiorczy" Then sht.Select Range("A1:A3").Select Selection.Copy Sheets("Zbiorczy").Select Cells(nw, 1).Select ActiveSheet.Paste...
Witaj. Sama funkcja "znajdź wszystko" nie ma (przynajmniej w wersji Excela, której używam) funkcji umożliwiającej kopiowanie czegokolwiek. Natomiast Excel umożliwia napisanie makra, w którym da się zdefiniować dowolne czynności, w tym również porównywanie ze wzorcem oraz kopiowanie czy przenoszenie zawartości komórek.
A możesz trochę zmienić opcję wykresu tzn. W opcji etykiet wybierz "wartość" (nie "wartość procentową") a w drugiej "zakładce" liczby zaznacz "połącz ze źródłem". Wtedy będziesz miał ten format który masz w komórce i nie powinno nic przy przenoszeniu zmieniać. Sprawdź mój plik na paru innych kompach.
Wielkie dzięki za odpowiedź. Przed chwilką znalazłem problem. Komórka z której wychodzi A1 nie była importowana z innego programu i miała wartość "XX,XXX mm". Więc trzeba było pozbyć się tego mm. Zrobiłem to w sposób: =LEWY($G2;SZUKAJ.TEKST(",";$G2)-1) Co spowodowało, że nasza wartość nie była rozpoznawalna jako liczba. Wystarczyło stworzyć komórkę...
Witam, Poszukuje pomocy, mianowicie próbuje znaleźć rozwiązanie, aby były wykonywane automatycznie następujące czynności: -przenoszenie podsumowań kolejnych dni z jednego arkusza do kolejnych pustych pól arkusza z danymi archiwalnymi. -czyszczenie pól w arkuszu z danymi i zmiana dat w nagłówkach na te z danego miesiąca -przenoszenie danych z konkretnych...
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...
Temat zamykam. Wykorzystałam kod luzika z postu Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych Działa :)
Nie, tak to już nie chcę. Chodzi mi głównie żeby ostatnia liczba zamieniała się na 9.
Niestety nie wiem jak to zrobić inaczej. (oprócz przenoszenia danych do nowego arkusza).
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
Dzięki, a masz może pomysł na przenoszenie wartości, które przedstawiłem post wyżej ?
Mam problem z przenoszeniem danych z bazy do innego arkusza. Dla danych typów produktu muszę przenosić specyficzne dane o wszystkich transakcjach które ich dotyczą. Manualne wycinanie z filtrowanej bazy danych jest bardzo czasochłonne i próbuję sobie to usprawnić. Słabo ogarniam VBA więc w tej chwili robię to formułami (próbowałem na różne sposoby),...
jesli w jednej komorce masz juz wpisana formule a chodzi Ci o uzupelnienie, to musisz przeciagnac w dół. (zaznaczyc tą jedna uzupelniona komorke i w jej prawym dolnym rogu pokaże sie krzyzyk i trzymajac lewy przycisk myszki lecisz w dol) Dodano po 2 chyba ze z poprzednich arkuszy zaznacz wszysko i skopiuj. nie wiem czy to musi byc zrobione koniecznie...
W załączniku, wartość z D41 jest przenoszona do AK1
Kiedys miałem podobny kłopot z przenoszeniem danych z matcada do exela. rozwiązałem to za pomocą programiku w c++, który jak wykrył kropke w danej liczbie zamieniał ją na przecinek. w VB można tez napisac procedurke która będzie sprawdzac czy w liczbie jest przecinek czy kropka i zamieniac na przecimek. Jak znajde w moim bałaganie to podeszle listing...
Kopiujesz tylko jedną komórkę CELLS(,,,) , kopiuj RANGE(CELLS(... Tu masz podpowiedź jak to zapisać [url=https://learn.microsoft.com/en-us/o... np. Range(Cells(1, 1), Cells(10, 4)) Range(komórka początku zakresu, komórka końca zakresu)
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.
Wszystko działa prawidłowo tylko tych danych mam dość dużo bo około 90 komórek do przeniesienia do dwóch arkuszy. Jestem jeszcze na początkowym etapie a działanie makra zaczyna się dość mocno wydłużać. Excel nie jest i nigdy nie był uważany przez Microsoft za narzędzie do developmentu oprogramowania
Argument "tblList" to nazwa zakresu w tej "drugiej" tabeli? Po drugie: dlaczego tak komplikujesz? Jeśli funkcja arkuszowa to (pojedyncze) CountIf . Ale prościej byłoby wykorzystać Range.Find i jeśli błąd, to znaczy że nie ma... Hmm, patrząc na na to SUMA(SUMA.JEŻELI * Coś_Tam)), nie jestem pewien czy dobrze rozumiem. Na pewno chodzi o warunkowe przenoszenie/kopiowanie?
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
excel przenoszenie danych przenoszenie makra excel excel makro przenoszenie
państwowa inspekcja modem arris dostęp bezpieczniki klatce
generator chloru generator chloru
Automatyka do kotła podłogowego Protherm – wybór regulatora eBUS, sensoHOME, VRC 720, MiGo Link Wymiary idlera do magnetofonu Unitra ZRK M9115 – rozmiary, zamienniki, regeneracja