Taulukko on A1-J10 (=sata ruutua). Jokaisessa solussa on luku. Jokin näistä soluista merkataan esim. x:llä ja merkatun solun arvo olisi tarkoitus saada siirtymään soluun A1 toiselle välilehdelle.
Onko tämä ylipäänsä mahdollista ja jos on niin millä kaavalla?
Kiitos jo etukäteen, jos tää saadaan toimimaan!
Arvon hakeminen taukosta, jos se merkitään x:llä
Kaavahukassa
6
138
Vastaukset
- Tämmöinen
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err
Application.Calculation = xlManual
Application.EnableEvents = False
If (Not Intersect(Target, Range("A1:N10")) Is Nothing) And (UCase(Target.Value) = "X") Then
Application.Undo
Worksheets("Sheet2").Cells(Target.Row, Target.Column) = Target
Target = "X"
End If
Err:
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub- Tämä_vielä
Tuo makro tulee siis kyseisen sheetin moduliin.
- kaavahukassa
Nyt loppu taidot. Neuvotko äkkinäiselle selkeämmin? Kiitos!
- Tämmöinen
Aluksi: Valintanauhan Developer välilehti ei oletettavasti näy Excelissä, joten ensin pitänee painaa hiiren oikealla nauhaa ja valita kohta Customize the Ribbon. Merkitse avautuvan ikkunan oikeanpuoleisesta ruudusta valituksi myös kohta Developer.
Developer välilehden vasemmasta reunasta pääsee Visual Basiciin. Avautuvan ikkunan vasemmassa reunassa on kohta Project Explorer, jossa pitäisi näkyä Excel-tiedostosi nimi: VBAProject (Book1) tms. Jos sen edessä on paina sitä. Tuplaklikkaa sen välilehden nimeä (Sheet1), johon haluat tuon toiminnan liitettävän. Oikealle aukeaa tyhjä ohjelmaikkuna. Liimaa yllä oleva makro siihen.
Muuta tarvittaessa nimeä "Sheet2". Ja, koska en lukenut kunnolla kysymystä, vielä seuraavat:
Range("A1:N10") pitäisi olla Range("A1:J10")
Rivi Worksheets("Sheet2").Cells(Target.Row, Target.Column) = Target Pitäisi olla Worksheets("Sheet2").Cells(1,1) = Target Ylempi rivi ei kopioisi solun sisältöä soluun A1, vaan samaan kohtaan kuin se oli alkuperäisellä sivulla.
helpompi tapa...
taulukkovalitsimesta alhaalla tilarivillä hiiren oikealla klikkaa taulukkoa ja avautuvasta valikosta näytä koodi ja liitä koodi sitten oikealle tyhjään tilaan...- Kaavahukassa
Tämä toimii! Kiitos paljon!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.
Tämä asia ihmetyttää suuresti.1533889Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,883283SDP 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.862678Polttomoottoriauto on köyhän merkki
Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.2682466Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!
”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a392256Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv1031921- 421009
- 95988
- 53879
Haapaveille jotain uutta!
Huoltoasema Haapavein keskustaan tulossa. Semmoista Jeppasissa jaappasevat.16830