sonsuz döngüye giriyor kafayı kıracam:(

[kgulle]

arkadaşlar 3 tane sayfam var ilk sayfada depoye giren ürünler olacak ikinci sayfadada çıkan ürünler 3.sayfadada durum yani elimzdeki stok listelenecek ama benim yazdığım makro işini yapıyor ama sonsuz döngüye giriyor
http://nurtas.net/Kitap1.xlsm

 

[zafer]

Merhaba

Stok sayfasında ne yaptığınızda makro çalışsın .
Veya
bir button yardımıylada yapabilirsiniz.

Tam olarak ne yapmak istediğinizi açıklayabilirmisiniz.

 

[İhsan Tank]

arkadaşlar 3 tane sayfam var ilk sayfada depoye giren ürünler olacak ikinci sayfadada çıkan ürünler 3.sayfadada durum yani elimzdeki stok listelenecek ama benim yazdığım makro işini yapıyor ama sonsuz döngüye giriyor
http://nurtas.net/Kitap1.xlsm

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub stok_çalışma_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, asi
Set bordo = Sheets("GİRİŞ")
Set mavi = Sheets("ÇIKIŞ")
Set asi = Sheets("STOK")
trabzonspor = MsgBox("Stokları Çıkarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
asi.Range("C4:I" & Rows.Count).ClearContents
kaplan = 4
For ts = 4 To bordo.Cells(Rows.Count, "C").End(xlUp).Row
If WorksheetFunction.CountIf(bordo.Range("C2:C" & ts), _
bordo.Cells(ts, "C")) = 1 Then
asi.Cells(kaplan, "C") = bordo.Cells(ts, "C")
asi.Cells(kaplan, "D") = bordo.Cells(ts, "D")
asi.Cells(kaplan, "E") = bordo.Cells(ts, "F")
asi.Cells(kaplan, "F") = bordo.Cells(ts, "G")
asi.Cells(kaplan, "G") = bordo.Cells(ts, "I")
asi.Cells(kaplan, "H") = bordo.Cells(ts, "J")
kaplan = kaplan + 1
End If
Next
For ts = 4 To asi.Cells(Rows.Count, "C").End(xlUp).Row
asi.Cells(ts, "I") = WorksheetFunction.SumIf(bordo.Range("C:C"), _
asi.Cells(ts, "C"), bordo.Range("K:K")) - WorksheetFunction.SumIf( _
mavi.Range("C:C"), asi.Cells(ts, "C"), mavi.Range("K:K"))
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Stokları Çıkarıyorum", , "Bitiş"
End Sub

 

[kgulle]

teşekkür ederim trabzonsporlu kardeşim Allah razı olsun ne desem az

 

[kgulle]

bu arada bir kaç sorum olacak hocam müsadenizle...
.Cells(ts, "C") burada ts değişkeni date olmak zorunda mı acaba
asi.Cells(Rows.Count, "C").End(xlUp).Row buda kayıt olan son satır sıra numarasını mı veriyor

 

[İhsan Tank]

bu arada bir kaç sorum olacak hocam müsadenizle...
.Cells(ts, "C") burada ts değişkeni date olmak zorunda mı acaba
asi.Cells(Rows.Count, "C").End(xlUp).Row buda kayıt olan son satır sıra numarasını mı veriyor

Cevap1
Date ~ Tarih olmasına gerek yok direk aktarım yapar.
Cevap2
Bu kod döngüde son satırı bulmaya yarıyor mesela son satır 50 ise bu kod 50 değerini bulur. Bu kodu aynı zamanda

asi.range("C"&rows.count).end(xlup).row

Şeklindede yazabilirsiniz.

 

[kgulle]

teşekkür ederim hocam

 

[İhsan Tank]

teşekkür ederim hocam

Rica ederim
:keyif: