eşleşme ile stok takibi

[kotell]

aynı çalışma sayfasındaki verileri eşleştirerek stok takibi yapma mümkün olurmu

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/8DTxHSznFgL2b

Sub KOD()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Set S1 = Sheets("STOK")

S1.Cells.Interior.ColorIndex = xlNone
S1.Range("I2:K65536").ClearContents

For i = 1 To Sheets.Count
Sheets(i).Select

If ActiveSheet.Name <> "STOK" And ActiveSheet.Name Like "rapor" & "*" Then

For Each a In S1.Range("E2:E" & S1.[E65536].End(3).Row)
If a <> "" Then
Set ara = Range("A:A").Find(a, , xlValues, xlWhole)
If Not ara Is Nothing Then

a.Offset(0, 4) = ara
a.Offset(0, 5) = ara.Offset(0, 3)
a.Offset(0, 6) = ara.Offset(0, 4)

S1.Range(a.Address(0, 0) & ":K" & a.Row).Interior.ColorIndex = 6

End If
End If
Next a

End If

Next i

Sheets("STOK").Select
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[kotell]

hocam eline saglık tesekkür ederim eline saglık bir küçük itegim daha var calıştır butonunun altına
girilen ime no ları syıs yani e sutunu girilen birde boyananların sayısını gosteren iki kutucuk koya bilirmiyiz zamanınız varsa herseyiçin sagol hocam

 

[Emir Hüseyin Çoban]

. . .

Yapılabilir.
Ancak hangi nesnenin üzerine yazmak istiyorsunuz.
Label? Textbox? Hücreye? Msgbox ile vb. bunlardan birini belirtmelisiniz


. . .

 

[kotell]

Textbox olur m1 ve n1 e yerleştirelim birde a1 den c1 ekadar kırmızı yapıyorum renk kabul etmiyor birde sarı rengi yeşille degişelim ben fomülü anlıyamadıgım için bir içlem yapmıyorum hocam sagolun

 

[kotell]

hocam bedel karşılıgı bu dosyayı user formla yapabilirmiyiz biraz daha gelişmiş baxı raporlarda alabşlmek için

 

[kotell]

. . .

Yapılabilir.
Ancak hangi nesnenin üzerine yazmak istiyorsunuz.
Label? Textbox? Hücreye? Msgbox ile vb. bunlardan birini belirtmelisiniz


. . .

hocam dosyama bir bakarmısınız lütfen

 

[Emir Hüseyin Çoban]

Textbox olur m1 ve n1 e yerleştirelim

STOK Sayfasına textbox1 ve textbox2 ekleyin.
Aşağıda kırmızı ile belirttiğim satırları ilave edin.

Next i
Sheets("STOK").Select
[COLOR="Red"]Sayfa1.TextBox1.Text = WorksheetFunction.CountA(S1.Range("E2:E65536"))
Sayfa1.TextBox2.Text = WorksheetFunction.CountA(S1.Range("I2:I65536"))[/COLOR]
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

birde a1 den c1 ekadar kırmızı yapıyorum renk kabul etmiyor

Diğer renklendirmeleri kodlarda ben iptal ettim.
S1.Cells.Interior.ColorIndex = xlNone satırını silerek iptal edebilirsiniz.
Ancak renklendirme çalışmalarında önce eski renklerin temizlenmesini tavsiye ederim.

birde sarı rengi yeşille degişelim ben fomülü anlıyamadıgım için bir içlem yapmıyorum hocam sagolun

Yeşil yapmak için bu satırdaki ColorIndexi 10 yapın.
S1.Range(a.Address(0, 0) & ":K" & a.Row).Interior.ColorIndex = 10


. . .