Hücrelerdeki verileri özetleme

[Marpuc]

Herkese merhaba.

Ekteki dosyada Gant sayfasındaki, üstteki satırlar makineler ve özelliklerini, sağ taraftaki sütun ise tarihleri göstermekte. Ekte de görebileceğiniz üzere bir sipariş farklı makinelerde farklı tarihlerde çalışabilmektedir. Yapmaya çalıştığım şey
Detay sayfasında A3 Hücresinden başlayarak Her siparişi bir defa yazdırıp,başlangıç ve bitiş tarihlerini yanına eklemektir.

Gant sayfasındaki bazı veriler (örnek :AR-GE, Top2 vb) sipariş değildir. Bunları silinecek veriler sayfasına ekleyerek Detay sayfasına gelişini engellemek istiyorum.

Yardımcı olabilecek tüm uzmanlarımıza teşekkür ediyorum

 

[Marpuc]

Sanırım benim sorunum pek ilgi çekici olmadı.

 

[Marpuc]

Elimde daha önceden hazırlanmış bir kod dizisi var. Fakat bunda tarihler satır düzeyinde makine detayları sutun dizisindeydi. Bu Kodu mevcut dosyama göre nasıl düzenleyebilirim ?


Sub BENZERSİZ_LİSTE()
Dim SİPARİŞ As New Collection, VERİ As Range
Dim X As Long, Y As Byte, SATIR As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheets("Detay").Select

Range("A2:C65536").ClearContents

With Sheets("Gant")

On Error Resume Next

For X = 4 To .Range("A65536").End(3).Row
For Y = 2 To .Range("IV3").End(1).Column
SİPARİŞ.Add .Cells(X, Y), CStr(.Cells(X, Y))
Next
Next

End With

SATIR = 2

For Each VERİ In SİPARİŞ
If WorksheetFunction.CountIf(Sheets("Silinecek_Veriler").Range("A:A"), VERİ) = 0 Then
Cells(SATIR, 1) = VERİ
Cells(SATIR, 2).FormulaArray = "=IF(RC1="""","""",INDIRECT(""Gant!""&ADDRESS(3,MIN(IF(Gant!R4C2:R1000C15=RC1,COLUMN(Gant!C2:C15))))))"
Cells(SATIR, 3).FormulaArray = "=IF(RC1="""","""",INDIRECT(""Gant!""&ADDRESS(3,MAX(IF(Gant!R4C2:R1000C15=RC1,COLUMN(Gant!C2:C15))))))"
SATIR = SATIR + 1
End If
Next

Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Marpuc]

Sayın Uzman arkadaşlar;

Bu kodları düzenleyebilir misiniz ?

 

[Marpuc]

yardımcı olabilecek biri var mı?

 

[Marpuc]

Sayın uzman arkadaşlar yardımlarınızı rica ediyorum

 

[Orion1]

Dosyanızın belli bir düzeni yok.Mesela,İlk satırda ve sanırım 2nci satırdaki verileriniz dağınık .Bunu kontrol etmek imkansız.Belli bir düzeni yok.Ve birleştirilmiş hücreler.
Döngüye girmeye kalksan nasıl girecen.Neye göre girecen.Giremezsin.Çünkü veriler dağınık.,Düzeni yok.Zaten sorunuza cevap almyaşınızın sebebide bu.Yoksa bu sitede sorunuza cevap vercek bir sürü arkadaş var,Uzman olsun veya olmasın.

 

[Marpuc]

Çok teşekkür ederim evren bey
Dosyayı buna göre değiştireceğim.