[es] - Problem sa fakturom

Pupazzo
racunovodstvo

Član broj: 281922
Poruke: 76
*.crnagora.net.

Profil

^{18.03.2014. u 07:25 - pre 123 meseci}

Javlja mi grešku u modulu kada hoću da prebacim i snimim fakturu, javlja mi grešku u listu izlaz. A isto sam htio da, ako je moguće, klikom na prenesi-skini-snimi, da istu tu fakturu prenese i u list KART. Da izgleda kao što je ova faktura u prilogu, samo da se podese makroi. To iz razloga jer iz tog lista poslije preuzima podatke za prikaz kartica kupaca. Hvala.

Prikačeni fajlovi

faktura-zalihe.rar - 387.33k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Problem sa fakturom

^{20.03.2014. u 14:50 - pre 123 meseci}

Problem koji sam video (možda nije jedini) je što si mergovao kolone na listu izlaz. Nema potrebe za tim, jednostavno proširi kolonu po potrebni. Zbog toga ti ne funkoniše Paste. Inače to nije dobra praksa

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

Pupazzo
racunovodstvo

Član broj: 281922
Poruke: 76
*.crnagora.net.

Profil

Re: Problem sa fakturom

^{20.03.2014. u 17:18 - pre 123 meseci}

OK taj problem je riješen. E sad ostaje samo još jedna stvar. Kako izvesti i da li uopšte može, da se pritiskom na dugme prenesi-skini-snimi ista ta faktura prenese i u list KART. Da prenese podatke koji su potrebni u listu KART, a to su: datum, broj dokumenta, kupac i iznos. Makro bi trebao biti nešto poput ovog samo da se "ubaci" dje treba.

Private Sub cmdUnos_Click()

Dim xy As String 'deklarisanje promenljive xy
xy = Sheets("KART").Range("B500").End(xlUp).Row + 1 'prvi prazan red za unos

Dim spec As Worksheet, fak As Worksheet 'delarisanje sheetova
Set spec = Sheets("KART")
Set fak = Sheets("FAKTURA")

Application.ScreenUpdating = False

If fak.Range("f10") = "" Or fak.Range("f9") = "" Or fak.Range("m9") = "" Or fak.Range("q53") = "" Then

Exit Sub
End If

With spec
.Range("B" & xy).Value = fak.Range("f10").Value 'datum
.Range("C" & xy).Value = fak.Range("f9").Value & fak.Range("d11").Value & fak.Range("e11").Value 'broj računa
.Range("D" & xy).Value = fak.Range("m9").Value 'primalac
.Range("E" & xy).Value = fak.Range("q53").Value 'iznos

End With

Mislim da je ova naredba ali ne znam tačno da je ubacim.

Odgovor na temu

Pupazzo
racunovodstvo

Član broj: 281922
Poruke: 76
37.122.163.*

Profil

Re: Problem sa fakturom

^{30.03.2014. u 00:52 - pre 123 meseci}

Evo sam ispravio list "IZLAZ" sad "samo" još da se ubaci ovaj makro da podatke ubaci u list "KART". Ako neko ima vremena od vas sto znate, bio bih zahvalan.

Prikačeni fajlovi

faktura-zalihe2.rar - 387.31k

Odgovor na temu