MALZEME STOK SAYIM TABLOSU

[zehnisağcan]

Merhaba;

Aşağıda eklemiş olduğum tablo da C sütunundaki aynı malzemeleri bir başka sayfada bir araya getirmek istiyorum bana macro konusunda yardımcı olurmusunuz bir kaç tabloda işlerimi kolaylaştıracak.

örneğin:

1-C sütunu içerisindeki buzdolablarını bulup,
2-yeni bir sayfa açarak
3-c sütunundaki duran varlık adını, giriş yılını, ve varlık numarasını aktarmak. (giriş yılına göre sıralama)
4-sayfaya aktarılan varlıkların altına toplam sayısını vermesi.

Şimdiden teşekür ederim.

 

[zehnisağcan]

dosya nasıl yüklerim.

 

[1903emre34@gmail.com]

Dosyasını gerçeğe uygun (özel bilgiler içermeyen) olarak http://s3.dosya.tc/

 

[zehnisağcan]

Çalışma dosyasını aşağıya yükledim.(Yardımcı olan hocama da teşekür ederim.)

http://s3.dosya.tc/server18/csehmz/Kaydatabiler_Dokumu.rar.html

 

[zehnisağcan]

günceldir destek bekliyorum.

 

[Ömer BARAN]

Merhaba.

İşlem sadece BUZDOLABI için yapılacaksa aşağıdaki kod'u kullanabilirsiniz.
Belgenizde BUZDOLABI isimli sayfa varsa önce o sayfayı silin, ardından kod'u çalıştırın.

Sub TASNIF_AKTAR_BRN()
Set v = Sheets("VERİ")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If v.AutoFilterMode = True Then v.AutoFilterMode = False
vson = v.Cells(Rows.Count, "C").End(3).Row
sabitk = "BUZDOLABI"
v.Range("A1:M" & vson).AutoFilter Field:=3, Criteria1:="*" & sabitk & "*"
Sheets.Add After:=ActiveSheet: ActiveSheet.Name = sabitk

v.Range("C1:C" & vson).SpecialCells(xlCellTypeVisible).Copy Sheets(sabitk).[B1]
v.Range("A1:B" & vson).SpecialCells(xlCellTypeVisible).Copy Sheets(sabitk).[C1]
skson = Sheets(sabitk).Cells(Rows.Count, 2).End(3).Row
For sat = 2 To skson
    Sheets(sabitk).Cells(sat, "D") = Year(Sheets(sabitk).Cells(sat, "D"))
    Sheets(sabitk).Cells(sat, "A") = sat - 1
Next
Sheets(sabitk).Columns("B").ColumnWidth = 100
Sheets(sabitk).Rows.AutoFit: Sheets(sabitk).Columns.AutoFit
Sheets(sabitk).Range("B2:D" & skson).Sort Sheets(sabitk).[D1], 1
If v.AutoFilterMode = True Then v.AutoFilterMode = False
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[zehnisağcan]

Sayın @Ömer BARAN hocam macroyu tabloya uyguladım. İlgin İçin Çok teşekür ederim.
yapmaya çalıştığım çalışma şöyle;

varlıkların icmalini oluşturmak kısacası.

buzdolabı, çamaşır makinası, kanepe nevresim vs.
bunları ben macro da buzdolabını değitirirerek uyguladım.
ama ben bunu tek bir butonla her varlığı sayfaya aktararak yaptırmak. (buzdolabını örnek olarak vermiştim.)

diğer bir konuda hocam, varlıklar giriş yılı tarih olarak değilde yıl bazında yazıyor, değiştirme şansın var ise sevinirim.

teşekür ederim bir kez daha, çok sağol.

 

[Ömer BARAN]

Son cevabınızda belirttiğiniz ANA GRUP ADLARInın olduğu bir liste ekleyerek örnek belgenizi yenilerseniz, uygun olduğumda bakarım.
.

 

[zehnisağcan]

televizyon, buzdolabı gibimi

 

[Ömer BARAN]

Ana grup adlarını bilme, tahmin etme, hücrelerden bulma ihtimali yok değil mi?
Evet öyle bir liste gerekli.
.

 

[zehnisağcan]

hocam 5000 küsür malzeme var, benim amacım da bunları icmal halinde sadeleştirmek istiyorum,
tv - tv dolabı gibi çerçevilli durumları seçenek konamaz mı o durumda sorma gibi

 

[zehnisağcan]

her malzemeyi ayrı ayrı sayfaya atıp yalnız kayıtta tv-tv dolabı gibi bir varlık var.
bu durum için seçenek olabilir mi
tarih de yıl olarak gösteriyor

 

[Ömer BARAN]

Tekrar merhaba.

Söylediğinizin halledilebileceğini sanmıyorum; örneğin TV için belirteyim.

51 EKRAN TV, ARÇELİK37EKRANTV, LED TV 32" (VESTEL) bilgilerinde TV ibaresi nasıl ayıklanacak.
TV ibaresi BOŞLUK karakteri sonrasında ve TEK BAŞINA olanları ayırdık diyelim (51 EKRAN TV, LED TV 32" (VESTEL) ).
ARÇELİK37EKRANTV ve AHŞAP TV DOLABI'nın aynı sayfaya dahil edilip edilmeyeceği neye göre karar verilecek?

Belki de VARLIK NO bilgisinden hareket etmek (kodlama mantığını siz biliyorsunuzdur ama ben bilemiyorum)
veya asıl listenin en sağındaki ilk boş sütuna grup adlarını siz yazarsanız ona göre işlem yapılabilir.

Her neyse, YIL döönüştürme kısmıyla ilgili olarak şunu belirteyim;
Verdiğim kod'da yer alan aşağıda kırmızı renklendirdiğim satırları silip onun yerine yeşil olan satırları eklerseniz YIL ile ilgili sorun hallolur.

For sat = 2 To skson
    Sheets(sabitk).Cells(sat, "D") = Year(Sheets(sabitk).Cells(sat, "D"))
    Sheets(sabitk).Cells(sat, "A") = sat - 1
Next
With Sheets(sabitk).Range("A2:A" & skson)
    .Formula = "=ROW()-1": .Value = .Value
End With

 

[zehnisağcan]

İşin doğrusu ;
kodlama mantığını bilmiyorum.
ama
elimde sabit bir liste var bunun dışına çıkmak da istemiyorum.
şöyle bir işlem yapılabilirmi varlık no daki aynı malzemeleri gruplandırıp sayfaya atma imkanı yok mu?

 

[zehnisağcan]

valla hocam bu konuyu çözebilsek benim işlerim için şuan ve ileride çok iyi olacak

 

[Ömer BARAN]

Böyle bir veriyle (C sütunu), mevcut yapıdaki gibi bir VARLIK NO (A sütunu) bilgisiyle (ürün türünü gösteren bir kodlama yapısı göremedim)
istediğiniz sistemde sınıflama mümkün görünmüyor (en azından beni EXCEL bilgim bunun için yeterli değil).

Anladığım kadarıyla eklediğiniz belge AMORTİSMAN Listesi.
Bu sabit kıymetlerin kayıtlı olduğu ANA HESAP GRUPLARI itibariyle işlem yapmanız yerinde olur.

Ayrıca AMORTİSMAN ORANI sütunundaki tüm değerler 0.00,
ya bu sütunda değerler olmalı ki bu orandan harektle EKONOMİK ÖMÜR taspit edilebilmeli,
ya da EKONOMİK ÖMÜR bilinmeli ki AMORTİSMAN ORANI tespit edilebilsin, AMONTİSMAN-ENF.DÜZELTMESİ vs. hesaplanabilsin değil mi?
.

 

[zehnisağcan]

ben sayım da kullanacam hocam, datayı lazım ama neyse