kayıt makrosu hatası

[levuu]

merhaba
ekteki dosyada kayıt makrosu verileri aynı yere kayıt ediyor?

teşekkürler.

 

[Levent Menteşoğlu]

Aynı yere kaydetmesi normal, çünkü sadece 8. satıra kayıt yapacak şekilde tanımlamışsınız, aşağıdaki gibi satır değerini değişken yapın.

sonsat = Sheets("satıs sayfası").[b65536].End(3).Row + 1
Sheets("satıs sayfası").Cells(sonsat, "b") = TextBox2
Sheets("satıs sayfası").Cells(sonsat, "c") = TextBox3
Sheets("satıs sayfası").Cells(sonsat, "d") = TextBox4
.
.
.

 

[levuu]

sn leventm teşekkürler..

ancak gerekli düzeltmeleri yaptım ama hata veriyor dosya ektedir

 

[udentr2002]

dosyanızı 2. defa açmaya çaılışınca sebebini bilmiyorum ama dosyanızdan vba ya giremedim burdan yazmaya çalışayıM
kaydet butonun altına

set s1=sheets("satıssayfası")
a=s1.[a65536].end(3).row+1
s1.Cells(a + 1, "a") = textbox1
s1.Cells(a + 1, "b") = TextBox2
s1.Cells(a + 1, "c") = textbox3
s1.Cells(a + 1, "d") = textbox4
s1.Cells(a + 1, "e") = textbox5
....
....
....
...

şeklinde deneyin

Bu arada sanırım kodlasrınızın çalışmamasının sebebi
Dosaynızdaki sayfanın ismi "SATIS SAYFASI"
ama siz kodlarınızda sheets("satıssayfası") demişsiniz
sayfanızın adını kodlarınzdaki gibi değiştirin ama tavsiyem türkçe karekter veya boşluk bulunmasın sayfanızın adında

 

[Orion1]

Merhaba.
Hata veren satırın üstüne aşağıdaki kodu yazın.
Ancak yine hata verecektir.Çünkü kodlarda textbox32 diye işlem yaptırılmış.
Oysa sizin userformunuzda Textbox32 nesnesi yok.

Dim sonsat As Long

 

[udentr2002]

özür

kodda hata yapmışım aşağıdaki gibi yapın vede sayfanızın adını "satissayfasi" şeklinde dğiştirin
Set s1 = Sheets("satissayfasi")
a = s1.[a65536].End(3).Row + 1
s1.Cells(a, "a") = TextBox1
s1.Cells(a, "b") = TextBox2
s1.Cells(a, "c") = TextBox3
...
...
...



not olarak dosyanızda sanırım TAKSİT SAYISI VE TAKSİT MİKTARINI belirten textboxlarınızın numarsıda bana bi garipo geldi textbox22666 vede textbox236666 şeklinde görünüyor bence formunzu revize etmelisiniz
inşallah bir faydası olur