Sütuna Göre Otomatik Sayfa Oluşturma ve İçerik Kopyalama

[RedStar]

Arkadaşlar kolay gelsin.ekledigim çalışma sayfasında aşagıda belirttiğim şekilde bir düzenleme yapmak mümkünmü? İlgi ve alakanız için teşekkürler.

Stok No (B ) sütununa göre otomatik olarak hücre içerisindeki yazan sayıya göre otomatik olarak yeni çalışma sayfası oluşturması ve sayfa adının stok no sütunundaki yazan sayının olması.Stok no bölümünde aynı sayıdan birden fazla varsa sadece bir tanesinin dikkate alınması.

Oluşturulan sayfaya takip listesindeki oluşturulan tablonun aynısının alınarak sayfa adını taşıyan stok kodunun bulunduğu bütün satırın oluşturulan sayfaya kopyalanması.


Konuyu biraz daha açacak olursak örnek olarak eklenen bu çalışma sayfasını incelendiğinde örnek olarak çalışma sayfasında 12345 Stok No ile 3 satır kayıt olduğu görülmektedir.Yapılmak istenilen buradaki 12345 olarak yeni bir çalışma sayfasının oluşturulması takip listesindeki şablonun (10 Sütun ) aynısının 12345 adlı sayfaya kopyalanarak 12345 stok numaralı 1-3 ve 6 sıra numaralı satırın sıra numarası hariç veya dahilde olabilir 12345 isimli sayfaya A3 hücresinden başlayarak kopyalanması.

Takip Listesindeki D (Tarihi) sütünundaki tarihin sadece yıl kısmının alınarak H (Garanti Süresi ) sütunundaki sayı ve metinden sadece sayı olanı ile toplanarak ve toplama +1 eklenerek J (Garanti Bitiş Tarihi) sütununa yazması.Eger H (Garanti Süresi) sadece metin ise J (Garanti Bitiş) sütununa aynın metnin yazılması.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfalara_Aktar()
 
    Dim j As Integer, i As Long, syf As String, son As Long
 
    Application.ScreenUpdating = False
 
    Application.DisplayAlerts = False
    For j = Worksheets.Count To 1 Step -1
        With Sheets(j)
            If .Name <> "Takip Listesi" Then
                .Delete
            End If
        End With
    Next j
    Application.DisplayAlerts = True
 
    With Sheets("Takip Listesi")
        For i = 3 To .Cells(Rows.Count, "B").End(xlUp).Row
            If Cells(i, "B") <> "" Then
                On Error Resume Next
                If IsNumeric(Split(Cells(i, "H"), " ")(0)) = True Then
                    Cells(i, "J") = Split(Cells(i, "H"), " ")(0) + Year(Cells(i, "D")) + 1
                Else
                    Cells(i, "J") = Cells(i, "H")
                End If
                syf = Trim(.Cells(i, "B"))
                If Not varmi(syf) Then
                    Sheets.Add After:=Worksheets(Worksheets.Count)
                    ActiveSheet.Name = syf
                    .Select
                End If
                .Range("A1:J2").Copy Sheets(syf).Range("A1")
                son = Sheets(syf).Cells(Rows.Count, "B").End(xlUp).Row + 1
                .Range("A" & i & ":J" & i).Copy Sheets(syf).Range("A" & son)
                Sheets(syf).Range("A" & son) = son - 2
               [COLOR=red]Sheets(syf).Cells.EntireColumn.AutoFit[/COLOR]
            End If
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub
 
Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

.

 

[RedStar]

Ustadım süpersin Allah razı olsun ana hatlarıyla işlem tamam ufak gözüme çarpan 2 ayrıntı var birincisi kodu çalıştırmadan verileri girince j sütununda toplama yapmıyor ikincisi kodu çalıştırınca b sutununa göre sayfa oluşturuyor oluşturulan sayfalarda satır ve sütun genişikleri anasayfayla uyumlu olmuyor takip listesi isimli sayfayla oluştırulan sayfalar aynı olursa satır sutun uzunluk ve genişlik olarak mükemmel bir çalışma olacak ilgi ve alakanız için teşekkürler.

 

[RedStar]

Üstatlar konu günceldir şu makroyla oluşturulan sayfalarda takip listesi isimli sayfadaki sutun ve satır boyutları aynı olsa mükemmel olacak teşekkürler

 

[Ömer]

#2 numaralı mesajda ilaveyi yaptım. ( Kırmızı ile işaretledim )

Bu şekilde genişlikler olması gerektiği gibi olur.
Bu şekilde değil de tamamen takip sayfasına göre de yapılabilir.

Deneyip bilgi verirseniz ona göre tekrar bakarım.

Toplam kısmıyla ilgili söylediğinizi anlamadım.

 

[RedStar]

Üstadım tarih bölümündeki yılla garanti süresini toplayıp +1 ekleyip j sutununa verdiginiz kodu kullanmadan toplatmanın başka yolu varsa onu sormuştum yani ilgili hücrelere verileri girince otomatik toplamı yazsın.

Sütun ve satır genişlikleride takip listesinin aynısı olursa sanırım sorun çözülecek.Yazdıgınız kodla olması gerektigi gibi oluyor bazı sayfalarda tek sayfa bazılarında birden fazla oluyor.

İlgi ve alakanıza teşekkürler.

 

[RedStar]

Konu günceldir iyi bayramlar teşekkürler

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

"ŞABLON" isimli sayfayı silmeyiniz.

 

[RedStar]

ALLAH hepinizden razı olsun şimdilik herşey çok güzel teşekkürler.

 

[RedStar]

Üstadlar bu konuyla ilgili olarak 2 tane geliştirme ve ekleme yapabilirmiyiz.

1–Çalışma sayfasındaki şablon sayfasının yanına istatistik isimli bir sayfanın eklenmesi bu sayfada A sutununda Sıra No B sütununda Stok kodu C sutununda Adedi olmak üzere 3 sütunun bulunması.Takip sayfasındaki B sutundaki 5 haneli stok kodlarından aynı kodlu koda sahip satır oldugunun İstatistik sayfasındaki ilgili sutun altındaki satıra yazılması.

2– Takip sayfasına veri girişi yapılırken alt satıra geçince otomatik olarak B sütunundaki stok kodu ve D sutunundaki tarihin küçükten büyüğe doğru sıralanması.

İlgi ve alakanıza teşekkür ederim.

 

[RedStar]

Üstadlar son geliştirme isteğimi çalışma sayfası üzerinde izah etmeye çalıştım.Yardımcı olursanız sevinirim.Teşekkürler.

 

[tahsinanarat]

verdiğiniz örneğe göre 12345 kodu istatistik sayfasında Adet sayısı 2 mi, yoksa 3 mü olacak.

 

[RedStar]

Tahsin bey gözümden kaçmış 3 olması gerekiyormuş manuel sayınca dikkatimden kaçmış 12345 stok koduna sahip 3 adet malzeme varmış örnekte.Teşekkürler.

 

[tahsinanarat]

Doğru anladıysam

Dosyanız ekte

 

[RedStar]

Eline koluna saglık abi Allah razı olsun.

 

[aslanasuh29]

Yardım ederseniz sevinirim!

Üstatlar benimde sizlerden bi ricam olacaktı.Ekteki excel dosyasında örneklemeye çalıştığım gibi bi stok takip programı üzerinde çalışıyorum. Ana dosyada satıra gireceğim her kalem için yeni bir sayfa oluşturup malzeme adını otomatik yazmasını, Ana dosya üzerinde de girdiğim yeni satır bilgisi için oluşan bu sayfaya otomatik köprü atmasını istiyorum ama yapamadım. oluşan yeni sayfaya sadece açıklama yazacağım ve bu açıklamaya da ana sayfada ki istediğim malzemenin adına tıklayarak ulaşmak istiyorum.yardımcı olabilirseniz sevinirim...

 

[RedStar]

Ustalar Tahsin abinin Sayfalara_dagıt_istatistik.xls çalışma sayfasındaki Takip listesi isimli sayfaya k sütununa adet isimli bir başlık oluşturup stokta olan malzeme sayısını girecegim.İstatistik sayfasında aynı stok koduna sahip malzemeden kaç adet oldugunu E sütununa toplattırmak istiyorum etopla ile olması lazım anladıgım kadarıyla ama bir türlü beceremedim.

Birde takip listesine verileri girip aktar tuşuna basınca stok kodu ve cinsi yazan satırlar makro ve kodlarda bir müdahale olmamasına ragmen kendiliginden sıralama yapıyor veriler birbirine giriyor nerede bir yanlışlık var anlayamadım.

ilgi ve alakanıza teşekkürler.

 

[RedStar]

Korhan üstadın yapmış olduğu örnek dosyayı kullanıyorum.Dosyaya K ve L olarak 2 sütun daha ekledi m fakat Aktar dediğimde aktarma yapıyor fakat bu iki sütuna girdiğim verileri aktarmıyor ilgilenirseniz sevinirim.Dosyayı ekledim.Teşekkürler.

 

[RedStar]

Ustalar kusura bakmayın flood yapmak istemezdim ama konu günceldir ilgilenirseniz çok sevinirim teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Kod içinde aşağıdaki satırı bulun. Kırmızı bölümü "L" olarak değiştirip deneyin.

S1.Range("B" & Bul.Row & ":J" & Bul.Row).Copy ActiveSheet.Cells(Satir, 2)