CommandButton12 kayıt yapmıyor

[Hacı Bayram ÖZKAN]

Korhan bey, sizin hazırlamış olduğunuz, ekli dosyada görevin tarihi ve görevin nevi için excelde bir icmal sayfası oluşturdum, ve CommondButton12 ile de bu sayfaya kayıt yapması için siteden kod aldım ama çalışmıyor, buna bir bakarmısın, teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Değişken tanımlaması yapmadığınız için hata alıyorsunuz.

Aşağıdaki kodu deneyin.

Private Sub CommandButton12_Click()
[COLOR=red]    Dim Satır As Long
[/COLOR]    Satır = Sheets("İCMAL").Range("A65536").End(xlUp).Row + 1
    Sheets("İCMAL").Range("B" & Satır).Value = TextBox2.Text
    Sheets("İCMAL").Range("C" & Satır).Value = TextBox3.Text
    Sheets("İCMAL").Range("D" & Satır).Value = TextBox4.Text
    Sheets("İCMAL").Range("E" & Satır).Value = TextBox31.Text
    Sheets("İCMAL").Range("F" & Satır).Value = TextBox32.Text
    Sheets("İCMAL").Range("A2") = 1
    Sheets("İCMAL").Range("A2:A" & Satır).DataSeries rowcol:=xlColumns, _
    Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
    MsgBox "Kayıt Başarı İle Yapıldı"
End Sub

 

[Hacı Bayram ÖZKAN]

Eksik olmayın teşekkürler.

 

[Hacı Bayram ÖZKAN]

Korhan Bey son bir sorum var, özür dilerim sıkıcı oluyorum ama, bu icmal sayfasını ikinci bir userform üzerine alabilirmiyiz. İcmaldeki personeli görmek için ona göre görev vereceğiz. Yani bir bütonla personelin hangi görevlere hangi tarihte gittiği. zamanınız olursa tekrar kusura bakmayın.

 

[Korhan Ayhan]

Merhaba,

Tabiki istediğiniz nesneleri farklı bir forma alabilirsiniz. Fakat bunu kendiniz yapmalısınız. Benim yapmam size birşey kazandırmaz. Zaten forumda bu konularla ilgili yüzlerce örnek var. Arama yaparsanız ulaşabilirsiniz.