excel tablosundaki satırlarda sadeleştirme

[mstmutlu]

arkadaşlar yardımcı olursanız çok sevinirim,
şimdiden teşekürler,

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda renklendirdiğiniz alandaki verinin düzenlemiş halinide ekleyebilirmisiniz. Sanırım hiçbir arkadaşımız tablonuzu nasıl bir formata getirmek istediğiniz anlayamamış.

 

[mstmutlu]

ekte bitmiş halinin bir örneği var, sanırım daha açıklayıcı olacak.
şimdiden teşekürler,

 

[mstmutlu]

,,,,,,,,,,,,,,,,,,,,,,

 

[mstmutlu]

dosyayı ekleyememişim tekrar deniyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Umarım faydası olur.

Sub VERİLERİ_DÜZENLE()
    For X = 4 To [C65536].End(3).Row Step 2
    Adres = Range(Cells(X, 4), Cells(X, 12)).Address
    [IV1].FormulaArray = "=MIN(IF(" & Adres & "<>0," & Adres & "))"
    Cells(X, 4) = [IV1]
    Next
    Columns("E:IV").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
    [A1].Select
End Sub

 

[mstmutlu]

çok teşekürler

merhaba, yazdığınız kod işime yaradı teşekürler.Bir ricam daha olavcak bitmiş halindeki örnekte m satırı ile t satırını yanyana alabilirmiyiz örnek; m 3 _ t1 120 gibi farklı sutunlardalar ama aynı satırlarda toplansınlar,
kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Kodu aşağıdaki ile değiştirip denermisiniz.

Sub VERİLERİ_DÜZENLE()
    Son = [C65536].End(3).Row
    For X = 4 To Son Step 2
    Adres = Range(Cells(X, 4), Cells(X, 12)).Address
    [IV1].FormulaArray = "=MIN(IF(" & Adres & "<>0," & Adres & "))"
    Cells(X - 1, 5) = Cells(X, 3)
    Cells(X - 1, 6) = [IV1]
    Cells(X, 4) = ""
    If X = Son Then GoTo Devam
    Toplam_T1 = Toplam_T1 + Cells(X - 1, 6)
Devam:
    Next
    [IV1] = ""
    [D3:D65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Cells([F65536].End(3).Row, 6) = Toplam_T1
    Columns("G:IV").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
    [A1].Select
    MsgBox "VERİLERİNİZ DÜZENLENMİŞTİR.", vbInformation
End Sub

 

[mstmutlu]

çok teşekürler, elinize sağlık.
iyi çalışmalar