Satır ekleme kodu hk.

[mcleren]

bilginize,

 

[mcleren]

COST_CONTROL merhaba,

son belirtmiş olduğum ilaveler konusunda gelişme varmı.

teşekkürler,

 

[baydeniro]

Paylaşım İçin Teşekkürler

Paylaşım için teşekkürler.

 

[mcleren]

Merhaba arkadaşlar,

Ekli dosyadaki koda, veri 1_12 sayfadaki direkt işçilik, gim ve amortisman bilgilerini rapor sayfasına aktaran kod ilave edebilirmisiniz.(mavi renkli saatırlara)
teşekkürler,

 

[mcleren]

Merhaba arkadaşlar,

Bu konuda herhangi bir gelişme varmı.
teşekkürler,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub YEDİ_SATIR_EKLE_TOPLAM_AL()
    BAŞLIK = [A1:J1]
    For X = [A65536].End(3).Row To 3 Step -1
    If Cells(X, 1) <> Cells(X - 1, 1) Then
    Rows(X & ":" & X + 7).Insert shift:=xlDown
    Range(Cells(X + 7, "A"), Cells(X + 7, "J")) = BA&#350;LIK
    End If
    Next
    For Each ALAN In Columns("I").SpecialCells(xlConstants, xlNumbers).Areas
    ADRES1 = ALAN.Offset(0, 1).Address(False, False)
    ADRES2 = Replace(Mid(ALAN.Offset(7, 1).Address(False, False), 1, 3), ":", "")
    ADRES3 = ALAN.Offset(8, 1).Resize(3, 1).Address(False, False)
    ADRES4 = Replace(Mid(ALAN.Offset(11, 1).Address(False, False), 1, 3), ":", "")
    ALAN.Offset(ALAN.Count + 1, -8).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1)
    ALAN.Offset(ALAN.Count + 2, -8).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1)
    ALAN.Offset(ALAN.Count + 3, -8).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1)
    ALAN.Offset(ALAN.Count + 1, -7).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -7).Resize(1, 1)
    ALAN.Offset(ALAN.Count + 2, -7).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -7).Resize(1, 1)
    ALAN.Offset(ALAN.Count + 3, -7).Resize(1, 1).Formula = ALAN.Offset(ALAN.Count - 2, -7).Resize(1, 1)
    ALAN.Offset(ALAN.Count, -2).Resize(1, 1).Formula = 1
    ALAN.Offset(ALAN.Count, -1).Resize(1, 1).Formula = "Hammadde Mlz. Toplam&#305;"
    ALAN.Offset(ALAN.Count, 1).Resize(1, 1).Formula = "=SUM(" & ADRES1 & ")"
    ALAN.Offset(ALAN.Count + 1, -2).Resize(1, 1).Formula = 2
    ALAN.Offset(ALAN.Count + 1, -1).Resize(1, 1).Formula = "Direkt &#304;&#351;&#231;ilik"
    Set BUL1 = Sheets("veri 1_12").[D:D].Find(ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1))
    If Not BUL1 Is Nothing Then
    ALAN.Offset(ALAN.Count + 1, 1).Resize(1, 1).Formula = "='veri 1_12'!AA" & BUL1.Row
    End If
    ALAN.Offset(ALAN.Count + 2, -2).Resize(1, 1).Formula = 3
    ALAN.Offset(ALAN.Count + 2, -1).Resize(1, 1).Formula = "Gim"
    Set BUL2 = Sheets("veri 1_12").[D:D].Find(ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1))
    If Not BUL2 Is Nothing Then
    ALAN.Offset(ALAN.Count + 2, 1).Resize(1, 1).Formula = "='veri 1_12'!AB" & BUL2.Row
    End If
    ALAN.Offset(ALAN.Count + 3, -2).Resize(1, 1).Formula = 4
    ALAN.Offset(ALAN.Count + 3, -1).Resize(1, 1).Formula = "Amortisman"
    Set BUL3 = Sheets("veri 1_12").[D:D].Find(ALAN.Offset(ALAN.Count - 2, -8).Resize(1, 1))
    If Not BUL3 Is Nothing Then
    ALAN.Offset(ALAN.Count + 3, 1).Resize(1, 1).Formula = "='veri 1_12'!AC" & BUL3.Row
    End If
    ALAN.Offset(ALAN.Count + 4, -2).Resize(1, 1).Formula = 5
    ALAN.Offset(ALAN.Count + 4, -1).Resize(1, 1).Formula = "Masraf Toplam&#305;"
    ALAN.Offset(ALAN.Count + 4, 1).Resize(1, 1).Formula = "=SUM(" & ADRES3 & ")"
    ALAN.Offset(ALAN.Count + 5, -2).Resize(1, 1).Formula = 6
    ALAN.Offset(ALAN.Count + 5, -1).Resize(1, 1).Formula = "&#220;retim Maliyeti"
    ALAN.Offset(ALAN.Count + 5, 1).Resize(1, 1).Formula = "=SUM(" & ADRES2 & "," & ADRES4 & ")"
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[mcleren]

Sn, Korhan Ayhan

Çok teşekkür ederim.

 

[mcleren]

Merhaba Korhan Ayhan,

Öncelikle son yapılan güncellemeden sonra rapor çok işime yaradı bu nedenle çok teşekkür ediyorum.
Ancak bu verilerin birde birim değerleri gerekmektedir.
Ekli dosyadaki örnek çalışmada belirtiğim değişiklikler koda ilave edilebilirmi.
- Her ürünün iki satır üstüne E ve F kolonuna mamül kodu ve mamül ismini taşımak.

- Aynı satıra L ve M kolonlarına üretim miktarını okutmak.

- K, L ve M sütünlarına birim değereleri formülüze etmek.

Not: G ve H kolonlardaki açıklamaları E ve F kolonlara kaydırabilirmiyiz.
teşekkürler,

 

[mcleren]

Korhan Ayhan merhaba,

Son istemiş olduğum talepler hakkında gelişme varmı.
teşekkürler,

 

[Korhan Ayhan]

Selamlar,

En son eklemiş olduğunuz dosyadaki biçmlendirmelerde olacak mı?

Ayrıca bundan sonra bu konuyla ilgili başka taleplerinizde olacaksa lütfen belirtin topluca yapıp bitirelim.

 

[mcleren]

Selam,

Talepler konusunda haklısınız, taleplerimiz parça parça oldu.
Rapuru kullandıkça bunlara ihtiyacımız oldu, satır ekleme ile başlayan kod buralara kadar geldi.
Bu son şekli gibi, ama illede ilave bir şey olursa yine sizden rica edeceğiz.
Biçimlendirmeleri rapor oluştuktan sonra manuel olarak yapıyorum.
Tabi çok ürün olduğu için çok zamanımı alıyor.
Koda ilave edilebilirse çok iyi olur, bunu tamamen size bırakıyorum.

Yardımlarınız için şimdiden teşekkürler,

 

[mcleren]

(Rapor Düzenle) Satır ekleme kodu

Merhaba Korhan Ayhan,

Geçenlerde tamamlanmış olan rapora yıl sonu bütçe çalışmaları nedeniyle; 2007,2008 ve bütçe mukayeseli olacak şekilde istendi. Ürün çok fazla olduğu için çok zaman alıyor, ve herhangi bir veri değişikliğnde, raporun yeniden oluşturuluyor.
Önceki raporu güncelleyerek örnek formatı exelde oluşturdum.
teşekkürler,
iyi günler,

 

[mcleren]

Selam,
dosyayı ekledim.

 

[mcleren]

Selam,

Son durum hakkında gelişme varmı.
iyi günler,