Excel sayfasına kayıt

[fehdur]

Arkadaşlar Merhaba.Aşağıdaki kod ile excel sayfasına kayıt yapıyorum fakat kayıt yapmaya 15.satırdan itibaren başlatmam gerekiyor.Yardımcı olursanız sevinirim.

mutlu = Sheets("Takip").Cells(Rows.Count, "h").End(3).Row + 1
If ListBox2.ListIndex = -1 Then Exit Sub
For a = ListBox2.ListCount - 1 To 0 Step -1
If ListBox2.Selected(a) = True Then
Sheets("Takip").Cells(mutlu, "J") = ListBox2.List(a, 0)
Sheets("Takip").Cells(mutlu, "I") = TextBox15
Sheets("Takip").Cells(mutlu, "H") = TextBox16.Value
End If
Next:

 

[Korhan Ayhan]

Bu kod bloğu hangi satıra kayıt yapıyor?

 

[fehdur]

Merhaba hocam.Bilgisayarı yeni açtım.Kod bloğu 2.satırdan itibaren kayıt yapıyo

Bu kod bloğu hangi satıra kayıt yapıyor?

Kod bloğu 2.satırdan itibaren kayıt yapıyor.
r

 

[Korhan Ayhan]

Sayfada başlık satırı var mı?

 

[seddur]

Başlık satırı var

 

[Korhan Ayhan]

Başlık satırınız kaçıncı satırda?

 

[seddur]

1.satırda.

 

[Korhan Ayhan]

Merhaba,

Değişkenlerinizde isim kullanmak yerine okurken anlam kazandıracak Satir-Sutun-Kayit-Kolon gibi ifadeler kullanmanızı tavsiye ederim.

Kod içinde ki aşağıdaki satırı bir sonraki gibi değiştirip deneyiniz.

mutlu = Sheets("Takip").Cells(Rows.Count, "h").End(3).Row + 1

Olması gereken;

mutlu = Sheets("Takip").Cells(Rows.Count, "h").End(3).Row + 1
if mutlu < 15 Then mutlu = 15

 

[seddur]

Sağolun 15.satırdan itibaren yazmaya başladı.Ben daha önce mutlu=15 veya mutlu.rows(15) gibi şeyler denemiştim.