makroda hep aynı satıra kaydetme hatası

[damra2005]

aşağıdaki makro hep aynı satıra kaydediyor. lütfen yardım çıldıracağım

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim bak As Range
Dim say As Integer
For Each bak In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
If bak.Value = cbad.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("a2:a" & WorksheetFunction.CountA(Range("a2:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbad.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("b2:b65000"))
TextBox1.Value = say
Cells(say + 1, 1).Value = TextBox1.Value
Cells(say + 1, 2).Value = cbad.Value
Cells(say + 1, 3).Value = TextBox3.Value
Cells(say + 1, 4).Value = TextBox4.Value
Cells(say + 1, 5).Value = TextBox5.Value
Cells(say + 1, 6).Value = TextBox6.Value
Cells(say + 1, 7).Value = TextBox7.Value
Cells(say + 1, 8).Value = TextBox8.Value
Cells(say + 1, 9).Value = TextBox9.Value
MsgBox "Veriniz Kaydedildi", , "KAYIT"

cbad.RowSource = "Sayfa1!b2:b" & say + 1
TextBox1.Value = WorksheetFunction.Count(Range("A2:A65000")) + 1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[bedersu]

MERHABA,
Cells(say + 1, 1).Value

say+1 hep aynı olur tabi.
for i = 1 to 9 deyip say+i deyin bakalım

 

[damra2005]

kPrivate Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim bak As Range
Dim say As Integer
For Each bak In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
If bak.Value = cbad.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("a2:a" & WorksheetFunction.CountA(Range("a2:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbad.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("b2:b65000"))
TextBox1.Value = say
For i = 1 To 9
Cells(say + i).Value = TextBox1.Value
Cells(say + i).Value = cbad.Value
Cells(say + i).Value = TextBox3.Value
Cells(say + i).Value = TextBox4.Value
Cells(say + i).Value = TextBox5.Value
Cells(say + i).Value = TextBox6.Value
Cells(say + i).Value = TextBox7.Value
Cells(say + i).Value = TextBox8.Value
Cells(say + i).Value = TextBox9.Value
Next
MsgBox "Veriniz Kaydedildi", , "KAYIT"

cbad.RowSource = "Sayfa1!b2:b" & say + 1
TextBox1.Value = WorksheetFunction.Count(Range("A2:A65000")) + 1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
odu aşağıdaki gibi değiştirdim fakat bu sefer hiç kaydetmiyor

 

[Levent Menteşoğlu]

[vb:1:1d2949ee98]say = WorksheetFunction.CountA(Range("b2:b65000"))
[/vb:1:1d2949ee98]

yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.

[vb:1:1d2949ee98]say = WorksheetFunction.CountA(Sheets("sayfa1").Range("b2:b65000"))
[/vb:1:1d2949ee98]

 

[bedersu]

acele işe ......

 

[damra2005]

sayın bedersu ramazan mübarek günde bu yapılırmı

 

[bedersu]

Senin kalbin kararmış sayın damra2005 :lol: Ben ne dedim ki?acele ettim dedim işte yavvv :mrgreen:

 

[damra2005]

eğer bu forumda birşeyler yapmaya meraklı arkadaşları bu yaptığınız bir yıldırma politikası ise başka. ama kimin kalbinin karardığı açık ara belli. O noktaları oraya koyanınmı, yoksa benim mi bunun kararını forumdaki arkadaşlara bırakıyorum

 

[ALPEN]

O noktaları oraya koyanınmı, yoksa benim mi bunun kararını forumdaki arkadaşlara bırakıyorum

Bize bırakıyorsanız benim anladığım

Sayın bedersu'nun acele ile cevap verip ufak bir hata yapması, neticesindede "acele işe şeytan karışır" demek istemesinden başka bir şey değildir olay.

eğer bu forumda birşeyler yapmaya meraklı arkadaşları bu yaptığınız bir yıldırma politikası ise başka.

Þu cümleye yorum yapmayacağım.

 

[damra2005]

sevgili alpen rabbim insanları farklı farklı yaratmış. herkesin anlayışı farklıdır. sende böyle anlamışsın. diyecek başka bir şeyim yok o zaman. kusura bakmayın

 

[Levent Menteşoğlu]

Sn damra2005

Durum tamamen Sn ALPEN'in belirttiği gibidir, Sn bedersu yardımlarını ve bilgisini bizlerden esirgemeyen, paylaşımcı ve sizin gibi değerli bir üyemizdir, sizin düşündüğünüz tarzda bir insan asla değildir. Sizden yazılanları yanlış yorumlamamanızı rica ediyorum.

 

[bedersu]

anaaaa,

iki gün girmedim foruma neler olmuş yav.Sayın damra2005;

Dikkat ederseniz Hyır mübarek Ramazan günü böyle demeyin mesajınızdan sonra attığım ve "Sizin Kalbiniz kararmış" dedğim mesajda gülen adam resimleri var.Bu da benim o anda espri yaptığımın bir tescilidir değil mi?Lafı alıp taa nerelere götürmüşsünüz.Ben acele işe dedikten sonra nokta koydum çünkü yazı ile bile olsa Þeytan'ın ismini , mecbur kalmadıkça ne yazarım ne de kullanırım.Siz Hayır mübarek Ramazan dedikten sonra benim bu yazdığımın başka anlamda anlaşıldığını anladım ve sırf o yüzden,espri olsun diye kalbiniz kararmış dedim.Ki biz samimi arkadaşlar arasında bunu hep yaparız.Senin kalbim kararmış dostum,Allah ıslah etsin seni deriz.Güler geçeriz.Ben sadece samimiyete binaen bu tip bir laf ettim.Siz tutup yıldırma politikası demişsiniz.Bu kadar sert bir çıkışa inanın anlam veremedim.Ayrıca forum benim mi ki yıldırayım sizi?Neyse.Hakkınızı helal edin.Yoruma açık laflar etmemeliydim.Sayın ALPEN ve Leventm'den de Allah razı olsun.Ben yokken hakkımı savunmuşlar.