Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63975 Skopiuj do schowka Generowanie faktury z pól z wiersza w innym arkuszu
Autor Wiadomość
marci_n
świeżak


Posty: 5
Wysłany: 29-01-2019, 13:39   Generowanie faktury z pól z wiersza w innym arkuszu

Witam i zwracam się o pomoc do wszystkich którzy mogli by pomóc.

Mam arkusz a w nim kolumny

A B C D (w kolumnie e chciałbym umieścić przycisk "faktura") i w każdym wierszu są inni klienci.


i teraz chciałem w osobnym arkuszu w tym samym pliku zrobić opcję wydrukowania faktury z danymi z tych pól a co najlepsze aby automatycznie zapisywało gdzieś że została wydrukowana faktura. Da się takie coś ogarnąć w excelu? Jestem trochę w kropce bo potrzebuję takie coś i nie jestem ekspertem jeśli chodzi o excela :(

Dziękuję i pozdrawiam wszystkich czytających

faktura_generowanie.xlsx
Generowanie faktury
Pobierz Plik ściągnięto 7 raz(y) 10.18 KB

_________________
Marcin
ID posta: 361526 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 242 razy
Posty: 1325
Wysłany: 29-01-2019, 14:01   

Witamy na Forum.

Data wystawienia = bieżąca data / wpisana data / do ręcznej zmiany?
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 361528 Skopiuj do schowka
 
 
marci_n
świeżak


Posty: 5
Wysłany: 29-01-2019, 14:21   

Dzień dobry,
data ma być pobrana z bazy danych klienci

Dziękuję za odzew


Nie cytuj ostatniego posta.
Na końcu zdań stawiaj kropki.
umiejead

.
_________________
Marcin
ID posta: 361531 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 242 razy
Posty: 1325
Wysłany: 29-01-2019, 15:03   

Masz (w 20 linijkach - więc to nawet nie "draft" :mrgreen: ).

Sorry - nie chciało mi się robić x (nie wiem: a może tysiąc?) przycisków. Masz listę rozwijalną do 250 - tylko sugerowałbym wprowadzić jakieś ID.
.

Kopia faktura_generowanie.xlsm
Pobierz Plik ściągnięto 15 raz(y) 20.7 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 361533 Skopiuj do schowka
 
 
marci_n
świeżak


Posty: 5
Wysłany: 30-01-2019, 19:06   

Dziękuję bardzo za pomoc. Spróbuję to dostosować do swoich potrzeb.
_________________
Marcin
ID posta: 361600 Skopiuj do schowka
 
 
marci_n
świeżak


Posty: 5
Wysłany: 30-01-2019, 22:12   

A jeszcze jedno, czy dało by się jakoś to zrobić aby po wydrukowaniu zachowywało jakoś kopię tego rachunku?
_________________
Marcin
ID posta: 361618 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 242 razy
Posty: 1325
Wysłany: 31-01-2019, 11:02   

Kod:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, poz As Long, odp As Variant
Dim wskl As Worksheet, wsfa As Worksheet
Dim nr As String

On Error GoTo laEnd

If Not Intersect(Target, Range("E1")) Is Nothing Then
   
    Set wskl = Sheets("klienci")
    Set wsfa = Sheets("faktura")
       
    poz = WorksheetFunction.Match(Target.Value, wskl.Range("B:B"), 0)

    If wskl.Cells(poz, 6).Value = "TAK" Then
        odp = MsgBox("Ta faktura była już drukowana. Drukować jeszcze raz?", vbYesNo, "Pytanie")
        If odp = vbNo Then Exit Sub
    End If
   
    wsfa.Cells(1, 1) = "Faktura nr -  jakiś_numer"
    nr = wsfa.Cells(1, 1).Value
    wsfa.Cells(1, 3) = wskl.Cells(poz, 1).Value
    wsfa.Cells(3, 2) = wskl.Cells(poz, 2).Value
    wsfa.Cells(6, 1).Value = wskl.Cells(poz, 3).Value
    wsfa.Cells(8, 2).Value = wskl.Cells(poz, 4).Value
   
    wskl.Cells(poz, 6).Value = "TAK"
   
    wsfa.PrintPreview
   
    Sheets("faktura").Select
    Sheets("faktura").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = nr

End If
Exit Sub

laEnd:
MsgBox "Błąd: " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical, "UWAGA!"

If ActiveSheet.Name <> "klenci" And ActiveSheet.Name <> "faktura" And _
    Left(ActiveSheet.Name, 9) = "faktura (" Then
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End If
End Sub
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 361645 Skopiuj do schowka
 
 
marci_n
świeżak


Posty: 5
Wysłany: 07-02-2019, 17:18   

Super dziękuję ale kurcze ja trochę laikiem jestem w tym a mam do ogarnięcia ten temat niestety. Więc proszę jeszcze o pomoc

Mam plik z formularzem rachunku a w drugim bazę danych klientów. Wstawiam w załączniku

Chciałbym je połączyć aby wydrukować masowo albo jak będę chciał. Jeżeli mogę się jakoś odwdzięczyć za pomoc to proszę o informację. Bardzo tego potrzebuję

Bardziej by chyba potrzebny przycisk obok numeru to wysłania tego rekordu do formularza rachunku taki właśnie jak tam jest w załączniku

formularz.zip
Pobierz Plik ściągnięto 4 raz(y) 44.41 KB

_________________
Marcin
ID posta: 362148 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe