Merhabalar bir stok çalışması yapmaya çalışıyorum bir kaç yerde takıldım. Yardım ederseniz sevinirim.
Aşağıdaki kodu sayfaya1 yükledim eksikleri var.
1- Kod programı D Sütununn en son satırına veri girince değeri direk Stok sayfasının ilgili satırına eklensin.
2. Stoktaki B stünuna veriler eklendikçe Sıra Numarası otomatik verilsin
3. sayfa1 den gelen benzersiz değerlerin karşısındaki G3:G1000 toplamları stok sayfasında C sütununda alınsın. Örnek verecek olursak
Stok B3 M.SODA nın C3 212 olmalı gibi
Sub listele()
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim i As Long, son As Long, son1 As Long, son2 As Long, sat As Long
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Stok")
Application.ScreenUpdating = False
son = S1.[D65536].End(3).Row
S2.Range("b3:b65536").ClearContents
sat = 2
For i = 3 To son
If WorksheetFunction.CountIf(S1.Range("d3:d" & i), S1.Cells(i, "d")) = 1 Then
sat = sat + 1
S2.Cells(sat, "b") = S1.Cells(i, "d")
End If
Next
End Sub
-
- Destek
-
Özel Arama