Heippa,
Tarkoitukseni olisi tehdä laskupohja, josta tiedot kopioituisi lähetteeseen ja keräilylaskuun. Lähetteen teko ei sinänsä ongelma vaan tuon valikoivan keräilylaskun.
Mitenkä saisin ohjattua sitä, kenen asiakkaan keräilylaskuun (taulukkoon) kirjoitetun laskun tiedot kopioituisivat. Laskupohjassa asiakas valittaisiin pudotusvalikosta. Jos vaikka jokainen asiakas olisi omana taulukkonaan, ja laskupohja olisi samassa tiedostossa näiden kanssa.
Ja löytyisikö joku systeemi, jolla tuon keräilylaskun "tuotenimiketila" kasvaisi sitä mukaa mitä laskuja tehdään?
Taulukkojen nimet olisivat seuraavat (esimerkiksi):
Laskupohja
Lähete
Keräilylasku Virtanen
Keräilylasku Korhonen
Keräilylasku Heinonen
Keräilylasku Halonen
Ymmärtiköhän kukaan? Kiitos jo etukäteen.
Laskutuspohjan teko
8
1011
Vastaukset
ei kummonen juttu...
muokkaa sopivaksi muuttamalla solualueita
nyt kopioi aktiivisesta taulukosta (laskupohja) solussa H30 olevaan asiakasnimen nimiseen taulukkoon tiedot A sarakkeeseen ekaan tyhjään soluun
...koodia
Range("A10:K15").Copy Sheets(Range("H30").Text).Range("A65536").End(xlUp).Offset(1, 0)
...koodia- oksapussi1
Meni nyt hieman ohi..
Eli jos kuvitellaan että tuossa H30 solussa (laskupohja-taulukko) on nimi Matti Peräpää, niin seuraavaksi menen taulukkoon jonka nimi on Matti Peräpää ja sen A-sarakkeen ensimmäiseen soluun tehdään tuo makro?
Vai?... oksapussi1 kirjoitti:
Meni nyt hieman ohi..
Eli jos kuvitellaan että tuossa H30 solussa (laskupohja-taulukko) on nimi Matti Peräpää, niin seuraavaksi menen taulukkoon jonka nimi on Matti Peräpää ja sen A-sarakkeen ensimmäiseen soluun tehdään tuo makro?
Vai?...ei todellakaan, vaan jos oot tehnyt napin tai käytät jotakin tapahtumaa niin siihen sitten liität koodinpätkän....
oletuksenas kopioi nyt laskupohjasta A10:K15 alueen laskupohjassa H30 olevaan asiakkaan nimiseen taulukkoon esim. solusta A13 alaspäin, jos solussa A12 on tietoa jne
- Wintologi
Voihan tuon Exelilläkin tehdä, mutta itse lähtisin kyllä tuohon hommaan Accesilla. Käyttö olisi asiakasrekisterin ja tuoterekisterin kera joustavaa. Ja raportoinnista saisit kullanarvoista tietoa myynnistä tuoteryhmittäin, asiakasryhmittäin sekä tietysti asiakaskohtaisesti.
- oksapussi1
Noniin, ehkä rupea vähän pääsemään jyvälle, mutta kuitenkin vielä kaukana tavoitteesta :)
Olen tehnyt nyt painikkeen, johon olen liittänyt makron jonka koodi on
...koodia
Sub Testi()
Range("A10:K15").Copy
Sheets(Range("A1").Text).Range("A65536").End(xlUp).Offset(1, 0)
End Sub
...koodia
nappulaa painaessa rupeaa herjaamaan Cant execute in break mode. A1 solussa lukee Matti ja olen tehnyt taulukon nimeltä Matti.
missä siis mättää?lisää nappi ohjausobjekteista ja lisää ko.taulukon moduulissa siihen koodi(oletus CommandButton1
Private Sub CommandButton1_Click()
Range("A10:K15").Copy Sheets(Range("A1").Text).Range("A65536").End(xlUp).Offset(1, 0)
End Sub
- oksapussi1
Oijoi, sain toimimaan! Kiitos erittäin paljon avusta!
- oksapussi1
..tai en saanutkaan.
Tämä kopiointi toimii vain yhdelle nimetyistä taulukoista. Jos valitsee jonkun muun niin excel herjaa Runtime error ´9´: Subscript out of range
Kaikki pitäisi olla kunnossa, mutta jostain syystä tuohon yhteen taulukkoon vain toimii.
Missä mahtaisi olla vika?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Asiakkaalle ei myyty energiajuomaa - tuomio tuli syrjinnästä
Vaikka oli ilmeisesti täysi-ikäinen. Tosin ei lapsiakaan saisi syrjiä, koska oppivat helposti itsekin syrjimään, jos koh683997Miksi aina pitää kilpailla parhaudesta?
Mua ärsyttää se, että kaikki kilpailut ja visailut keskittyvöt aina siihen, kuka on paras missäkin. Tänäkin aamuna tuli833296Pakkoruotsista luopumalla kymmenien miljoonien säästöt
Pakkoruotsin opiskelun kustannuksista ei ole juurikaan tehty kustannusselvityksiä, mutta joidenkin arvioiden mukaan siit873077- 962903
Luterilaisen kirkon koko kastekaava on väärä
Uudessa testamentissa on kaksi täysin ristiriidassa olevaa kastekäskyä Matt 28:19 ja Ap. t. 2:38. Matteuksen evankeluimi412614Seksuaalinen ahdistelu, naisten vähättely ja törkeä käytös naisia kohtaan kukkii rakennustyömailla
Tällainen lienee ihan tavallisista kaikilla "äijävaltaisilla" työpaikoilla. Kaikki miesvaltaiset alat eivät ole toksise2232432Miten Yxäri iskettiin?
Voisin tässä unta odotellessani kertoa, miten mieheni lähestyi minua. Tunsimme entuudestaan. Hän kyseli minulta aina j2102335Kerro minulle
Miksi teit niinkuin teit? Miksi kielsit tunteesi minua kohtaan. Miksi et halunnut että tiedän oikeasti mitä tunnet. Etkö672282Rakkaalle J miehelle.
Hitto mulla on sua ikävä. Haluisin heti nyt tulla sun syliin ja suudella sua.ja, ja ja... Hirveä ikävä.912211Kristinuskossa Isän ja Pojan ja Pyhän Hengen nimessä
Jeesuksen kehoitus kastamiseksi Isän ja Pojan ja PH:n nimeen. Matt 28:19: "Menkää siis ja tehkää kaikki kansat minun4022158