Firmaya ait farklı kayıtlardan seçili olana bilgi aktarma

[zyrec]

Slm arkadaşlar. Kaydettiğim 3 tane x firmasını userformda sırasıyla buluyorum. Ancak ödeme yap dediğimde x firmasının seçtiğim kaydına değilde ilk giriş kaydına atıyor. Benim istediğim x firmasının seçili olan kaydına eklemesi. Örnek dosyada incelediğiniz zaman daha iyi anlıyacaksınız. Şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Cevabı zaten kendiniz vermişsiniz. Bul butonları ile kaydı bulduğunuza göre tekrar ödeme butonunda bulma işlemi yapmanıza gerek kalmaz. Aktif satır bilgilerini kullanarak ödeme yapabilirsiniz. Aşağıdaki kodu denermisiniz.

Private Sub CommandButton4_Click()
    Sheets("GİDER").Select
    Kolon = Range("X" & ActiveCell.Row).End(1).Column + 1
    If Kolon < 17 Then Kolon = 17
    Cells(ActiveCell.Row, Kolon) = TextBox10.Value
    Unload UserForm1
    UserForm1.Show
End Sub

 

[zyrec]

Üstad teşekkür ederim. O konuyu gözden kaçırmışım. Siz uyardıktan sonra olayı anladım. Teşekkürler...