Herkese merhabalar;
Aşağıdaki kodla "adi" adlı comboboxtan seçtiğim isme ait satırın 36. sütunundaki hücreye "gorusme" adlı textbox ın değerini atıyorum.Ancak kodu şöyle düzenlemem gerekiyor:
isme ait satırın 36. veya 36 dolu ise sonrasındaki ilk boş satırındaki hücreye eşitle.
Düzenlememe yardımcı olan olursa sevinirim.
Kodlar:
Aşağıdaki kodla "adi" adlı comboboxtan seçtiğim isme ait satırın 36. sütunundaki hücreye "gorusme" adlı textbox ın değerini atıyorum.Ancak kodu şöyle düzenlemem gerekiyor:
isme ait satırın 36. veya 36 dolu ise sonrasındaki ilk boş satırındaki hücreye eşitle.
Düzenlememe yardımcı olan olursa sevinirim.
Kodlar:
Private Sub kaydet_Click()
Dim k As Range
Sheets("DATA").Select
Set k = Range("A2:B1000").Find(adi.Value, , xlValues, xlWhole)
Cells(k.Row, 36).Value = gorusme.Value
End Sub