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
640
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225194- 254378
- 272501
- 342264
- 371998
- 151918
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191607- 121531
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211267Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101174