Yeni kayıta tıkladığımda sıra numarasının otomatik artması

[celine]

Yeni kayıta tıkladığımda sıra numarasının otomatik artması

Yeni kayıt butonuna tıkladığımda sıra nonun otomatik artmasını istiyorum. Bu butonun içinde yeralan kodlar bunlar:

Private Sub BTNYENI_Click()
On Error Resume Next
Call Formu_Temizle
ALANSIRA.Value = L05.Caption + 1
Call EkranYeniKayıt
ISINADI.SetFocus
kayıt = True
End Sub

Sıra numarasını gösteren textboxın içinde yer alan kodlarda bunlar:

Private Sub ALANSIRA_Change()
On Error Resume Next
L03.Caption = ALANSIRA.Value
End Sub

fakat ben hatayı birtürlü bulamıyorum.

Birde sıra numarası veren fonksiyonda şu:

Sub SıraNoVer()
On Error Resume Next
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
Me.A01.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
Me.A01.Value = 1
End If
End Sub

Burada hata nedir normalde otomatik artırması gerekmiyormu acaba??
Yardımcı olursanız çok sevinirim..

 

[Ferhat Pazarçevirdi]

Mümkünse dosyanızı eklermisiniz?

 

[celine]

Dosya ekte..

 

[Ferhat Pazarçevirdi]

İlgili kodunuzu şu şekliyle değiştirin.

 Private Sub BTNYENI_Click()
On Error Resume Next
Call Formu_Temizle
'ALANSIRA.Value = L05.Caption + 1
ALANSIRA.Value = Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("A12:A10000")) + 1
Call EkranYeniKayıt
ISINADI.SetFocus
kayıt = True
End Sub

 

[celine]

Sn fpc çok teşekkür ederim, dediğinizi yaptım ve işime yaradı kayıt noyu otomatik olarak arttırıyor. Fakat yeni bi kayıt girdiğimde diğerinin üstüne yazıyor, ben girilen her kayıtın alt alta sıralanmasını istiyorum.. Düzelttiğim örneği ekte tekrar yolluyorum.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.
Şunlar yeni ilave edildi ve değiştirildi. İnceleyiniz.
1. Kod sayfasının başına aşağıdaki eklendi.

Dim son As Integer

2. Sonkayıt makrosu iptal edildi Yerine altına yazdığım kodlar ilave edildi.

Private Sub BTNKAYDET_Click()
On Error Resume Next
If kayıt = True Then
'Call SonKayıt
Set sh = Sheets("Sayfa2")
son = sh.Cells(65536, 1).End(xlUp).Row
sh.Activate
sh.Cells(son + 1, 1).Select
Call VeriKaydet
Call EkranKaydet
Else
Call VeriKaydet
Call EkranKaydet
End If
Set sh = Nothing
kayıt = False
End Sub

3. Verikaydet makrosuna şu satır ilave edildi.

Sheets("Sayfa2").Range("A" & son + 1).Select

 

[celine]

Sn fpc,
çok çok teşekkürler yaptım ve oldu, yalnız sadece sayfa2 de kayıt artıyordu sizin kodunuzdan yararlanarak aynı şeyi sayfa1de de VeriKaydet() fonksiyonuna şu kodu:

Sheets("Sayfa1").Range("A" & son + 1).Select

uyguladım ve oradada artırım oldu. Çok sağolun yardımınız için

 

[celine]

Sn fpc,
dosyamın son halini ekte size yollamak istiyorum. 3 tane combobox ekledim ve bunları sayfa1e ve sayfa2 ye yazdırmak istiyorum. Fakat 3 üde birbirine bağlı, 4. sü ve 5. ise bağımsız birinde sadece ilçeler diğerinde ise 2000-2007 arası yıllar olucak olucak fakat onuda sayfa1 ve 2ye yazdırmak istiyorum. Uğraştım fakat yapamadım zaten sizde görüceksiniz, "giris" sayfasında birbirine bağlı comboboxların alacağı değerler yazıyor. Yardımcı olabilirseniz çok sevinirim.

 

[celine]

Sn fpc,
deminki dosyaya değilde şimdi gönderdiğime bakarsınız.. Düzeltme yaptımda.

 

[Ferhat Pazarçevirdi]

Sanırım; "RAPOR" adındaki Userformdan bahsediyorsunuz. Üçü birbirine bağlı derken, nasıl bir bağlantıdan bahsediyorsunuz anlayamadım.

 

[celine]

Hayır rapor değil diğer userformdan bahsediyorum, ona bakarak raporu kendim yapıcam. tabi yardım ederseniz.. Bakın şöyle sağ üstte bulunan comboboxlar şimdi gönderdiğim ekteki gibi olucak yalnızca frmyaklasik userformuna entegre edemedim.

 

[Ferhat Pazarçevirdi]

Öncelikle; comboboxları dolduralım.

Kitabınızdaki kodları aşağıdakilerle değiştirin, lütfen.

Şimdi normak kaydet butonunuz Sayfa2'ye kayıt yapıyor. SAayfa 2 için bir parametre ayarlamamız lazım vey şöyle sorayım : Bu userfomdaki bilgiler her iki sayfaya da kaydedilecek mi? Yoksa sayfa seçimi yapılacak mı?

Private Sub UserForm_Activate()
Dim sonhucre
sonhucre = WorksheetFunction.CountA(Worksheets("giris").Range("B41:B45"))
'ComboBox1.RowSource = "giris!B1:B" & sonhucre
End Sub

Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
son = Application.CountA(Columns(1))
With ComboBox1
 .Clear
 .ListWidth = 150
  For i = 41 To 45
     .AddItem Sheets("giris").Cells(i, 2)
  Next i
End With
With ComboBox2
 .Clear
 .ListWidth = 150
  For i = 46 To 48
     .AddItem Sheets("giris").Cells(i, 3)
  Next i
End With
With ComboBox3
 .Clear
 .ListWidth = 150
  For i = 49 To 57
     .AddItem Sheets("giris").Cells(i, 4)
  Next i
End With
ALANSIRA.SetFocus
Call SonKayıt
'ActiveCell.Offset(-1, 0).Select
Call EkranKaydet
Call VeriAl
kayıt = False
ISINADI.Value = Format(ISINADI.Value, "##,##0.00")
'TextBox1.Value = Format(CDbl(TextBox1.Value), "##,##0.00")
End Sub

 

[celine]

demin dediğim dosya şimdi ekte, her iki sayfayada yazılacak zaten çalıştırdığınız zaman hangi sayfaya ne yazıldığı görünüyor ama bu comboboxtakiler her iki sayfayada yazılması gerekir sanırım, çünük daha sonra rapor alıcam.

 

[celine]

Dediiğinizi yaptım fakat runtime error veriyor ve birkerede debug yaptığımda frmyaklasik.show satırını gösterdi. Son olarakda .Clear dan sonra hata veriyor bibakabilirmisiniz?

 

[Ferhat Pazarçevirdi]

Ben az önceki dosyayı görmeden göndermiştim o kodları ... Şimdi son gönderdiğinizin üzerinden revizyonlar yapıyorum

 

[Ferhat Pazarçevirdi]

Sn.Celine, ekteki dosyayı inceleyiniz.

Sayfa1'e kayıt prosedürünü de ilave ettim. Ancak sizin de sanırım Sayfa1'e kayıtla alakalı bir prosedürün çalışıyor. O nedenle Kaydet düğmesine bastığınızda Sayfa1'e çift kayıt işleniyor. Ben hangisini tercih edeceğinizi bilmediğimden, ikisinide bıraktım. Siz, isteğinize göre Sayfa1'e kaydeden prosedürlerden birini silersiniz.

Combolar da birbirine bağlandı. ve Sayfa1'e kayıta uygun hale getirildi.

Ama hakikaten kodlarınız yazım düzeni anlamında biraz karışık ve uğraştırıcı

 

[celine]

Çok çok teşekkür ederim..

 

[celine]

Sn fpc,
açıkçası ben bu kodalrı çözmeye vede tarihleri kendim koymaya çalıştım ama yapamadım. ay, yıl ve ilçeleri comboboxlara yerleştirmem lazım, ne yapmam gerekiyor?
Dosyanın son hali ekte.

 

[Ferhat Pazarçevirdi]

Ekli dosyadaki gibi olması lazım.

 

[celine]

Sn fpc,
herşey için çok çok teşekkürler, yalnız programda hatalı olan şey şuanda excelde kalan-(kalan yaklaşık maliyet,kalan kdv ym, vs) değerlerin hiçbirinin formülde olmasına rağmen girmemesi vede önceki kayıt, sonraki kayıt, ilk kayıt, son kayıt butonlarının çalışmaması. Ekte yolluyorum bibakarsanız...