23. januar 2009 - 19:46Der er
32 kommentarer og 1 løsning
Til Kabbak, fakturaprogram
Hej Kabbak
Jeg har studeret din lønsning med fakturaprogrammet lidt. Jeg har lavet det sådan i mit program, at jeg også registrerer fakturarækkerne, ligesom i din model. Nu er jeg bar ikke en ørn til det, og er stadig under læringsprocessen.
Men, hvis jeg skal ha en makro, som sætter faktura række 1, range(B, C, D, E, F) til at blive fyldt ind i mit "fakturaer"-ark (oversigtsark). Jeg har makroen som overfører fakturadata til næste ledige række. Men hvordan laver jeg en makro, som sætter range(b, c, d, e, f) ind i eks. r1.cells(19) og frem, hvis du forstår?
Min makro til at overføre fakturadato for kunde, adresse mv. er
Dim R As Range, r1 As Range Set R = Worksheets("Fakturaer").Range("A2").CurrentRegion Set r1 = R.Offset(R.Rows.Count, 0)
R = 13 For U = 1 To 15 ' hvis du har 15 fakturalinjer og de starter i række 1 ' ellers ret til f.eks. For U = 2 To 17' Sheets("faktura").Range(Cells("B", U), Cells("F", U)).Copy r1.Cells(R) R = R + 5 Next
FAKData = range("B19:G33")' måske skal arknavnet foran range ? A = r1.row ' hvilken række R = 20 ' Start kolonne For U = 1 To UBound(FAKData,1)' rækker For I = 1 To UBound(FAKData,2)kolonner Worksheets("fakturaer").Cells(A, R) = FAKData(U, I) R = R + 1 Next Next
Prøv at holde curseren over variablerne, mens linjen er mærket med gult, så kan man aflæse deres værdier. Se hvad A har for en værdi, værdierne for UBound(FAKData,1) og 2' og er arknavnet stavet rigtig ?
A = 3 nu, efter jeg har slettet det hele, men alligevel har den overført data i række 1-3?, og data der overføres, overføres ikke til de rigtige placeringer nu?
Meeeen, som faktura, må du gerne have et program i excel, som laver fakturaerne, hvis disse efterfølgende registreres i et godkendt system :) C5 eks. :)
Hej kabbak :) er sendt, sorry forsinkelsen igen.. Jeg har lavet en knap i faktura-arket som henter koden fra modul 2, "ovffakturadata()"... som det kører nu, kan den overføre med den kode jeg havde til at starte med :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.