napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 17:52
|
|
Cytat:Dopisz coś w rodzaju:
Cells(ostatni, 19).Value = Cells(ostatni, 19).Value
to powinno zamienić formułę na wartość
Ok ale to ma być pod makro Export a jeszcze tego nie mam. |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 17:45
|
|
Dopisz coś w rodzaju:
Cells(ostatni, 19).Value = Cells(ostatni, 19).Value
to powinno zamienić formułę na wartość |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 17:34
|
|
Cytat: Rozglądnij się w imporcie. Z mojej strony bez głębszego testowania.
Przenosi ok i zmienia ze statusu np: 19 i INNE na ZGOD i czasami i wartością dnia tez wszystko działa tylko w exporcie jak będziemy zaznaczac ze to jest status 19 to musi osuwać funkcje z kolumny kontrola za dni żeby została sama wartość to wtedy kopiuje fajnie . |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 17:19
|
|
I Una wypożyczone |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 17:10
|
|
Rozglądnij się w imporcie. Z mojej strony bez głębszego testowania. |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 16:38
|
|
Poprawione bo zapomniałem o jednej kolumnie w przycisku Dodaj |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 16:26
|
|
Już przygotowałem userform pod przycisk Dodaj UNA. |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 16:10
|
|
Cytat: Dla "dodaj Una" przygotuj nowy userform. Dla każdej wprowadzanej komórki potrzebny będzie jeden formant.
Może to być pole tekstowe, lub Combobox wszędzie tam gdzie będzie możliwy wybór z listy.
Daty w userform to ogólnie problem, można przytulić jakiś kalendarz do jej wybierania, ale znacznie szybciej wpisuje się z palca.
Ogólnie w Userform nie ma dedykowanych formantów dla liczb, dat itp. Wszystkie dane zapisywane są tekstowo. Dopiero przy zapisywaniu w arkuszu można je konwertować.
Data może być wprowadzana z palca żaden problem.
Zaraz przygotuje userform pod przycisk Dodaj una a pola dam jako tekstowe do każdej kolumny ponieważ tekst będzie wpisywany ręcznie. I po wpisaniu nie wiem czy byłaby możliwość zaznaczenia do której zakładki ma to dodać czy do WYPOŻYCZONE czy do UNA W WYPOŻYCZALNI. |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 16:06
|
|
Mam takie pytanko czy dało by się tak zrobić ze przy exporcie z zakładki WYPOŻYCZONE do Wypożyczalni była możliwość wybrania tekstu kolumny status np: na 19 i INNE. I po zaznaczeniu 19 przenosiło to do UNA W WYPOŻYCZALNI z statusem 19 i funkcja w kolumnie dni użycia by nie była liczona a jeśli wybralibyśmy status INNE to wtedy dni użycia by były liczone dalej i w obu przypadkach usuwało by wartość kolumny Nazwisko.
A przy imporcie jeśli byłby to status INNE to przenosiło by wszystko tylko zmieniało by status na ZGOD a reszta bez zmian. A jeśli byłoby to status 19 to przenosiło by do wypożyczone zmieniało status na ZGOD, w kolumnie data legalizacji podbierało by datę wtedy co to przenosimy, a w kolumnie czasookres kopiowało by wartość z kolumny kontrola za dni. I w obu przypadkach możliwość wprowadzenia tekstu do kolumny Nazwisko
Nie wiem czy za duzo nie wymagam bo się nie znam na tym czy jest to do wykonania. I czy zrozumiesz o co mi chodzi .
Co do przycisku dodaj UNA to opisze później co bym chciał żeby wykonywało |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 15:54
|
|
Dla "dodaj Una" przygotuj nowy userform. Dla każdej wprowadzanej komórki potrzebny będzie jeden formant.
Może to być pole tekstowe, lub Combobox wszędzie tam gdzie będzie możliwy wybór z listy.
Daty w userform to ogólnie problem, można przytulić jakiś kalendarz do jej wybierania, ale znacznie szybciej wpisuje się z palca.
Ogólnie w Userform nie ma dedykowanych formantów dla liczb, dat itp. Wszystkie dane zapisywane są tekstowo. Dopiero przy zapisywaniu w arkuszu można je konwertować. |
|
napisał: toczi1 postów: 75
umieszczony: 13 lipca 2016 21:49
|
|
Dobrze dzięki wielkie. To do jutra.
Jutro tez prace zaczynam o 15 |
|
napisał: Trebor postów: 1209
umieszczony: 13 lipca 2016 21:42
|
|
Gdy będziesz w okienku z procedurami wybierz z górnego lewego ComboBoxa - ListBox1
W prawym Combobox wyszukaj i wybierz procedurę DblClick
Do procedury, która powinna się wyświetlić wklej kod:Cells(ListBox1.List(ListBox1.ListIndex, 2), 1).Activate
Ten kod może być prostszy, ale na początek trzymajmy się jednego sposobu.
Na mnie już czas. Reszta ewentualnie jutro. |
|
napisał: toczi1 postów: 75
umieszczony: 13 lipca 2016 21:22
edytowany: 13 lipca 2016 21:22
|
|
Spoko zrobiłem.
Teraz dodałem przycisk Szukaj i przypisałem do niego userform3 wszystko stworzyłem zrobiłem komendę do szukania tylko nie wiem polecenia ze po znalezieniu np 3 materiałów zaznaczam 1 i przyciskam zaznacz wiersz i mi zaznacza. Luknij w pliku.
Najtrudniej będzie DODAJ UNA .
Jakies małe szkolenie i bym to lapnął szybko |
|
napisał: Trebor postów: 1209
umieszczony: 13 lipca 2016 21:09
|
|
W widoku userform2 zaznacz (jeden raz kliknij) na ListBox1.
W ten sposób w okienku Properties wyświetlą się właściwości dla tego formantu.
Zmień przynajmniej trzy:
ColumnCount na 3
ListStyle na option
MultiSelect na - a wybierz sam.
Kolory, czcionki jak uważasz.
Warto jeszcze dla UserForma zmienić Caption - wyświetla się na górnym pasku okienka |
|
napisał: toczi1 postów: 75
umieszczony: 13 lipca 2016 20:57
|
|
No to tez już zrobiłem tylko teraz jak wyszukam to w tabelce co wyszuka nie pokazuje mi tekstu z numerem seryjnym i wiersz z danymi i nie mam możliwości zaznaczenia które przenieść |
|
napisał: Trebor postów: 1209
umieszczony: 13 lipca 2016 20:47
|
|
Szybki jesteś
Module2 możesz usunąć w całości - prawoklik w okienku projektu i Remove........
W module1 skopiuj poniżej całą procedurę Sub import()
UserForm1.Show
End Sub
Zmień import na np export a UserForm1 na UserForm2
Przypisz nową procedurę pod przycisk w arkuszu.
Następnie, testy, testy, testy, poprawki i to jest najbardziej upierdliwe. Jeśli będziesz myślał, że już wszystko OK, przyjdzie Ktosiek i znajdzie ewidentną niedoróbkę. |
|
napisał: toczi1 postów: 75
umieszczony: 13 lipca 2016 20:36
|
|
Ok zrobiłem tak jak pisałeś. poprawiłem komendy w userform2 ale nie wiem jak to podpiąć pod przycisk Export. |
|
napisał: Trebor postów: 1209
umieszczony: 13 lipca 2016 20:15
|
|
Wstawiłeś moduł2, ale to nie jest właściwe miejsce dla tych procedur.
Wstaw Insert - UserForm.
Powinno wyświetlić się dodatkowo oprócz UserForm okienko ToolBox. Jeśli tak się nie stanie - wyświetl ToolBoxa z menu View.
Teraz w okienku ToolBox kliknij na np. TextBox (ab) i następnie narysuj prostokąt na UserForm. Powinno pojawić się pole tekstowe.
Postępuj podobnie dla pozostałych formantów: label, commandbutton, listbox.
Jak już ustalisz wygląd UserForm, dwukrotnie kliknij np na CommandButton. Powinieneś znaleźć się w procedurze CommandButton1_Click
Pomiędzy nazwę procedury i End Sub wklej same komendy odpowiednio je zmieniając.
Proszę pracuj na pliku z załącznika gdzie zmieniłem kolejność wklejanych danych. Mam nadzieję, że taka kolejność nie będzie wadą. |
|
napisał: toczi1 postów: 75
umieszczony: 13 lipca 2016 19:52
|
|
Cytat:Zamieść na forum skoroszyt z Twoim przerobionym makrem.
wrzuciłem ten plik z usuwaniem wiersza. A ten z exportem co próbowałem to usunąłem te komendy |
|
napisał: Trebor postów: 1209
umieszczony: 13 lipca 2016 19:47
|
|
Zamieść na forum skoroszyt z Twoim przerobionym makrem. |
|
wszystkich stron: 3
|