Oma alkeellinen VBA osaaminen alkoi tökkimään. Olisiko täältä jeesiä?
Sheet 1:llä on automaattinen aakkosellinen sorttaus:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("A7").Sort Key1:=Range("A6"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Tällä rivit järjestyvät hienosti kuten pitää sarakkeen A mukaan.
Sheet2:
Tuon osittain samaa dataa viittaamalla suoraan Sheet1:n sisältöön ja osittain parilla kaavalla. Sheet2:n rivit täytyisi saada automaattijärjestykseen samaan järjestykseen kuin ykkösessä sitä mukaan kun ykköselle teen lisää rivejä. Sinällään se järjestyykin kaavojen puolesta, mutta rivit alkavat heittää kun sheet2:lle täyttää tietoja, esimerkiksi sarakkeisiin K:BE. Koko alue jonka rivit haluan järjestää on B21:BE278.
VBA:lla aakkosellinen sorttaus riveittäin
vbaabv
1
127
Vastaukset
- vbaabv
Jatkoa alkuperäiseen viestiin. Rakennetta muutettu hiukan sujuvammaksi, ja samaa koodia pidetty myös taulukossa 2. Sorttaus onnistuu mutta rajaus on outo, sorttaus pitäisi alkaa riviltä 21 sarakkeessa A mutta alkaa sorttaamaan jo riviltä 18 joka on otsikkoaluetta.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 2215071
- 383398
Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.
Tämä asia ihmetyttää suuresti.352918Kehutaan vaihteeksi Perussuomalaisia
Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on1412783- 252448
SDP ylivoimainen ykkönen
En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.682276Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!
Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää192178Mitä tapahtuu?
Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?311820Roiskeläpät takaisin niin alkaa lasit kestämään
"Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s411762Polttomoottoriauto on köyhän merkki
Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.831438