Yardım SAYFALARDAN MAKRO İLE KOŞULLU OLARAK DÖKÜM ALMAK

Arkadaşlar selamlar.Ekteki dosyada 1-8-9-MTS olarak 4 sayfam var. A44-AG147 aralığındaki 26 bölümlük veri girişlerinden 1.güne ait ilk 3 veri girişini örnek olarak doldurdum.Bunu ay boyunca gün gün her ekip için işlemekteyim. İstediğim madde ve araç cinsini eşleştirerek döküm sayfasına 4 ekibinkini toplam olarak ilgili haneye atsın. Yanı 13. madde otomobil ise Döküm sayfasına 13 ve otomobil sütununun kesiştiği hücreye atsın, eğer 14 madde Otobüs seçilmişse döküm sayfasında ilgili hücreye toplam atsın. Bu arada eski sayfamda bunu yapabiliyordum bunu da örnek olarak AJ2-AU74 aralığında gösterdim. Bunu aşağıdaki kod ile alabiliyordum. Yani veri girişi çizelgem önceden AJ2-AU74 aralığında gösterdiğim çizelge gibiydi.Ama çizelgeyi değiştirdiğimden a44-ag147 aralığındaki 26 bölümlük girişten nasıl alabilirim. Yardımcı olabilirseniz sevinirim.

Önceki çizelgemdeki 31 günlük sayfadan aldığımda kod;

Sub icmal()

Set sT = Sheets("DÖKÜM")
Dim w(1 To 232, 1 To 11)
sayfalar = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For i = 5 To 232
.Add Trim(sT.Cells(i, 1).Value), i - 4
Next i

For i = 0 To 30
Set sv = Sheets(sayfalar(i))
For ii = 46 To 75
key = Trim(sv.Cells(ii, 5).Value)
If key <> "" Then
If .Exists(key) Then
sat = .Item(key)
Select Case sv.Cells(ii, .Value
Case "MOTOSİKLET": sut = 1
Case "MOTORLUBİSİKLET": sut = 2
Case "OTOMOBİL": sut = 3
Case "MİNİBÜS": sut = 4
Case "KAMYONET": sut = 5
Case "KAMYON": sut = 6
Case "OTOBÜS": sut = 7
Case "TRAKTÖR": sut = 8
Case "ÇEKİCİ": sut = 9
Case "TANKER": sut = 10
Case Else: sut = 11
End Select
Else
MsgBox "Hatalı Madde Kodu... "
sv.Cells(ii, 1).Select
Exit Sub
End If
w(sat, sut) = w(sat, sut) + 1
End If
Next ii
Next i
sT.Range("B5:L232").Value = w
End With
End Sub

Private Sub CommandButton1_Click()
Sayfa32.PrintPreview
End Sub

Private Sub Worksheet_Activate()
Call icmal
End Sub

Merhaba;
Eki deneyin.
İyi çalışmalar.

Elinize sağlık inceledim ancak verileri sildiğimde, sağa yatığınız alanda veriler kayboluyor ancak döküm listesinde başka değerler geliyor

boşaltıp analiz ettiğimde eski bir önce yaptığım veri girişlerini tekrar getiriyor ama

veriyi sildiğimde sizin yaptığınız çizelgede birl.veri hanesi sıfırlanmıyor sanırım ondan eski değerler çıkıyor

Birde döküm listesinde ismi olmayan ancak veri girişinde ismi olan (panelvan, bisiklet..vb) araçları dökümde diğer sütununa atabilirmi önceki sayfamda olmuştu ama

muygun' Alıntı:

Merhaba;
Eki deneyin.
İyi çalışmalar.

Genişletmek için tıkla ...

Teşekkürler ederim elinize sağlık ama verileri sildiğimde, sağa yaptığınız alanda veriler kayboluyor ancak döküm listesinde başka değerler geliyor

Merhaba;
Eki deneyin.
Sonuç isteğinizi vermiyorsa;
Hata verdiği (sizin tanımlamanıza göre) şekliyle dosyayı yükleyin.
İyi çalışmalar.

muygun' Alıntı:

Merhaba;
Eki deneyin.
Sonuç isteğinizi vermiyorsa;
Hata verdiği (sizin tanımlamanıza göre) şekliyle dosyayı yükleyin.
İyi çalışmalar.

Genişletmek için tıkla ...

Elinize Sağlık eski verilerin kalması çözülmüş.
Döküm listesinde ;
MOTOSİKLET,MOTORLUBİSİKLET,OTOMOBİL,MİNİBÜS,KAMYONET,KAMYON,OTOBÜS,TRAKTÖR,ÇEKİCİ,TANKER VE DİĞER olmak üzere sütunlar var. Ancak veri girişinde (1-8-9-MTS) sayfalarında, döküm listesindeki sütunlarda ismi olmayan PANELVAN,BİSİKLET,İŞ MAKİNASI,ARAZİ TAŞITI,İŞLETME ŞAHIS FİRMA, seçenekleri de var. Veriyi girerken bu araçlar dökümde isimleri olmadığı için 0 gösteriyor.Örnek olarak girdim. Yani döküm listesindeki sütunlarda ismi olmayan ve veri girişinde bulunan (PANELVAN,BİSİKLET,İŞ MAKİNASI,ARAZİ TAŞITI,İŞLETME ŞAHIS FİRMA) seçildiğinde döküm listesinde L5 sütunu DİĞER sütununa ilgili maddenin karşılığına atsın istiyorum.Saygılarımla

birde size gönderdiğim çalışma kitabına (ekip faaliyeti,aylık sonuç gibi sayfa ekledim) sizin kod ile denedim yeni açtığım bu sayfalardaki verileride alıyor. Sadece 1-8-9-mts sayfalarındaki verileri alamazmı, yeni eklediğimsayfaları silersem kod çalışıyor.Eklersem ordaki verilerdende alıyor, çalışma kitabımın son hali bu, kusura bakmayın sizide yordum ama tsk ederim

Merhaba;
10 Nolu mesaj ekinde eklediğiniz sayfaları göremedim. Ama
Sayfalara döngü kurarken;


If Sheets(sayfa).Name <> s1.Name Then

satırını;
If Sheets(sayfa).Name <> s1.Name and Sheets(sayfa).Name <> "deneme sayfası" Then

şeklinde istediğiniz sayfaları işlem dışında tutabilirsiniz.

Yazılmayanların DİGER olarak tanımlanması konusunu için eki deneyin.
İyi çalışmalar.

çok teşekkür ederim