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...
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
Temat zamykam
B100 też się zmieniało ale nie opisałem tego bo w moim przypadku nie miało to znaczenia To wiem bo się powinno zmieniać. Podałeś więc nieścisłe informacje, które (w najgorszym przypadku) mogły świadczyć o niewłaściwym działaniu programu. :D
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]
Cześć. Rozwiązanie okazało się banalne. Aby działało w excel należy włączyć Tools-> references: Visual Basic For Application Microsoft Excel 16.0 Object library OLE Automation Microsoft Office 16.0 Object Library Microsoft Forms 2.0 Object Library Microsoft Word 16.0 Object Libraty Zamykam wątek
Wpierw po pierwsze secundo jeśli chodzi o primo , to otagowałbym kod, bo jak na razie to jest wiersz typu "elegia do makaronu lewo-płasko-zaś-prawo-strzępionego" ... :) , a następnie pozmieniałbym kolejność poleceń, aby uniknąć skoków koniowatych-szachowych i zarazem aby skrócić kod. Następnie, albo lepiej bym opisał co chcę osiągnąć, albo załączyłbym...
Na Excel2007 działa dobrze, 1.3 sek. (góry dwa przyciski) jeden warunek: to nie działa [syntax=vb]' .ThemeColor = xlThemeColorAccent6 ' .TintAndShade = 0.599993896298105 ' .PatternTintAndShade = 0 [/syntax]
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
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...
Temat do zamknięcia
Jeśli masz Excela 2010 lub nowszego to można to zrobić w Power Query bez makro
Wiele opisów dotyczących kopiowania danych w Excelu znalazłem tutaj: http://forum.idg.pl/excel-makro-do-przen...
Przerób sobie to makro:
Jest. Mało tego, masz wybór: formuła w docelowej komórce, lub makro.
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ą...
A musisz do tego wykorzystywać makro? Nie wystaczą zwykłe funkcje excela? Przy okazji zamieść jakiś przykład z paroma danymi.
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
I co my mamy niby z tym zrobić? Załącz arkusz, to pomyślimy... Makro do tego to kilka linijek...
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.
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,...
Przecież nie pisałem "macie mi to zrobić" tylko "czy można prosić" A ja zakończyłem zdanie uśmieszkiem.:) Co Ci nie działa z wysyłaniem. Pokaż proszę makro, które wysyła.
Tak, zawsze wpisując do tych samych pól w arkuszu zostaje mi baza przyjęć towaru od klienta. Całość ma wyglądać w ten sposób mam pierwszą stronę w arkuszu wypełniam wyżej wymienione pola zawsze te same 1a 1b i 1c i klikam drukuj drukuje mi się potwierdzenie pobrania sprzętu do naprawy a wszystkie dane zostają zapisane w drugim arkuszu kolejno 1,2,3...
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...
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....
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)
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,...
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
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
Makro działa prawidłowo dopóki nie przeniosłem go do makr osobistym, z uwagi na to, że jest mi potrzebne do przenoszenia arkuszy z innych skoroszytów. Niestety, po przeniesieniu, pojawia się wcześniej pokazany komunikat i makro się zatrzymuje. Oczywiście, tak jak wskazujesz, w tych swoich skoroszytach mam dodany arkusz o nazwie "Ostatni".
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...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Application.Run "Personal.xlsb!przenoszenie_czystych_dan... <------------------------------------... Plik = Dir() x = x + 1 s.Close True Wend Set s = Nothing Set Ex = Nothing i = MsgBox("Wykonano działania na " & x & " plikach.", vbInformation, "Informacja") End Sub [/syntax] Niestety makro które próbuje wykonać w tym...
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 :!:
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 Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Dziękuję bardzo. Naniosłem drobną poprawkę w związku z przenoszeniem i wydaje się że wszystko działa tak jak chciałem, Mam jeszcze pytanie. Która zmienna w kodzie odpowiada za zakończenie zakresu w przypadku wystąpienia 0, pustej lub ND w kolumnie E brudnopisu. Ew. jak określić na tą zmienna w przypadku wystąpienia tych trzech wyrażeń. Wyrażenie i=4...
Chyba tylko makrem. Gdyby było odwrotnie (wpisujesz pracownika w wykazie) i przy dodatkowej kolumnie dotyczącej działu i kolumnie pomocniczej - można by było spróbować bez makr.
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko działa. Zaznaczam że umowy E/2121... i podobne wylądują...
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.
Kilak kolejnych IFów działa, wcześniej chyba gdzieś w złym miejscu je wstawiałem i makro się wywalało. Albo End If w złe miejsce lądowało. Arkusz1, Arkusz2 podałem jako przykładowe nazwy kodowe arkuszy. Nadałem własne, więc chyba lepiej wpisać w makro np Arkusz1 czy wksUser1, niż podawać nazwę arkusza "KLIENCI_AGNIESZKA"? Wypróbuję jeszcze "If Arkusz1.Cells(i,...
A jak bez zalacznika, co najmniej kodu makra?
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....
Chce zautomatyzować raportowanie bo raport źródłowy ma masę pozycji i mnóstwo zakładek, a zestawienie końcowe jest ubogie w stosunku do źródłowego. Samo przenoszenie do innego pliku ogarnąłem. Największy problem mam z wyszukaniem konkretnej wartości w źródle i wyeksportowaniu wartości z pozycji niżej/wyzej. Dodano po 27 Poniżej prosty Excel który zrobiłem...
Czy w otwartych skoroszytach (wystarczy w jednym) są (mogą być) makra?
Witam, Mam następujący kod do tworzenia arkusza o nazwach 1,2,3..... Sub DodajArkusz() Dim sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Dim arr As Variant strNazwa = "" intName = 1 For Each sh In ThisWorkbook.Worksheets shName = sh.Name If Left(shName, Len(strNazwa)) = strNazwa...
To już wiem, niestety nie mam pojęcia o makro... próbowałem bazować na kilku plikach z tego forum (były wątki o przenoszeniu danych) ale nic z tego. Nie ma podobnego przypadku który idealnie podpasuje do mojej wizji.
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 Z tego co ja wiem to jest z taka operacją trochę zabawy, ale przecież wszystko jest możliwe do zrobienia, pozostaje tylko kwestia czasu i pieniędzy: :roll: Zobacz Topic Simensa nr 17490711, oraz 18003417 na stronie http://www4.ad.siemens.de/-snm-013503893...
Dziękuje. Problem rozwiązano, makro działa idealnie.
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
Moje rozwiązanie - nieco inne, aby wygenerować zawartość drugiego arkusza ("Zamowienie") trzeba uruchomić Makro. [syntax=vb]Sub Makro1() ' ' Const R1 = "A1" ' pierwsza komórka nagłówka tabeli Const W = 6 ' szerokość tabeli Const Q = 5 ' kolumna z ilością produktów Const FixLP = True ' ustawić False jeśli ma kopiować LP z produktu Dim OF As Integer OF...
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.
OK, ale po co te przenoszenie do arkuszy? Nie może być w jednym? Chcesz to oglądać? drukować? kopiować do jakiejś bazy? Wyjaśnij wszytko od początku do końca od strony użytkownika. Kiedy będziemy wiedzieć jak to ma działać i co robić, to dopasuje się arkusze i interfejs użytkownika tak, aby to działało zgodnie z oczekiwaniami. Opisałeś swoją wizję,...
Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B Witaj adamas_nt Zrobiłem to troszkę inaczej, ale mocno mnie naprowadziłeś. Umieściłem to praktycznie w jednej formule ( w jednym wierszu) i działa - dziękuję Dodano po 1 A jeżeli makrem,...
Witam. Mam prośbę odnośnie stworzenia makro. W arkuszu "dane" potrzebuje wyszukać wartości powyżej 9 i poniżej -9 w kolumnie "cena". Tych kolumn "cena" jest kilka w arkuszu "dane". Gdy znajdzie takie wartości zaznaczy je kolorem na czerwono i wytnie cały wiersz i przeniesie na początek kolumny. Nie potrafię stworzyć makro z wyszukaniem takich wartości....
Nie przesadzajmy, wszystko da się powoli zrobić. Zacznijmy od tego przenoszenia z komórki do komórki. Najłatwiej będzie to zrobić jeżeli masz gdzieś stan ogółem, czyli sumę obu komórek. Wygląda to jakoś tak: 10100 20155 17107 Wtedy na poziomie tego arkusza (ważne!) wklej makro: [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If...
może wydać się dziwne, ale w jaki sposób aktywować makro, jak podpiąć pod przycisk?
Człowieku Ty jesteś jakimś magikiem normalnie!!!! dzięki - działa perfekto, jeszcze tylko jednej drobnej jak sądzę poprawki potrzebuje. W ty, nowym pliku xls przydałoby się podmienić nazwę (obecnie kopiuje z pierwotnego xlsx) na np "Arkusz1". I tak sobie myślę, przy przenoszeniu do nowego pliku xlsx kopiuje całość - a mógłby kopiować tylko to co jest...
Może takie makro zdarzeniowe w module skoroszytu (jeśli ma działać we wszystkich arkuszach) lub w module arkusza (jeśli tylko w jednym arkuszu): [syntax=vbscript]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tval Application.EnableEvents = False If Application.CutCopyMode = xlCopy Then tval = Target Application.Undo...
Witam Potrzebuje pomocy z napisaniem makra ale nie za bardzo wiem jak się za to zabrać. Jeśli ktoś mógłby pomóc byłbym wdzięczny. Mianowicie chodzi mi o makro , które wyszukuje w wierszu komórki o wartości np: 100, 200 i 300, jeśli znajdzie w wierszu wartość 100 przechodzi do pierwszej kolumny tego samego wiersza i wpisuje np "aaa", jeśli znajdzie 200...
Witam, jeżeli ktoś mógłby pomóc będę wdzięczny. Mam w kolumnie od A1 do A60000 powtarzające się wyrazy co 4 kolumnaA 1 laptop 2 dysk 3 karta 4 obudowa 5 laptop 6 dysk 7 karta 8 obudowa itd do 60000 Jak można byłoby to przenieść czy makro czy formułą z pionu na poziom, żeby wyglądało mniej więcej C D E F 1 laptop dysk karta obudowa 2 laptop dysk karta...
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ś.
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
Przy tak prostej linijce to pewnie masz otwarte w dwóch różnych instancjach. Nie bardzo wiem o co chodzi z tymi instancjami, ale jeżeli dobrze rozumiem to błąd prawdopodobnie wynika z tego, że plik "Stary" jest plikiem xls, a "Nowy" plikiem xlsx. Ponieważ operuję starą wersją Excela (2003) to chyba jedynym rozwiązaniem jest zamiana pliku Nowy.xlsx...
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...
Witam ponownie :) sorki ze odkopuje taki stary temat, ale to dotyczy wlasnie jego. Walcze z tym juz od jakichs 2 dni i nie moge sobie z tym poradzic. Chodzi o to ze makro z Excela (dzieki Waszej pomocy) zmienia pewne ciagi znakow w dokumencie Word na te podane w tabeli Excel. Makro wykonuje to w: Tekscie [syntax=vb]Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path...
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ć.
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
Dzieki wielkie. Problemem bylo zle zapisanie sciezki pliku. Powyzsze rozwiazanie jednak nie do konca rozwialo moje problemy. Mam duza ilosc plikow do przeniesienia (za pomoca powyzszego kodu) problem polega na tym iz jesli w trakcie przenoszenia pojawi sie blad to przerwie on cala operacje (nie bede wiedzial ktore pliki sie przeniosly a ktore nie).W...
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
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.
Rozumiem i postaram się pomóc w miarę swoich umiejętności ;) Widzę, że wiesz już jak wygląda edytor VBA. Otwierasz go sobie i w okienku projekt wybierasz nazwę pliku na którym będziesz pracować. Niech to będzie Twój przykładowy plik "Moje.xls". Następnie klikasz na "Wstaw >> Moduł". W nim tworzysz swoje makro: [syntax=vb] Sub Przenies() ... End...
Jeżeli tekst w komórce A2 będzie inny, musisz odpowiednio zmodyfikować/wyliczyć argumenty właściwości Characters. Pierwsza liczba oznacza numer pierwszego znaku do modyfikacji, druga ile kolejnych znaków ma mieć taki sam atrybut. Dzięki. Coś jednak szwankuje w makrze, ponieważ arkusz jest cały czas przeliczany, aż po pewnym czasie zamyka mi program....
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.
To tak na szybko. W tym wypadku nie wystarczy przenoszenie samych sum z tabeli do okienek (zapewne inne miejsce sum w arkuszu Dane ). Pamiętaj także o zerowaniu danych (pętle For przy inicjacji okienka i przy OK okienka) i wprowadzaniu danych do "żółtej" kolumny (też poprzez pętlę For pod przyciskiem OK okienka [jednoczesne z zerowaniem])
Dzięki. Kodzik działa wyśmienicie. Teraz w moim przypadku kod wygląda tak: [syntax=vb]sciezka = ActiveWorkbook.Path With Application.FileDialog(msoFileDialogOpen... .InitialFileName = sciezka & "\Dokumenty\LZH\" & NazwiskoImie .Show End With[/syntax] ...a jak do tego kodu dodać dwie informacje w przypadku jeżeli od danego pracownika nie ma folderu w podanej...
Hej! Skoro już mowa o rejestrowaniu makr. Mam Excela 2007 i aktywowałam zakładkę Deweloper, ale przycisk "Zarejestruj makra", "Makra" i "Visual Basic" nie są aktywne;( Ktoś wie o co chodzi? Post wydzieliłem i przenoszę do Komputery Software. - arnoldziq
Jestem już coraz bliżej :D Ustawiłem sztywny zakres i działa tak jakbym chciał czyli jak dodaję nową kolumnę to zakres przesuwa się o jeden w dół i dodaje się nowy wiersz. ws1.Range(ws1.(Cells(2, iCol - 1), ws1.(Cells(5, iCol - 1)) .Copy Cells(3, iCol) Jeśli natomiast ustawiam kopiowanie do samego dołu to tak...
a czy makro zapisuje się w pliku Excela? i przenosząc plik na inne komputery wszystko działa?
Dzięki wielkie. Makro działa. Super.
A właśnie miałem już pisać:) Kod się wysypał przy 'Arkusz5444'. Chodzi oczywiście o puste arkusze, bez żadnych danych. ' Też wydaje mi się lekka 'ściema' z tymi jest 3200 arkuszy Jak wiadomo w nowych 'excelach' ilość arkuszy jest zależna od ilości dostępnej pamięci ale nie więcej niż 1gb Co prawda (at)PRL makro stworzyło mi te 32k arkuszy (pustych)...
witam. mam taką potrzebę: sporządziłem dla firmy (sklep) bazę towarów wyliczającą cenę. i w drugim arkuszu format cen do wydrukowania na półkę. z tym że tych towarów będzie co najmniej 500 szt. i będzie to robione na kilka punktów.. chciałem cos takiego co automatycznie pobierze dane z pierwszego arkusza i wstawi to w odpowiednie pola w arkuszu drugim...
Pokaże moment, który nie działa na przykładzie. Pomino tego, ze mam na liście słowo ZUS to nie przenosi mi tego wiersza. Wiesz co może być zle?
Oczywiście, że ma sens. Magazyn dopiero się tworzy, a zawartość jest tylko po to, żeby sprawdzić, czy dane się dobrze przenoszą. FIFO ma być zachowane, bo taki jest odgórny wymóg i tyle.
jeżeli użyje formuły to muszę użyć formuły do każdej komórki, a chodzi mi oto żeby przenosiło do jednej kolumny np C, wiec formula odpada.
Tak, przenosząc część makr do kodu arkusza. Przykład "na szybko" w załączniku. Uporządkuj, dostosuj do własnych potrzeb.
Czyli są to listy, a przecież one "same z siebie" dodają sobie wiersze ... ? Planujesz wstawiać coś tylko ręcznie, czy może "jakimś mechanizmem" przenosić do listy/list coś z innego miejsca arkusza/zeszytu ?
No więc tak. Nagałam sobie makro, aby zobaczyć jak przeniść samą wartość. Sęk w tym, że na początku przenosiło wartości, tyle że do innej komórki. Potem się zorientowałam, że moją zmienną nie są kolumny, tylko wiersze. Po poprawieniu tego makro przenosi mnie do drugiego arkusza, ale nie wyrzuca wartości. Podsyłam plik.
Ten dodatkowy kod niestety wyrzuca błędy albo źle go dodałem (wstawiłem przed linijką "set bs"). Wczoraj i dzisiaj sporo czytałem na ten temat i nie natrafiłem niestety na nic co wyglądałoby jak metoda otwierania plików o masce jakies_slowo_XXX_jakies_slowo.xlsx. W ostateczności zrobię kilka makr do obsługi grup plików o powtarzalnych rodzajach nazw....
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...
Tak. W kolumnie LP nie wpisujesz. Makro rekordy z pustym LP przenosi do zbiorczego i wypelni LP sam 'Data wpływu' - format daty
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
Za pomocą makra mam umożliwić użytkownikowi wpisywanie do komórki a1 tylko daty , a gdy makro to wykona , ma za pomocą funkcji TEKSTOWEJ przenieść do osobnych kolumn dzień miesiąc oraz rok. Tyle ,że te daty się kodują na kod daty kiedy używam funkcji tekstowej i przenosi mi np w kolumnę dzień liczbę 46
Pliki są generowane ze skanera etykiet i chciałbym aby po podłączeniu skanera do komputera przy pomocy jednego kliknięcia w Excelu, pliki tekstowe z folderu skanera kopiowały się do arkusza a potem wszystkie pliki zostawały przenoszone do innego folderu w komputerze. Plik tekstowy wygląda tak
Przenoszę opcje do komórki I1, I2, I3, I4... w 'dzieleniu': Rows("2:2").Clear - usunie I2, bedzie od J2 wprawo
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...
Tak o to chodziło aby dane były w jednej komórce a adres przenoszony do komórki obok. A jak się włącza to makro? Proszę o krok po kroku jestem zupełnie zielony jak widać.
Chciałbym, żeby dane były automatycznie ... przenoszone do tabeli poniżej IMHO wystarczy odpowiednio zaprojektować te tabele, aby dane przenoszone były automatycznie bez żadnego przycisku i makra, a jedynie wykorzystując proste, "przeciągalne" formuły :please: 989671
No właśnie dlatego mam mały problem, bo mam okno UserForm w którym jest tylko jedna kontrolka TextBox, dlatego pytam czy mogę usunąć fokus bez jego przenoszenia do innej kontrolki (której akurat nie ma, może źle to ująłem żeby przenosić makrem). Wiem że w ostateczności mogę wykorzystać pomocniczą kontrolkę którą ukryję, ale czy mogę to zrobić bez pomocniczej...
tak powiązane. W arkuszu 4 dane ułożone w wierszu od kolumny A do D 0123456 011-6500-011-00001/11 011-6510-011-00001/11 011-6520-011-00001/11 urbanek Makro w arkuszu1 w kolumnie A (dane są jakieś) i szuka zawsze w kolumnie A w arkuszu 2 i kolumnie a arkuszu 3 i jeśli znajdzie dane to przenosi dane do arkusza 4 i wkleja w kolejności wartości przyporządkowane
excel makro przenoszenie plików makro excel przenoszenie pliku excel przenoszenie
pęknięcie matrycy samsung nadajnik niskich częstotliwości ekspres krups dystrybutor
zasilacz terkocze aopen zasilacz
Dell E198FPb - zielona dioda, cykanie, brak obrazu Electrolux 117.484 - Zespół Układu Zmiękczania Wody