Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
Są przynajmniej 2 rozwiązania: 1. drukowanie z Excela arkusza z formatką etykiet 2. powielenie wierszy w Excelu (jak w załączniku) i użycie korespondencji seryjnej w Word.
1. W załączonym pliku są łącza do innego. Scal całość w jeden skoroszyt (skopiuj arkusze), popraw odwołania, lub usuń jeśli są bez znaczenia i załącz ponownie. 2. Z czym nie możesz sobie poradzić? Próbowałeś zastosować jakieś formuły, makra?
Moja propozycja: dwie zagnieżdżone pętle... Sub kopiowanie() licznik = 1 IleWierszy = Sheets("dane").Range... For Etykieta = 2 To IleWierszy IleEtykiet = Sheets("dane").Cells... 1) For i = 1 To IleEtykiet Application.Range(Sheets("d...
Zrobiłbym inaczej: jedna etykieta, która na przemian wypełnione oznaczonymi danymi z bazy danych i wydruk. Oczywiście wymaga to makro.
no właśnie chodzi aby akceptowalne były TYLKO w kolumnie A dwa hasze a w kolumnie B 5 haszów. Ani mniej ani więcej. Bo jeżeli w kodzie kreskowym mam na jednej etykiecie właśnie 2 a na drugiej 5 to w kolumnie A nie wczyta się etykieta z 5 haszami ale za to w kolumnie B przyjmie etykietę z 2 haszami :)
Prawdą jest, że powinno się program wykonać w Accessie. Można jednakże dużo wykonać w Excelu i prezentuję mój pomysł na rozwiązanie problemu.W dołączonym pliku zamieściłem przykładowy kod do drukowania etykiet. Na stronie "Wydruk" jest przycisk uruchamiający makro. Wielkość wydruku należy ustawić w zależności od drukarki. Ustawienie obszaru wydruku...
Ciekawe makro do tworzenia kodów kreskowych EAN128 jest na stronie: http://www.walaszek.pl/blog/2006/09/16/m...
Chodzi mi o etykiety serii danych Jeśli chodzi Tobie o efekt taki jak na zrzucie :?: 1017376 To można zrealizować poprzez zmianę formatowania (np kolor czcionki) etykiety serii danych dla każdej kategorii. Przy takim rozwiązaniu jak na zrzucie każda wartość dla 4 i 5 kategorii będzie miała etykietę czerwoną :idea: Można zatem poprzez odpowiednie "rozmieszczenie"...
Który arkusz jest aktywny w trakcie podglądu ? Dlaczego właściwie do identyfikacji numeru wiersza, z którego pobierane mają być dane, służy zaznaczenie jakiejś jego komórki/komórek, czy to jedyny mechanizm, który można zastosować ? Makro aktywuje na poglądzie arkusz Etykieta. W podglądzie nie ma danych uzupełnionych z arkusza Baza oraz gubi się odwołanie.
Cześć wszystkim. Przygotowuję plik excel pod korespondencję seryjną, a dokładniej pod druk etykiet. Rzecz w tym że ilość etykiet jest różna, stąd i niektóre dane są powielane. Próbuję stworzyć makro kopiujące komórki A, B, C, F w każdym z wierszy, tyle razy jaka jest liczba w komórce H. Np. w H1 = 2 to pobiera dane z komórek A1, B1, C1, F1 i wkleja...
Witam, Na wstępie - nie jestem programistą i nie umiem programować … niestety – dlatego bardzo proszę o pomoc. Szukam rozwiązania, które pozwoli na automatyczny import danych według wybranych dat i etykiet danych, za pomocą makra w MS Excel. Załączyłem przykład „import_danych_01__18082015” - sam go zrobiłem :-) - co jak dla mnie...
Zadeklarowałeś zmienną systemową i (po mojemu) nią powinieneś się posługiwać Podtrzymuję ;) Wg mnie makro powinno (po Bożemu) mieć postać: [syntax=vb]Dim lbl6 As Control For a = 1 To 5 Set lbl6 = il1.Controls.Add("Forms.Label.1", "lblNazwa" & a, True) With lbl6 .Top = 85 + a * 10 .Left = 100 .Height = 10 .Width = 100 .TextAlign = 3 .Caption = a & "jest...
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
Spis mam w excelu Z tego to było niezbędne do rozpoczęcia. Lepiej zrobić .bat lub makro Excel? Dodano po 7 Dla .bat wystarczy kopiuję pierwszą kolumnę do pliku txt SaveAs lista.txt - bez tytułu (etykieta)
To jest to makro: Sub DataLabelsFromRange() Dim DLRange As Range Dim Cht As Chart Dim i As Integer, Pts As Integer ' Określenie wykres Set Cht = ActiveSheet.ChartObjects(1).Char... ' *********** Wyświetlenie pytania o zakres On Error Resume Next Set DLRange = Application.InputBox _ (prompt:="Zakres zawierający etykiety danych?",...
Odnośnie wyboru drukarki polecam następujące makro [syntax=vbscript]Sub Druk() ActiveSheet.PageSetup.PrintArea = "$A$1:$K$4" With ActiveSheet.PageSetup .CenterHorizontally = True .CenterVertically = True .Orientation = xlPortrait .PaperSize = xlPaperA4 .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.Dialogs(xlDialogPrinterSetup... ActiveWindow.SelectedSheets.PrintOut...
witam Potrzebuje makra, które będzie miało za zadanie uzupełnić arkusz "BAZA" pod warunkiem występowania danych w arkuszu "BAZA_ETYKIET". Jeżeli w kolumnie C arkusza "BAZA ETYKIET" wystąpi taki znak sprawy 0142-6400-0142-00000002/10, to makro ma za zadanie odnaleźć ten znak sprawy w arkuszu "BAZA" w kolumnie C, zaczynając szukać od komórki C3, w tym...
Cześć, chciałbym się zapytać czy istnieje jakaś ukryta opcja w SPSS albo skrypt do szybszego wprowadzenia etykiet wartości z kafeterii? Otóż do każdego pytania muszę ręcznie wprowadzać np. wartość "1", etykieta "zdecydowanie dobrze"; wartość "2", etykieta "dobrze"; wartość "3", etykieta "trudno powiedzieć" itd. Czy jest możliwość aby w Excelu przygotować...
Witam. Nie znam się na makrach a bardzo potrzebuję dokładnie dwóch makr. W załączniku jest plik Excela o nazwie "DANE ETYKIET", w którym znajdują się dane do dwóch plików exela o nazwach: "ETYKIETY_GŁOWNA" i "ETYKIETA_PŁYTY" Pozostałe pozostałe plik to sposób zapisywania etykiet w folderze jak makro je utworzy.(przykłady dla etykiety głównej i dla etykiety...
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)...
Można przygotować szablon etykiet w programie Word i użyć danych korespondencji seryjnej z tabela Excel. Excel makrem można uruchomić program Word i otworzyć szablon. Dane dla szablonu są przechowywane w oddzielnym pliku.
W którym pliku jest możliwość edycji kodu źródłowego Jest tylko jeden plik (dwuczęściowy - standard, ale widać powinno być tylko jeden chyba że masz włączoną opcję Show All Files w Solution Explorer. Kliknij prawy klawisz na otwartym oknie programu i "view code" (co właśnie czynisz jak widzę), następnie zobaczysz kod źródłowy. ale widzę w nich tylko...
Witam, Uprzejmie proszę o pomoc / podpowiedź. W załączonym przykładzie jest makro, które tworzy dziewięć wykresów w oparciu o dostępne dane. Mam cztery pytania i prośby o pomoc: 1.Potrafię napisać makro które usunie wszystkie wykresy (i takie jest w przykładzie - i działa) – ale nie wiem jak napisać makro które usunie wybranie wykresy: np.: jak...
Witam, mam wykres liniowy obrazujący serię danych, która co jakiś czas jest aktualizowana o koleją daną. Czy znacie kod makra, które wyświetla wartość/parametry ostatniej danej/etykiety danych? Pozdrawiam,
Rozumiem... Taki efekt uzyskasz jedynie wstawiając obrazek (ActiveX). Ale to nie jest obiekt dynamiczny. Można do etykiety punktu przypisać wartość kąta (ze zmiennej lub komórki arkusza).
...W pliku który mi przesłałeś nie wiem czemu ale nie ma żadnych przycisków do makr ... Bo i być nie powinno ... w zamyśle miało być menu " KOSZTORYS " i takie w tych " Dodatkach " widać - w teorii, jak się je kliknie, powinno pokazać coś takiego jak poniżej na drugim obrazku - wygląd w starym excelu: 838683 838684 ... Zauważyłem, że: 1. jak dodaje...
Mam do wydrukowania etykiety. Każda powinna mieć kolejny numer. Do tej pory po prostu drukowałem/kserowałem etykiety i nabijałem numery numeratorem. Czy mógłbym wydrukować je już z kolejnymi numerami - czyli jest standardowy tekst i każda kolejna strona różni się tylko kolejnym numerem ( Na każdej stronie a4 mieszczą się 2 etykiety z tym samym numerem,...
Witam, Nie mogłem znaleźć nigdzie satysfakcjonującej odpowiedzi na dręczący mnie problem makra. Mianowicie, prowadzę magazyn za pomocą excel. Wprowadzamy dane skanerem, ale przy wydawaniu, wyszukujemy konkretny numer etykiety poprzez Ctrl + F a następnie zaznaczamy kolorem żeby potem zastosować filtrowanie przez kolor komórki. Teraz chciałbym zrobić...
Witam, Dzięki - ponownie prostsza metoda okazała się lepsza ;-) - niestety nie działa, albo ja coś pokręciłem. Wpisałem x_InsideEnd = msoElementDataLabelInsideEnd x_Top = msoElementDataLabelTop - tak to też podaje niestety po wpisaniu do makra to nie działa, etykieta przesuwa się na dół wykresu. Może ktoś będzie miał jakiś pomysł. Pozdrawiam, Korek
Skoro czyści arkusz, to dochodzi do linii przed 'oExcel.Sheets(mySfrom).UsedRange.Copy'.... Wygląda na to, że nie znajduje arkusza i zgodnie z instrukcją "goni" do etykiety 'qInst'. Przejdź makro krokowo [F8], lub postaw apostrof przed 'On Error', uruchom i podaj treść komunikatu błędu.
Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....
Potrzebuję stworzyć taki algorytm/makro który będzie automatycznie dobierał zakres danych wykorzystanych do wykresu (każda taśma ma inna długość co ta tym idzie różną ilość zapisanych pomiarów) oraz tworzył wykres przebiegu walcowania. Jak to się ma do układu danych? Nie można zaimportować jedynie kolumn z danymi, a wykresy tylko aktualizować (zostawić...
dobra mam kiedyś MAciej Gnet pomógł coś ogarnąć i został plik Twoje jest ok ale chodzi o to aby nie przeskakiwało do kolejnej komórki do czasu kiedy nie zeskanuje właściwą etykiete a w Twoim pliku owszem wyskakuje Alarm ale przeskakuje do kolumny C hasło test tutaj jeszcze też nie było ustawionych poprawności danych
A na podstawie tego tematu link: http://www.elektroda.pl/rtvforum/topic31... nie dało by się czegoś stworzyć? Nie wygląda to jakoś bardzo skomplikowanie a by mi odpowiadało tylko żeby działało z drukarką etykiet Dymo Label Writer 450. Sądzę, że już prędzej na podstawie tego: http://www.excelforum.pl/topics3/ean-128...
Witam. Proszę o pomoc w napisaniu makra które będzie drukowało informacje zawarte w komórce A1 na drukarce zebra zainstalowanej w sieci na innym komputerze (drukarka drukuje etykietę z nazwą klienta zawartą w komórce A1) po naciśnięciu przycisku "drukuj nazwę klienta" a drugie makro drukuje cały arkusz zawierające pozostałe dane na drukarce domyślnej...
Można to zrobić tak: tworzysz w ZebraDesigner (ta darmowa wersja) etykietę, drukujesz do pliku. Drukarkę udostępniasz w sieci. Robisz skrót, np. net use LPT1: \\komputer\drukarkazebra W Excelu rejejestrujesz, makro, edytujesz. Open "LPT1" For Output As #1 Print #1, "linia pierwsza z pliku" Print #1, "linia druga z pliku" w mniej więcej takim czymś podstawisz...
Witam, Mam uprzejmą prośbę o pomoc (w załączeniu przykład). Szukam trzech rozwiązań: 1. Czy można sformatować kolor części wykresu w zależności czy przyjmuje on wartość „+” czy wartość „-„ ? W załączonym przykładzie Dana_2, Dana_3, Dana_4 mogą przyjmować wartości „+” (dodatnia) albo „-„ (ujemna) . wykres...
Jedyny sposób, który mi przychodzi do głowy, to stworzyć w źródle danych, obok kolumny z wartościami, dodatkową kolumnę, gdzie funkcją wyznaczasz odpowiednią literę. Potem stworzyć wykres (bez tych liter na razie), do słupka dodać etykiety danych z wartościami (wyświetlone jako liczby), a potem zaznaczyć klikając z osobna każdą etykietę z wartością,...
Ja to widzę tak: Przyciski w arkuszach 2 i 3 label="Start". Klikasz i makro kopiuje dane wg "idWewnetrzneWniosku": 1. Jeśli osoba ma status "Nie figuruje w ewidencji" do Arkusza 3 i następnie realizuje pkt.3-4 2. Jeśli <> od "Nie figuruje w ewidencji", do tabelki w Arkusz2. 3. W zależności od statusu aktywujemy arkusz 2 lub 3. Przycisk zmienia...
Super :) Dziala rewelacja, szczerze to wykorzystalem <code> On Error GoTo open_err Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0;" On Error GoTo 0 </code> I dziala. Dodano po 59 Dzieki bardzo za pomoc. Mam jeszcze jedno pytanko-...
excel etykieta drukować etykieta excel excel duplikaty makro
antena ogrzewanie tylnej szyby spawarka normy przetwornica xenon działać
simlock nokia konica minolta panel dotykowy
Najczęstsze usterki MultiTestera kondensatorów K7 Szarpanie silnika BMW F30 1.6 twin turbo na zimno