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ä
6
88
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
Hei sinä nainen
Haluan olla rehellinen – olet hämmentänyt minua todella paljon. En ota sinusta mitään selvää, ja ehkä juuri siksi huomaa903346Kelan perkeleellinen käytäntö
Kun äiti joutuu hakemaan Kelalta tukia vähien tulojen tähden, niin aina otetaan huomioon lapsen tilillä olevat rahat. Ei3362952Putin ei suostu tulitaukoon nyt kun Kurskin taistelut ovat kesken
ja venäjä on viimein päässyt niskan päälle, suuren ylivoiman turvin. Ukraina ilmeisesti suorittaakin taktista vetäytymi1911586Martinan firma haastettiin käräjille
Seiska: Martinan firma haastettiin käräjille, taustalla outo rahasotku.2421374Voi kulta rakas
Kyllä minäkin olen sinuun rakastunut. Oisit avautunut tunteistasi aiemmin niin ei tarvitsisi kiertoteitä kuulla tästä. �621292Miksi haluat satuttaa
Sillä tiedolla ettet välittäisi minusta vaikka se ei ole totta. Silti tiedän että rakastat minua edelleen. Niinkuin sano281051- 791017
- 741010
- 117980
- 72934