Laskutuspohjan teko

oksapussi

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.

8

1010

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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?...

      • kunde
        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ää?

      • kunde

        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      33
      1279

    2. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      69
      1085

    3. Tuleeko tästä

      Enää mitään. Voiko mitään enää korjata?
      Ikävä
      104
      936

    4. 41000 kavallettu rahaa

      uutisoi Kaleva ja iltasanomat vuosina 2020-2022 välisenä aikana hävinnyt toi summa tuomittu nainen 1971 syntynyt.
      Pyhäjärvi
      35
      858

    5. Kerro minulle

      Miksi teit niinkuin teit? Miksi kielsit tunteesi minua kohtaan. Miksi et halunnut että tiedän oikeasti mitä tunnet. Etkö
      Ikävä
      56
      719

    6. Tietäisitpä vain mitä se

      yksikin on susta puhunut :) j
      Ikävä
      42
      716

    7. Mitä muutoksia tekisit

      kaivatullesi? Miten on? Muista olla REHELLINEN 📸
      Ikävä
      48
      683

    8. Fantasioista

      Suurimmalla osalla meistä on jonkinlaisia eroottisia fantasioita. Miten sinä suhtaudut fantasioihin? Ruokitko niitä vai
      Sinkut
      94
      662

    9. Se riisuu suosimasi paatoksen, paljastaa egosi tyhjäksi

      Idän fisosofian vihaaja kirjoitti: "Muuten tämä idän-uskontojen mekaniikka hävitää ja hautaa tästä kaiken hyvän paatoks
      Hindulaisuus
      302
      656

    10. Olet sinä ihana

      Muttei sua taida kiinnostaa muu kuin sun työ:(
      Ikävä
      29
      635
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt