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)?
Kopiranje vrednosti ene celice v neko območje
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:
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
,
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:
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.
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)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator