Kopiranje vrednosti ene celice v neko območje

[diadora]

Pozdravljeni,

kako bi se lotil problema, da bi z določenim potrditvenim gumbom skopiral vrednost točno določene celice (npr. A1) v neko območje (npr. B1..B100) ob pogoju da se vrednost vedno zapiše v naslednjo (prvo prazno celico-začelo pa bi se pri B2)?

[admin]

Pozdravljeni,

Za rešitev vašega problema bo potrebno poseči po VBA-ju. Makro (prilagam ga spodaj) je preprost in samo preveri katera cellica v koloni B je prva prazna ter nato vanjo zapiše vrednost celice A1. Ta makro samo še zvežite z nekim gumbom in to je to:

Koda: Izberi vse

' www.matjazev.net
' 05.05.2006
Sub PrepisiVStolpecB()
  Dim PraznaVrstica As Long
  
  PraznaVrstica = Range("B65536").End(xlUp).Row
  If Not IsEmpty(Cells(PraznaVrstica, 2)) Then PraznaVrstica = PraznaVrstica + 1
  
  Cells(PraznaVrstica, 2) = Cells(1, 1)
End Sub

[diadora]

Ja. Zadeva deluje.

Problem je samo v tem, ker sem izvorno in ciljno celico napisal samo hipotetično. Kaj pa, če moram to narediti iz celice e25, List1 v stolpec B3 na listu 4... in kasneje v b4, b5 itd....

Kaj pomeni v poslanem makru: Range("B65536")? oz. kje vidim kaj je source in kaj target?

[admin]

,

Range("B65536") pomeni natanko to, kar piše; sklic na celico B65536.

Kar pa se tiče izvora in ponora pa je vse v zadnji vrstici:

Koda: Izberi vse

Cells(PraznaVrstica, 2) = Cells(1, 1) 

kar pomeni, v celico, ki se nahaja v vrstici, katere vrednost je zapisana v spremenljivki PraznaVrstica in v koloni 2 (to je B!), zapiši vrednost celice iz vrstice 1 in kolone 1 ==> to je iz celice A1.

[diadora]

Hmmm. Ja.

Sej potem vse zgleda enostavno.

Tenkssy.