butona atanan değer kayıt etme

[jseramsi]

butona atadağım bir değeri belirlenen satırlara kaydetmeyi yapamadım bu konuda yardımcı olurmusunu arkadaşlar

Sözleşme bedeli butonuna bastığımda B12 ile B22 arasında bir yere , sabit olan kodu ekleyecek (360.04.01) eğer B12 satırı dolu ise sözleşme bedeli kodu B13 satırına B14 DE dolu ise B15 satırına KODU eklicek.... örnek dosya mevcut bu konuda yardımcı olursanız sevinirim şimdiden teşekkürler

 

[Mustafa MUTLU]

B12 ye kadar hücrelerin dolu olduğunu varsayarak

Sub Kaydet()
Dim Mutlu As Long
Mutlu = Range("b22").End(3).Row + 1
Cells(Mutlu, "b") = "360.04.01"
End Sub

Bu Kodu bir düğmeye atayın..

 

[jseramsi]

teşekkür ederim.... formül istediğim gibi oldu emeğine sağlık ...

 

[Mustafa MUTLU]

teşekkür ederim.... formül istediğim gibi oldu emeğine sağlık ...

Rica Ederim.