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
105
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
Riitta-Liisa ja Toni Roponen: Ero! Riitta-Liisa Roponen kertoo asiasta Instagramissa.
Riitta-Liisa ja Toni Roponen eroavat. Riitta-Liisa Roponen kertoo asiasta Instagramissa. – Talvi on ollut elämäni synk923934Sinä vain tulit elämääni
Ja joku tarkoitus sillä on ollut. Näyttämään mitä olen ja kuinka arvokas voisin olla. Se muutti ja käänsi elämäni suunna922019Tiesitkö mies
Kuinka paljon mulla oli tunteita sua kohtaan? Jos et tiennyt,olisiko tietäminen vaikuttanut tapahtumiin? Ihmettelen kyll871823- 1441702
Mies, mitä minun pitäisi tehdä
Niin, mitä naisen siis pitäisi tehdä, että lähestyisit ja tekisit aloitteen? Mikä on riittävä kiinnostuksen osoitus juur1081561- 1671551
Millaisia ajatuksia on kaivatusta ja tilanteestanne tänään?
Kerro omista mietteistäsi tai lähetä terveisiä. Ehkä hän lukee ja lähettää sinulle takaisin omia mietteitään.651488Toivottavasti et mussukka elättele toiveita meikäläisen suhteen
Tiedän mitä olet touhunnut joten aivan turha haaveilla mistään enää 👍1671452Jos siis saamme
Sen keskusteluyhteyden niin olisitko jo sinäkin rehellinen ❤️🙏 ne jää meidän välisiksi kaikki. Tarvitsemme toisiamme, j1001364- 861317