Çözüldü Satır Sorunu

[Local]

Dim x As Long
Dim y As Long
Dim sor As Byte




If cbborcalacak.value = "BORÇ" Then

sor = MsgBox("Cariye borç girişi yapılacaktır.Onaylıyor musunuz.?", vbYesNo + vbDefaultButton1 + vbQuestion, "CARİ BORÇLANDIR")

If sor = 7 Then Exit Sub



Dim cariHesapLastRow As Long
cariHesapLastRow = Sheets("CariHesap").Cells(Rows.Count, "A").End(xlUp).Row + 1
For y = 2 To 1000
If Sheets("CariHesap").Range("A" & y).value = cbCariKodu.value Then Exit For
Next

Sheets("CariHesap").Range("B" & y).value = cbCariKodu.value
Sheets("CariHesap").Range("C" & y).value = txtcariadi.value
Sheets("CariHesap").Range("E" & y).value = txtvergino.value






For x = 2 To 1000
If Sheets("CariHareketleri").Range("A" & x).value = "" Then Exit For
Next



Sheets("CariHareketleri").Range("A" & x).value = txttarih.value
Sheets("CariHareketleri").Range("B" & x).value = Format(txtsaat.value, "hh:mm")
Sheets("CariHareketleri").Range("C" & x).value = txtislemkodu.value
Sheets("CariHareketleri").Range("D" & x).value = cbCariKodu.value
Sheets("CariHareketleri").Range("E" & x).value = "CARİ BORÇLANDIRILDI"
Sheets("CariHareketleri").Range("F" & x).value = txtcariadi.value
Sheets("CariHareketleri").Range("G" & x).value = txttutar.value
Sheets("CariHareketleri").Range("H" & x).value = 0
Sheets("CariHareketleri").Range("I" & x).value = "CARİ BORÇLANDIR"
Sheets("CariHareketleri").Range("J" & x).value = txtcariadi.value & " FİRMASINA " & Format(txttutar.value, "#,##0.00") & "TL" & "TUTARINDA BORÇ GİRİŞİ YAPILDI."

Sheets("CariHesap").Range("O" & y).value = CDbl(Sheets("CariHesap").Range("O" & y).value) + CDbl(txttutar.value)
Frmmesaj.lblmesaj.Caption = ""
frmmesaj42.show

Merhaba yukarıdaki kodlarla kayıt yapmaya çalışıyorum fakat Carihesap sayfasına boş satırı bulamayıp her seferinde 1000. satıra kayıt yapıyor ama carihareketleri sayfasında böyle bir sorun yok carihesap sayfasında satır sorunu yaşıyorum.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba yukardaki kodda boş satır varsa çık komut var mı?
Ayrıca son satır tanımlayıp kullanmamışsınızki zaten öncedende yazmıştım döngü ile değil son satır no ile kaydedin diye.
Neyse konu yine fazla uzamaması için dosya ekleyin yada siz bilirsiniz abey.

 

[Refaz]

İşin özü alttakikod ile eşitlik sağlanmazsa 1000 e kadar gitmesi normal.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Local]

Şuan dosyayı ekleyemiyorum ne yapmamız gerek.Ama Cari Hareketlerinde böyle bir sorun yok

 

[Refaz]

Şuan dosyayı ekleyemiyorum ne yapmamız gerek.Ama Cari Hareketlerinde böyle bir sorun yok

Cevabı yazmıştım.

 

[SNNAY]

Deneyiniz

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Soru tam anlaşılmıyor ama resimdeki gibi deneyebilirsiniz.
Heralde cbCariKodu.Value buna eşitse CariHesap safasına işlemler yapılacak.