Userformdan sırayla yatay veri girişi

[byfika]

Merhabalar, Userform üzerindeki combobox tan veri seçip, textbox a rakam girilmekte.

YAPMAK İSTEDİĞİM;

Veri seçimine göre, B sütunundan M sütununa kadar zaman zaman userform üzerinden sağa yatay olarak (boş ilk sütuna) veri ismine göre girişler nasıl yapılabilinir?

 

[ÖmerBey]

Merhaba,
Veri kaydet kodunuzu aşağıdaki biçimde düzenleyiniz.

Private Sub CommandButton1_Click()
With Sheets("Sayfa1")
satir = .Range("A2:A21").Find(ComboBox1, , xlValues, 1).Row
sutun = .Cells(satir, Columns.Count).End(xlToLeft).Column + 1
    If sutun > 13 Then
        MsgBox "Alan dolu"
    Else
        .Cells(satir, sutun) = TextBox1
        MsgBox "Kayıt tamamlandı."
    End If
End With
End Sub

 

[byfika]

Merhabalar Sayın Ömer bey,
İlginize çok teşekkürler, Yazdığınız kodları uyguladım. Gönderdiğiniz kodların uygulandığı örneği ekliyorum. Saygılarımla...

 

[EmrExcel16]

Alternatif..

 

[ÖmerBey]

Yüklediğiniz dosya gayet güzel çalışıyor. Ya da ben sizin isteğinizi yanlış anladım.
Yüklediğiniz dosyada form açıldıktan sonra comboboxtan veri seçimi yapıp, textboxa veri girin ve kaydet tuşuna basın.

 

[byfika]

Merhabalar, Sayın EmrExcel16, kodlar için teşekkürler. Saygılarımla...

 

[byfika]

Merhabalar Ömer Bey, benim klavyeden (NumLock hatasından) kaynaklanan hatadan çalışmamış. Düzeltince çalıştı. Formdada düzeltmiştim. Tekrar çok teşekkürler... Saygılarımla.

 

[EmrExcel16]

Merhabalar, Sayın EmrExcel16, kodlar için teşekkürler. Saygılarımla...

Rica ederim , iyi çalışmalar.