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

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
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,
8)
.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
 

Ekli dosyalar

  • YENİ TRAFİK.rar
    122 KB · Görüntüleme: 3

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
257
En iyi yanıt
25
Puanları
28
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Versiyon
Office 2003
Merhaba;
Eki deneyin.
İyi çalışmalar.
 

Ekli dosyalar

  • ayyıldız05-YENİ TRAFİK.zip
    87 KB · Görüntüleme: 4

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
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
 

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
boşaltıp analiz ettiğimde eski bir önce yaptığım veri girişlerini tekrar getiriyor ama
 

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
veriyi sildiğimde sizin yaptığınız çizelgede birl.veri hanesi sıfırlanmıyor sanırım ondan eski değerler çıkıyor
 

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
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

Uzman
Katılım
19 Ağu 2018
Mesajlar
257
En iyi yanıt
25
Puanları
28
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Versiyon
Office 2003
Merhaba;
Eki deneyin.
Sonuç isteğinizi vermiyorsa;
Hata verdiği (sizin tanımlamanıza göre) şekliyle dosyayı yükleyin.
İyi çalışmalar.
 

Ekli dosyalar

  • ayyıldız05-YENİ TRAFİK-1.zip
    87.1 KB · Görüntüleme: 1

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
Merhaba;
Eki deneyin.
Sonuç isteğinizi vermiyorsa;
Hata verdiği (sizin tanımlamanıza göre) şekliyle dosyayı yükleyin.
İyi çalışmalar.
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
 

Ekli dosyalar

  • ayyıldız05-YENİ TRAFİK-1.rar
    36.7 KB · Görüntüleme: 1

ayyıldız05

Yeni Üye
Katılım
20 Eyl 2020
Mesajlar
11
En iyi yanıt
0
Puanları
1
Yaş
41
Konum
tokat
Ad Soyad
ihsan görgülü
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
 

Ekli dosyalar

  • TRAFİK.rar
    189.5 KB · Görüntüleme: 1
Son düzenleme:

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
257
En iyi yanıt
25
Puanları
28
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Versiyon
Office 2003
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.
 

Ekli dosyalar

  • ayyıldız05-YENİ TRAFİK-2.zip
    87.4 KB · Görüntüleme: 2
Üst Alt