Satırda ilk boş hücreye veri yazmak

[sakaryavedat]

Arkadaşlar merhaba..

combobox tan seçtiğim veriyi sayfa1 de b sütünunda arayıp, bulduğum satırın en son dolu hücresinin sağındaki boş hücreye textbox a yazdığım veriyi yazmak istiyorum.Desteğinizi bekliyorum

Yardımılarınız için şimdiden teşekkür ederim

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
Dim c As Range
Dim Kolon As Integer
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
Set c = s1.Range("B:B").Find(ComboBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
    Kolon = s1.Cells(c.Row, "IV").End(1).Column + 1
    s1.Cells(c.Row, Kolon) = TextBox1.Value
Else
    MsgBox ComboBox1.Value & " Değeri Bulunamadı...."
End If
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
For i = 2 To [B65536].End(3).Row
    ComboBox1.AddItem s1.Cells(i, "B")
Next i
End Sub

 

[sakaryavedat]

Tam istediğm gibi olmuş.

Elinize sağlık teşekürler.

 

[Necdet]

Güle güle, iyi günlerde kullanınız.