Aynı şablonda sayfa ekleyen makro

[kuzey_yolcu]

Arkadaşlar merhaba,
Ekteki dosyada bir şablon var. Her sayfaya 3 ayrı kayıt gireceğim. Sayfa dolduğu zaman boş bir şekilde o şablondan kopyalamasını istiyorum. Sayfayı kopyalayacak. Yardımcı olabilir misiniz?
Bir de miktarları toplamam lazım ama her seferinde farklı satırlarda olacağı için TOPLA.ÇARPIM kullanamıyorum. Bunun için de öneride bulunursanız sevinirim.
Teşekkürler şimdiden.

 

[asi_kral]

Arkadaşlar merhaba,
Ekteki dosyada bir şablon var. Her sayfaya 3 ayrı kayıt gireceğim. Sayfa dolduğu zaman boş bir şekilde o şablondan kopyalamasını istiyorum. Sayfayı kopyalayacak. Yardımcı olabilir misiniz?
Bir de miktarları toplamam lazım ama her seferinde farklı satırlarda olacağı için TOPLA.ÇARPIM kullanamıyorum. Bunun için de öneride bulunursanız sevinirim.
Teşekkürler şimdiden.

Merhaba
Sayfa Eklemek için
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sayfa_ekle_1967()
'Konu       :   Şablon Sayfası Ekleme
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Variant
asi = InputBox("Sayfa Adı Giriniz", "Sayfa Adı Girişi")
If asi = Empty Then Exit Sub
Sheets("Sayfa1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = asi
MsgBox asi & " Adlı Sayfa Ekledim", vbInformation, Application.UserName & " Asi_kral_1967"
End Sub

Bu Kodu deneyiniz_?
Diğer Sorunuzu anlamadım.

 

[kuzey_yolcu]

Merhaba asi_kral_1967,
Kodunuz çalıştı yalnız ben yanlış anlatmışım. Yan yana sheet ekleme değil de şablonun yer aldığı sayfa1'e alt alta o şablonu kopyalayacak.
Diğer sorum da şöyle. Hani miktar diye yer var ya. Farzedelim ki A, B, C ürününü kaç kez kaydetmişiz? Bunun toplamını almak istedim. Yani bir formül yazacağım. Kayıtları girdikçe toplam artacak. A'dan 5, B'den 8 vb.

 

[asi_kral]

Merhaba asi_kral_1967,
Kodunuz çalıştı yalnız ben yanlış anlatmışım. Yan yana sheet ekleme değil de şablonun yer aldığı sayfa1'e alt alta o şablonu kopyalayacak.
Diğer sorum da şöyle. Hani miktar diye yer var ya. Farzedelim ki A, B, C ürününü kaç kez kaydetmişiz? Bunun toplamını almak istedim. Yani bir formül yazacağım. Kayıtları girdikçe toplam artacak. A'dan 5, B'den 8 vb.

Merhaba
Kodu bununla değiştirin.

Option Explicit
Sub şablon_ekle_1967()
'Konu       :   Şablon Ekleme
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long, a As Range, _
b As Variant, c
Application.ScreenUpdating = False
asi = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("A1:E24").Copy Destination:=Range("A" & asi)
For kral = 1 To 8
If Cells(kral, "B") <> Empty Then
Set a = Range("B:B").Find(Cells(kral, "B"), , , xlWhole)
If Not a Is Nothing Then
b = a.Address
Do
If WorksheetFunction.CountIf(Range("B1:B" & a.Row), _
Cells(a.Row, "B")) > 1 Then
Rows(a.Row).RowHeight = Rows(kral).RowHeight
End If
Set a = Range("B:B").FindNext(a)
Loop While Not a Is Nothing And a.Address <> b
End If: End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, vbInformation, "asi_kral_1967"
End Sub

Diğer sorunuzu lütfen dosya üzerinde anlatın ona göre bakayım böyle anlaşılmıyor.

 

[kuzey_yolcu]

Diğer sorunuzu lütfen dosya üzerinde anlatın ona göre bakayım böyle anlaşılmıyor.

Teşekkürler, makro çalışıyor. Diğer sorumu da istediğiniz gibi ekteki dosyada
belirttim.