Buton yardımı ile veri getirme

[TİKOS]

arkadaşlar, ekte bulunan userformu siteden aldığım bilgiler yardımı ile bir yere getirdim ama tam istediğim olmadı. Sizden ricam,
User form üstüne Spinbutton koydum onun yardımı ile giriş yapılmış önceki kayıtları görüp ya kayıdı tamamen silmeyi yada üstünde değişiklik yapmak istiyorum. Bu konuda yardımcı olurmusunuz.
tşk

 

[Muzaffer Ali]

Aşağıdaki kodları formunuza ekleyin

Private Sub SpinButton1_Change()
    firma.Value = Cells(SpinButton1.Value, 3).Value
    tarih.Value = Cells(SpinButton1.Value, 5).Value
    'Diğerlerini de yukarıdaki gibi devam ettirebilirsiniz
End Sub


Private Sub UserForm_Initialize()
    SpinButton1.Min = 4
    SpinButton1.Max = Range("a" & Cells.Rows.Count).End(3).Row
End Sub

 

[TİKOS]

hocam ellerinize sağlık dediğiniz şekilde devam ettim problem yok.
Yalnız kayıt bulduğumda değiştirmek istiyorum bu konuda yardımcı olurmusunuz.

 

[Muzaffer Ali]

Bu sefer işlemi tersine yapacaksınız

Private Sub CommandButtonDegistir_Click()
    Cells(SpinButton1.Value, 3).Value=firma.Value 
    Cells(SpinButton1.Value, 5).Value=tarih.Value 
    'Diğerlerini de yukarıdaki gibi devam ettirebilirsiniz
End Sub

 

[TİKOS]

teşekkürler

 

[TİKOS]

Veri alma için yardım

hocam bir konuda yardım istiyorum sizden fazla oldum bugün ama :biggrin:
ekteki dosyada butona bastığımda gelen userform üstüne ürünü seçtiğimde Sheet1 den recete verilerini getirsin istiyorum eğer porsiyon maliyetinide toplatırsak şahane olur.
Şimdiden emeğinize teşekkürler

 

[TİKOS]

Arkadaşlar yardım rica ediyorum. Çalismamı tamamlamak için bu sorunumu halletmem lazım
El atarsanız çok sevinirim.
tşk