Satır ekleme makrosu

[alirizapekbilir]

Merhaba.
Ekte göndermiş olduğum dosyada Her ay sonuna doğru İş kalemleri gelmekte.
bu sayfaya bir buton yardımı ile girilen iş kalemleri poz numarasına göre , gerçekleşen mahal listesinde kopyalaması ve 20 satır boşluk vermesi gerekiyor. eğer o poz numarası daha önce girildi ise kopyalamasın.
Cetvelin son satırlarında bulunan İlave ve İş Değişikliği Cetveli sabit kalacak açılacak olan satırlar 491. sutundan(poz daha önce girilmedi ise) başlayacak.
Bu iş bana baya uçuk kaçık bişey gibi geldi ama makro ile yapılabileceğini düşünmekteyim.
Şimdiden ellerinize sağlık

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
Kod Ger.Mahal listesi sayfasında ilk poza ait A4:L25 hücre aralığını biçim kaynağı olarak kullanıyor.
Yani bu hücre aralığında herhangi bir poz'a ait tablo parçasının hep olacağı varsayılmıştır.
.

[B]Sub POZ_AKTAR()[/B]
Set g = Sheets("Gerçekleşen mahal lis.")
Set i = Sheets("iş kalemleri")
iid = "İLAVE VE İŞ DEĞİŞİKLİĞİ YAPILAN İMALATLAR"
For sat = 4 To i.Cells(Rows.Count, "C").End(3).Row
    If WorksheetFunction.CountIf(g.[C:C], i.Cells(sat, "C")) = 0 Then
        gsat = WorksheetFunction.Match(iid, g.[B:B], 0)
        g.[A4:L25].Copy: g.Cells(gsat - 4, "A").Insert Shift:=xlDown
        g.Cells(gsat - 4, 2) = g.Cells(gsat - 27, 2) + 1
        g.Cells(gsat - 4, 3) = i.Cells(sat, 3)
        g.Cells(gsat - 4, 4) = i.Cells(sat, 4)
        g.Range("A" & gsat - 3 & ":L" & gsat + 16).ClearContents
    End If
Next
[B]End Sub[/B]

 

[alirizapekbilir]

hocam tam istediğim gibi birşey daha soracağım kopyalanan satırlar formüllü olarak kopyalanabilirmi yoksa her seferinde formülmü girmem gerekecek.

 

[alirizapekbilir]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
Kod Ger.Mahal listesi sayfasında ilk poza ait A4:L25 hücre aralığını biçim kaynağı olarak kullanıyor.
Yani bu hücre aralığında herhangi bir poz'a ait tablo parçasının hep olacağı varsayılmıştır.
.

[B]Sub POZ_AKTAR()[/B]
Set g = Sheets("Gerçekleşen mahal lis.")
Set i = Sheets("iş kalemleri")
iid = "İLAVE VE İŞ DEĞİŞİKLİĞİ YAPILAN İMALATLAR"
For sat = 4 To i.Cells(Rows.Count, "C").End(3).Row
    If WorksheetFunction.CountIf(g.[C:C], i.Cells(sat, "C")) = 0 Then
        gsat = WorksheetFunction.Match(iid, g.[B:B], 0)
        g.[A4:L25].Copy: g.Cells(gsat - 4, "A").Insert Shift:=xlDown
        g.Cells(gsat - 4, 2) = g.Cells(gsat - 27, 2) + 1
        g.Cells(gsat - 4, 3) = i.Cells(sat, 3)
        g.Cells(gsat - 4, 4) = i.Cells(sat, 4)
        g.Range("A" & gsat - 3 & ":L" & gsat + 16).ClearContents
    End If
Next
[B]End Sub[/B]

hocam tam istediğim gibi birşey daha soracağım kopyalanan satırlar formüllü olarak kopyalanabilirmi yoksa her seferinde formülmu girmem gerekecek.

 

[alirizapekbilir]

Satır ekleme makrosu

Merhaba
Yardımlarınız sayesinde bir şeyler yapmaya çalışıyorum. Ömer Baran ustamın hazırladığı makro sorunsuz çalışıyor. Ancak ben bir sayfa daha ekledim. "mukayese" sayfası hocam yazmış olduğunuz koda aynen mukayese sayfasınada kopyalama yapmak istiyorum. yardımlarınız için teşekürler