Millä koodilla saan kopioitua solun toiseen välilehteen samassa (Excel) työkirjassa?
Jos taulukko1:ssä on A1 solussa luku ja sitä muutetaan siten että se kasvaa 2:lla (esim luku on 1 ja se muutetaan itse 3:ksi) pitäisi luku kopioitua Taul2:sen A1 soluun ja koko ohjelman myös siirtyä taulukko2:een.
Onnistuuko Vba:lla?
Solun kopiointi
toiseen taulukkoon
4
663
Vastaukset
- mmm
Sheets(2).Cells(1, 1) = Sheets(1).Cells(1, 1)
Onnistuu.- sama.
Ei tapahtunut mitään taulukko2:ssa tuolla koodilla. Harmi.
- mmm
sama. kirjoitti:
Ei tapahtunut mitään taulukko2:ssa tuolla koodilla. Harmi.
Dim K As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target - K = 2 Then
With Sheets(2)
.Cells(1, 1) = Target
.Activate
End With
End If
K = Target
End If
End Sub - sama.
mmm kirjoitti:
Dim K As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target - K = 2 Then
With Sheets(2)
.Cells(1, 1) = Target
.Activate
End With
End If
K = Target
End If
End Subkiitos neuvoista
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1274474- 1553759
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah1033506Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia412859- 1361806
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta381602Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk251258Sulla on avaimet ja keinot
Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi211231Meitä ei tule
Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌231173Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?421165