SÜtun Bazinda Verİ Aktarimi

[oguzgok]

Slm Arkadaşlar..
Ekte de görülceği üzere, yeni kayıt da kayıt yapıyoruz. Ancak Aynı kişiye ait bir bilgiyi bilgi sayfasından o kişiye ait satırı bulup en son sütuna nasıl kayıt yapılacak bu konuda takılmış bulunmaktayız.
Yardımcı olcak arkadaşa şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Sorunuzu okudum fakat tam olarak ne yapmak istediğinizi anlayamadım. Lütfen dosyanız üzerinde örnekleyerek açıklarmısınız.

 

[oguzgok]

Slm Cost Control...
Userform daki Kaydet butonu ile Textbox lardaki bilgileri, hangi kişiye ait bilgi ise o kişiye ait bilgiyi bulup, en son kayıtlı sütundan başlayarak kayıt yapmasını istiyorum. İnşallah anlatabilmişimdir.
Çok Tşk...

 

[Recep İpek]

Aşağıdaki kodları kendinize göre uyarlayabilirsiniz.

Private Sub CommandButton1_Click()
For Each alan In Sheets("BİLGİ").Range("B2:B2000")
If TextBox2.Value = alan.Value Then
alan.Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = TextBox3.Value
ActiveCell.Offset(0, 1).Value = TextBox4.Value
ActiveCell.Offset(0, 2).Value = TextBox5.Value
End If
Next
[A1].Select
End Sub

 

[oguzgok]

Tşk RİPEK....
Bir deneme yapalım...

 

[oguzgok]

Çok teşekkürler Ripek.. Ellerine sağlık...