Soru Sadece sütunların ilk satırına Kaydet

[sirkülasyon]

TextBox1 de ki değeri B1 hücresine
B1, dolu ise C1 hücresine
C1 hücresi dolu ise D1 hücresine kaydedecek ve eğer aynı ad var ise uyarı verecek bir koda ihtiyacım var. Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Dim Sutun As Integer
    Sutun = Cells(1, Columns.Count).End(1).Column + 1
    If Sutun < 2 Then Sutun = 2
    Cells(1, Sutun) = TextBox1
End Sub

 

[sirkülasyon]

Korhan abi Ellerine sağlık. Teşekkür ederim. Mükerrer kayıt olur ise engelleyebilir miyiz?

 

[Korhan Ayhan]

Forumda yüzlerce mükerrer kayıt uyarı kodlaması paylaşıldı. Bunu artık sizlerin yapabiliyor olması gerekmez mi?