ID tematu: 178
 |
Ewidencja faktur |
| Autor |
Wiadomość |
triple_6 
Starszy Forumowicz
Posty: 49
|
  Wysłany: 02-01-2007, 18:58 Ewidencja faktur
|
|
|
Witam.
Mam problem związany z makrami które kopiują wybrane elementy do drugiego arkusza tworząc BAZĘ DANYCH.
w załączniku znajduje się plik z owym projektem.
chodzi o to aby w skoroszycie 'EWIDENCJA FAKTUR' zastosować AUTOFILTR.
w pliku:
-nacisnij nowa faktura
-wpisz jakąkolwiek nazwę firmy
-wpisz, że owa firma zakupiła towar A,B,C,D w ilości 1,2,3,4 kg
-klikamy 'ZATWIERDŹ FAKTURĘ'
-w arkuszu 'EWIDENCJA FAKTUR' ukazuje nam się w punkcie 1 nasza firma, data itd.
i tu pojawia się problem ponieważ nie wiem jak przekształcić makro aby wpisywało kolejno pod sobą:
A
B
C
D
Bardzo proszę o pomoc.
serdecznie z góry dziękuję. |
|
 | ID posta:
924
|
|
|
 |
|
|
|
|
DarLeg
[Usunięty]
|
| Wysłany: 02-01-2007, 19:12
|
|
|
a załącznik?  |
|
 | ID posta:
925
|
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 02-01-2007, 19:33
|
|
|
| a coś nie załączyło :) |
|
| ID posta:
926
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 02-01-2007, 19:39
|
|
|
jest już w załączniku - przepraszam :)
faktura.rar
|
 Pobierz Plik ściągnięto 1058 raz(y) 22.48 KB |
|
|
| ID posta:
928
|
|
|
|
|
|
Tajan
Pomógł: 5633 razy
Posty: 12168
|
| Wysłany: 03-01-2007, 10:23
|
|
|
Wydaje mi się, że obrałeś zły sposób przechowywania danych. Najczęściej takie dane przechowuje się w dwóch arkuszach. W jednym zapisujesz dane faktury, a w drugim - szczegóły poszczególnych pozycji, wiążąc ze sobą dane na obu arkuszach poprzez numer faktury.W ten sposób będzie można łatwo dokonać analizy faktur jak i sprzedaży poszczególnych pozycji asortymentu towarowego. Nie bez znaczenia jest fakt, że w tak utworzonych bazach danych łatwo jest dane filtrować i sortować a także kopiować do innych arkuszy czy dokumentów.
Przykład takiego rozwiązania masz w załączniku.
faktura(1).zip
|
| Pobierz Plik ściągnięto 1306 raz(y) 21.39 KB |
|
|
| ID posta:
933
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 04-01-2007, 19:24
|
|
|
wszystko fajnie. Dzięki wielkie,
nie wpadłem na pomysł z oddzielnym arkuszem.
mam jeszcze jeden problem: teraz program nie jest "debilo odporny".
po wciśnięciu dwukrotnie (lub więcej) przycisku "ZATWIERDŹ FAKTURĘ" wszystkie dane są ponownie dopisywane do stanu jak i ewidencji.
Jakiś lek na to???  |
|
| ID posta:
1001
|
|
|
|
|
|
Trebor
Excel Expert
Pomógł: 1752 razy
Posty: 4680
|
| Wysłany: 04-01-2007, 19:38
|
|
|
Po zapisie ukryj lub usuń przycisk wywołujący makro.
Pozdrawiam |
_________________
[email protected] |
|
| ID posta:
1002
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 04-01-2007, 19:43
|
|
|
:)
i tu pojawia się problem, jestem noga jeżeli chodzi o VBA.
taka komenda powoduje skraplanie się potu na moim czole :)
Za to tylko z formułami lepiej :)
Mimo wszystko prosiłbym o pomoc  |
|
| ID posta:
1003
|
|
|
|
|
|
Trebor
Excel Expert
Pomógł: 1752 razy
Posty: 4680
|
| Wysłany: 04-01-2007, 19:54
|
|
|
Tak dokładnie to należałoby sprawdzić wszystkie obiekty w arkuszu i podjąć odpowiednią decyzję np. na podstawie nazwy. Można zaryzykować taką linię
| Kod: |
ActiveSheet.Shapes("Button 1").Delete
|
Lub bardziej ogólną
| Kod: |
ActiveSheet.Shapes(1).Delete
|
Pozdrawiam |
_________________
[email protected] |
|
| ID posta:
1005
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 04-01-2007, 21:45
|
|
|
Dzięki. Działa jak należy.  |
|
| ID posta:
1012
|
|
|
|
|
|
Krzysiek
Sympatyk Excela
Pomógł: 3 razy
Posty: 275
|
| Wysłany: 08-01-2007, 19:59
|
|
|
| Mam pytanie. Czy słuchacz triple_6 wysyłał może fakturę do Worda? i drukował ją edytorem. Ten temat interesuje mnie, jak taką fakturę zrobioną w Excelu przesłać do Worda i drukować ją właśnie edytorem. Pewnie ktoś wie.....? |
|
| ID posta:
1119
|
|
|
|
|
|
triple_6
Starszy Forumowicz
Posty: 49
|
| Wysłany: 08-01-2007, 21:21
|
|
|
| nie wysyłałem jej. drukowałem ze środowiska excela.... |
|
| ID posta:
1127
|
|
|
|
|
|
Tajan
Pomógł: 5633 razy
Posty: 12168
|
| Wysłany: 08-01-2007, 23:36
|
|
|
| Krzysiek, to da się zrobić, ale nie rozumiem celu tej całej kombinacji. W sumie to najprościej jest skopiować i wkleić, ale nie wiem czy dobrze rozumiem Twój problem. |
|
| ID posta:
1135
|
|
|
|
|
|
Krzysiek
Sympatyk Excela
Pomógł: 3 razy
Posty: 275
|
| Wysłany: 09-01-2007, 11:48
|
|
|
Chodzi o to, że standardowym dokumentem (w firmie) jest plik edytora Word. Plik faktura dał mi pomysł do zbierania danych od klienta, wpisywania ich do komórek Excela i wykorzystanie ich do określonych celów, natomiast sam dokument musi!!! być wysłany do Worda (chyba jednak makro a nie kopiowanie) i tam drukowany. To jest ten problem.
____________
Pozdrawiam |
|
| ID posta:
1146
|
|
|
|
|
|
Tajan
Pomógł: 5633 razy
Posty: 12168
|
| Wysłany: 09-01-2007, 14:28
|
|
|
A może i makro i kopiowanie? Jeżeli do makra cmdZatwierdz, obsługującego przycisk w załączonym wcześniej przykładzie, dodasz na końcu taki kod:
| Kod: |
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
Range("B2:N108").Copy
oDoc.Content.PasteSpecial , , , , 3
oWord.Visible = True
Set oDoc = Nothing
Set oWord = Nothing
|
to utworzysz nowy dokument Worda i skopiujesz do niego aktualną fakturę (jako obrazek) i będziesz mógł ją sobie wydrukować. |
|
| ID posta:
1153
|
|
|
|
|
|
|
|
Regulamin
