Excel - mitme lehe lisamine põhilehele sisestatud andmete põhjal

Probleem
Lahendus

Probleem

Teen raamatupidamise töövihiku järgmiste kriteeriumidega:

Esimesel lehel nimega "Konto" loetakse kõik tehingud tabelisse, mis läheb C6-H6-st, ja allapoole iga kirje jaoks. Tabeli üks veergudest on tähistatud "Sektor" ja viitab kulude või tulude allikatele. Seal on 7 sektorit ja igal neist on selles töövihikus leht.

Ma tahaksin teha, kas iga üksiku sektori leht täidetakse automaatselt iga kord, kui konto lehel värskendatakse, ja laske see tabelis esitatud sektori veerul põhineda. soovib, et kogu rida kantaks üle lehele "Üldine".

Kas nõuandeid või soovitusi?

Lahendus

Märkus 1: Sektor sisestatakse veergu H.

Märkus 2: Sisestage sektor rea rea viimaseks väärtuseks.

 Private Sub Worksheet_Change (ByVal Target As Range) Kui ristuvad (Target, Columns (H: H))) Ei ole midagi, siis väljuge alamgrupist (Range ("C" & Target.Row), Range ("H" ja Target.Row )). Koopia _ Lehted (Target.Value) .Range ("C" ja read.Count) .End (xlUp) .Kasutaja (1, 0) Lõpu alam

Koodi rakendamiseks: