ilk boş sütundaki hücre

[peleryn]

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:

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

 

[peleryn]

isme ait satırın 36. veya 36 dolu ise sonrasındaki ilk boş satırındaki hücreye eşitle.

Yanlış anlaşılmaya sebebiyet verecek şekilde yazmışım.36 dolu ise 37 ye yazsın anlamında değil de 36 dan başlayarak ilk boş olana yazsın olacak.(misal 45 e kadar doluysa değeri 45 e atayacak.)

 

[halit3]

Yanlış anlaşılmaya sebebiyet verecek şekilde yazmışım.36 dolu ise 37 ye yazsın anlamında değil de 36 dan başlayarak ilk boş olana yazsın olacak.(misal 45 e kadar doluysa değeri 45 e atayacak.)

böyle denermisiniz.

Private Sub kaydet_Click()
Dim k As Range
Sheets("DATA").Select
Set k = Range("A2:B1000").Find(adi.Value, , xlValues, xlWhole)
If Cells(k.Row, 36).Value = "" Then
Cells(k.Row, 36).Value = gorusme.Value
Else
Cells([a65536].End(3).Row, 36).Value = gorusme.Value
End If
End Sub

 

[peleryn]

Hocam malesef 36. sütun üzerinde en son satıra gidip yazıyor.
İlgili satır üzerinde 36.sütuna yazması lazım o doluysa 37 o da doluysa 38 ...böyle gidiyor..

 

[halit3]

Hocam malesef 36. sütun üzerinde en son satıra gidip yazıyor.
İlgili satır üzerinde 36.sütuna yazması lazım o doluysa 37 o da doluysa 38 ...böyle gidiyor..

örnek küçük bir dosya eklermisiniz.

 

[peleryn]

hazırlamaya çalışıyorum hocam durumu farkettim

 

[peleryn]

dosyayı ekliyorum gerekli açıklama içinde de var

 

[halit3]

dosyayı ekliyorum gerekli açıklama içinde de var

bunu bir denermisiniz

Private Sub kaydet_Click()
Dim k As Range
Sheets("DATA").Select
Set k = Range("B2:B1000").Find(adi.Value, , xlValues, xlWhole)
sat = adi.ListIndex + 2
yer = Worksheets(ActiveSheet.Name).Cells(sat, 255).End(xlToLeft).Column + 1
Cells(k.Row, yer).Value = Replace(gorusme.Value, Chr(13), "")
End Sub

 

[peleryn]

Evet hocam tam olarak bu.Çok güzel çalışıyor ellerinize sağlık teşekkür ederim.

 

[halit3]

Evet hocam tam olarak bu.Çok güzel çalışıyor ellerinize sağlık teşekkür ederim.

iyi çalışmalar