• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

dağıtılan sayfalarda üst üste kayıt oluşturmak?

  • Konbuyu başlatan Konbuyu başlatan Ferittt
  • Başlangıç tarihi Başlangıç tarihi
F

Ferittt

Katılım
31 Mart 2013
Mesajlar
45
Excel Vers. ve Dili
Excel 2003
Sayın Hocalarım
bir çalışma kitabım var.bu kitapta veri sayfam var.bu sayfada bazı verileri kendi ismi ile sayfalara dağıtılıyor.her dağıt dediğimde veriler aynı isimli sayfada oluşuyor.
sorunum şu;
farklı bir veri olursa eski ama farklı verileri silmeden yeni veriyi kendi ismindeki sayfaya dahil edecek.bu şekilde kayıt edip gidecek.
yardımlarınız için şimdiden teşekkür ediyorum.
http://dosya.co/umuexckzdp1y/Sayfalarına_-_01.rar.html
 
. . .

Ana sayfasında L sütununda L5:L8 aralığındaki hücreler birleştirilmiş. Önce bu hücreleri çözün.
Dağıtma işlemi için aşağıdaki kodları deneyin.

Kod: 
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim Sayfa As String
    Dim SA As Worksheet: Set SA = Sheets("ana")
    Dim SO As Worksheet: Set SO = Sheets("Örnek")
    
    For a = 5 To SA.Cells(Rows.Count, "D").End(3).Row
        If SA.Cells(a, "D") <> "" Then
            If SA.Cells(a, "L") <> "X" and _
                SA.Cells(a, "L") <> "x" Then
                
                Sayfa = Left(SA.Cells(a, "D"), 31)
                If Not SayfaVarMi(Sayfa) Then
                    SO.Copy After:=Sheets(Sheets.Count)
                    ActiveSheet.Name = Sayfa
                End If
                
                sonsat = Sheets(Sayfa).Cells(Rows.Count, "D").End(3).Row + 1
                SA.Range("B" & a & ":K" & a).Copy _
                Sheets(Sayfa).Cells(sonsat, "B")
                SA.Cells(a, "L") = "X"
            End If
        End If
    Next a
    SA.Select
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .
 
Hüseyin Hocam ana sayfadaki kodları silip bu kodları yapıştırdım ama hata veriyor.
 
Hüseyin hocam sayfalara dağıt diyorum .bitti diyor ama herhangi bir ayırma yapmıyor.ana sayfadaki verileri sayfalara dağıtması lazım.daha sonra ana sayfada veri değişikliği olursa o sayfalara işlemesi lazım.o veriler o sayfalarda kalıp yeni veri oluşursa kaydetmesi lazım.
 
. . .

Kodları çalıştırdığınızda L sütununa bakar ve burada X yoksa sayfalara satırı dağıtır.

Siz daha sonra diğer sayfalarda bir değişiklik yaparsanız bu kalır.

Ancak Ana sayfada eskiden dağıtılan yani X olan bir satırda değişiklik yaptıysanız tekrar bunu sayfalara yazması için X' i silmelisiniz.

Tabloya yeni veriler girerek ve sayfaları silerek test etmelisiniz.

Çalışması ile ilgili ekran görüntüsü ekliyorum (GİF)

WrPNQ8.gif


. . .
 
anladım hocam elinize sağlık.peki çarpı ile uğraşmasak otomatik olarak sayfalara ayırsa daha iyi olur.hocam bide içeriği aynı olan satırları kaydediyor etmese daha iyi olur.
 
. . .

Otomatik olarak ayırması için ilk örneğinizdeki gibi mevcut sayfaların silinip, tekrar oluşturulması gerekir.

. . .
 
peki o ilk örnekteki gibi şekilde olsada kapalı olan farklı bir çalışma sayfasına sayfalara ayırıp kaydetse olmazmı.
 
Hüseyin Hocam sizin çalışmanızdaki x ları dağıt butonuna bastığımızda otomatik olarak kaldırıp dağıtsa sonra yine x ları koysa olmazmı?
 
muygun hocam ilginiz için teşekkür ediyorum fakat dosyayı indirme şansım yok.
 
muygun hocam site açmıyor.Dosyayı indiremiyorum.Farklı bir siteye yükleme şansınız varsa rica ediyorum.Verdiğiniz emekler için şimdiden teşekkür ederim.
 
Hüseyin Hocam teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst