caption değerine göre sayfaya kayıt

[peleryn]

Merhabalar;

Ekli dosyada daha ayrıntılı açıkladım.Sorumda UserForm'un Caption değeri DATA sayfasının 1. satırında aranıyor ve o değerin bulunduğu sütundaki ilk boş hücreye userform üzerindeki textboxta bulunan değer kaydediliyor.

İlgilenecek olanlara şimdiden teşekkür ederim.

NOT:Örnekte verdiğim değerler hep sayısal değer ama bu değer sayı ya da metin olabilir.

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
Dim c As Range, s1 As Worksheet, son As Long
Set s1 = Sheets("DATA")
Set c = s1.Rows(1).Find(ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
    son = s1.Cells(65536, c.Column).End(3).Row + 1
    s1.Cells(son, c.Column) = TextBox1.Value
End If
End Sub

Bu şekilde deneyiniz..

.

 

[peleryn]

Ömer hocam merhabalar;

Ellerinize sağlık..Çözümünüz için çok teşekkür ederim.