Takip Sayfası

[mbattal]

Arkadaşlar Merhaba,
Yeni bir sayfa hazırlıyorum fakat sizin bilginize ve ilginize ihtiyacım oldu.
1-Takip sayfasındaki Giriş adet ve Çıkış adet sütunları ETOPLA formülüyle Giriş ve Çıkış sayfasından veri alıyor. Giriş ve Çıkış sayfalarının satır sayısı çok fazla olduğundan problem oluyor. Bu formülü makro ile yapabilirmiyiz.
2-Giriş ve Çıkış sayfalarındaki 1,2 ve 3 başlıklı sütunlara veri girince Kod sütununun otomatik olarak yazılmasını makro ile sağlayabilirmiyiz.
örneğin :
KOD 1 2 3
5001 10 11 2

Takip ve Fiyatlar sayfası 1100 satırla sınırlı Fakat Giriş ve Çıkış sayfası 20 - 30 bin satır olabilir

Söz konusu dosya ektedir.

 

[hamitcan]

Her kodu kendi sayfası içinde çalıştırın.

Sub ETOPLA()
For x = 5 To 1100
giris = WorksheetFunction.SumIf(Sayfa3.[b5:b5000], Sayfa1.Range("a" & x), Sayfa3.[h5:h5000])
cikis = WorksheetFunction.SumIf(Sayfa4.[b5:b5000], Sayfa1.Range("a" & x), Sayfa4.[h5:h5000])
Sayfa1.Cells(t, "i") = giris
Sayfa1.Cells(t, "j") = cikis
Next
End Sub

Kodu çağırmak istediğiniz satır üzerine gelin ve aşağıdaki kodu çalıştırın.

Sub GETIRgiris()
Set s1 = Sheets("TAKİP").Range("b5:b1100")
For Each hucre In s1
bul = hucre & hucre.Offset(0, 1) & hucre.Offset(0, 2)
veri = Cells(ActiveCell.Row, "c") & Cells(ActiveCell.Row, "d") & Cells(ActiveCell.Row, "e")
If veri = Empty Then Exit Sub
If bul = veri Then Sheets("GİRİŞ").Cells(ActiveCell.Row, "b") = hucre.Previous
Next
End Sub

Kodu çağırmak istediğiniz satır üzerine gelin ve aşağıdaki kodu çalıştırın.

Sub GETIRcikis()
Set s1 = Sheets("TAKİP").Range("b5:b1100")
For Each hucre In s1
bul = hucre & hucre.Offset(0, 1) & hucre.Offset(0, 2)
veri = Cells(ActiveCell.Row, "c") & Cells(ActiveCell.Row, "d") & Cells(ActiveCell.Row, "e")
If veri = Empty Then Exit Sub
If bul = veri Then Sheets("ÇIKIŞ").Cells(ActiveCell.Row, "b") = hucre.Previous
Next
End Sub