Buton ile veri ekleme

[ommerk]

Merhaba,
İş yerinde kullanmış olduğum bu dosyada grup bölümünden o gruba ait gelen malzemelerden seçmiş olduğumu satır 1 ekleye tıklayarak 1.satıra
sonra seçmiş olduğum diğer malzemeyi satır 2 ye ekle diyerek 2. satıra ekleyerek iş kolaylığı sağlamaktayım.
Bu dosyada ben eklemiş olduğum 20 adet satır ekle butonunu kaldırmak istiyorum.
onun yerine tek buton koyarak seçmiş olduğum malzeme 1.satırdan itibaren her ekle butonuna bastığımda alt alta seçtiğim şekilde gelmesini istiyorum
Yardım eder misiniz.
dosya linki

 

[yanginci34]

Dosyanızı indiremiyorum başka bir şekilde tekrar gönderirmisiniz.

 

[ommerk]

[TR][TD]
https://www.dosyaupload.com/1qcg4/form.xlsm
Kontrol etmemiştim.
[/TD][/TR]

 

[ÖmerFaruk]

Tek bir Satır Ekle butonunuza aşağıdaki kodu atayın.

Sub SATIREKLE()
    Son = Range("B27").End(3).Row + 1
    If Son > 26 Then Exit Sub
    Range("B" & Son) = Sheets("Sayfa1").Range("O1").Value
End Sub

 

[ommerk]

Tek bir Satır Ekle butonunuza aşağıdaki kodu atayın.

Sub SATIREKLE()
    Son = Range("B27").End(3).Row + 1
    If Son > 26 Then Exit Sub
    Range("B" & Son) = Sheets("Sayfa1").Range("O1").Value
End Sub

Teşekkür ederim.
Sayende istediğim gibi oldu.
iyi çalışmalar.