Girilen Verinin Sayfalara Aktarma

[excelturk]

Değerli Ustalarım Ekteki örnekte verilen Faturaların VERİ GİRİŞİ Sayfasındaki formatıyla (aynı formatta) firma isimlerine göre sayfalara aktar butonuna basınca makro yoluyla yeni sayfalara firma (sayfa isimlerine firma adı olacak şekilde) verinin dağıtılmasını ve tutarların otomatik toplam olarak aldırmasını sağlayabilir miyiz.

Şimdiden herkese Teşekkürler

 

[Leoncio]

Merhaba;

Dosyanız ekte. Sayfa1'de herhangi bir firmanın üzerine gelin butona basım, seçim sayfasına bakın. İşinizi görür mü?

EDIT: Sayfa1'de ister firma ister tarih hangisi seçiliyse Seçim sayfasına aktarır. Yani hertürlü sorgulayabilirsiniz.

 

[MENNES]

bu programı bu sitesen edınmıstım belkı ısınıze yarar,
bana cok yardımcı olmustu,
sadece dıp toplam almıyor onu da sız yaparsınız artık

 

[excelturk]

Teşekkür ederim
Tam istediğim gibi değil benim amacım burada sayfaya aktar dediğim zaman tüm firmaların verilerini farklı sayfalara sayfa isimlerinin firma isimleriyle aynı olması kaydıyla aktarılmasını ve aktarma yaparken de otomatik toplam almasını sağlamak

Yinede çok teşekkür ederim sayın Leoncio

 

[excelturk]

Arkadaşlar tablomda belirtmeyi unutmuşum her veriyi sayfalara aktardıktan sonra yeni veri girişi olduğu zaman sayfa aktarımı yapıldığı zaman önceki aktarılmış sayfaları sotomatik silip yerine yeni verilere göre oluşturulmuş sayfaları oluşturacak (yani sayfa aktar dediğim zaman önceki oluşmuş sayfaların silinip yeni verilere göre sayfa oluşması gerekiyor)

 

[excelturk]

Üstatllardan acil yardım bekliyorum Lütfen yardım edin arkadaşlar çünkü çok önemli

 

[tahsinanarat]

KODA kırmızı satırları ilave ediniz

Option Explicit
Sub ExtractReps()
Dim ws1 As Worksheet
Dim wsNew As Worksheet
Dim rng As Range
Dim r As Integer
Dim c As Range
Set ws1 = Sheets("Sayfa1")
Set rng = Range("Veritabanı")
Application.DisplayAlerts = False
While Worksheets.Count > 1
Sheets(2).Delete
Wend
Application.DisplayAlerts = True
ws1.Columns("A:A").Copy _
Destination:=Range("L1")
ws1.Columns("L:L").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("J1"), Unique:=True
r = Cells(Rows.Count, "J").End(xlUp).Row
Range("L1").Value = Range("A1").Value
For Each c In Range("J2:J" & r)
ws1.Range("L2").Value = c.Value
If WksExists(c.Value) Then
Sheets(c.Value).Cells.Clear
rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sayfa1").Range("L1:L2"), _
CopyToRange:=Sheets(c.Value).Range("A1"), _
Unique:=False
Else
Set wsNew = Sheets.Add
wsNew.Move After:=Worksheets(Worksheets.Count)
wsNew.Name = c.Value
rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sayfa1").Range("L1:L2"), _
CopyToRange:=wsNew.Range("A1"), _
Unique:=False
End If
Next
ws1.Select
ws1.Columns("J:L").Delete
End Sub

 

[excelturk]

Teşekkürler Mennes ve tahsinanarat bir kaç sorum daha olacak tablonun üst başlıkları sayfalara aktarırken sütun genişlikleri sabit kalmıyor bu sorunu nasıl cözebilirim ayrıca daha önceki mesajlarımde belirtiğim gibi sayfalarda tutar sütunlarının otomatik toplamını aldırma imkanımız var mı

 

[MENNES]

arkadaslar merhaba ,
kendimin eklediği dosyayı ,
exceli kaldırıp baska bır surum yukledıgım ıcın sanırım kayıtlı dosyalarımda kı makrolar çalışmıyor.
elınde " isimler ile sayfa aç verileri aktar " dosyası olan bir arkadas tekrar yuklermı acaba.