Verilerin Sayfalara aktarımı

[ramazan kuyumcu]

Arkadaşlar biliyorum onlarca defa soruldu ama mevcut örnekleri kendi çalışmam için uyarlayamadım.

Ekteki dosyada sayfa1 de sadece "c" sutunundaki verilerin “d” sutunudaki verilere göre sayfaların “c” sutununa makro ile nasıl aktarabiliriz. Bir de diğer sayfalara girilen değerleri sayfa1 de listeyebilirmiyiz

 

[asi_kral]

Merhaba
Sadece C sütunu mu aktarılacak yoksa A:I aralığı mı aktarılacak_?

 

[ramazan kuyumcu]

Sadece C sütunu hocam

 

[asi_kral]

Merhaba
Kitabın kod bölümünde bulunan Thisworkbook bölümüne

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim SYF1 As Worksheet, STR As Long, BŞL As Variant
If ActiveSheet.Name <> "Sayfa1" Then
Set SYF1 = Sheets("Sayfa1")
With WorksheetFunction
BŞL = ActiveCell.Address
STR = SYF1.Range("D" & Rows.Count).End(xlUp).Row
SYF1.Range("D3:D" & STR).AutoFilter field:=1, Criteria1:=ActiveSheet.Name
If .Subtotal(3, SYF1.Range("D4:D" & STR)) > 0 Then
SYF1.Range("C4:C" & STR).Copy
Range("C4").PasteSpecial (xlPasteValues)
Range(BŞL).Select
End If: SYF1.Range("D3:D" & STR).AutoFilter: End With: End If
End Sub

Bu kodu yazın. Sayfa seçtikçe otomatik aktarım yapacaktır.

 

[ramazan kuyumcu]

Hocam beceriksizliğimi mazur görün ben bulamadım kod bölümünde Thisworkbook bölümünü

 

[asi_kral]

Eki inceleyin.

 

[ramazan kuyumcu]

Buldum Hocam çook teşekkür ederim ellerinize sağlık

 

[asi_kral]

Buldum Hocam çook teşekkür ederim ellerinize sağlık

Kolay Gelsin.

 

[ramazan kuyumcu]

Hocam bir de diğer sayfalara girilen değerleri D:I aralığını sayfa1 de listeyebilirmiyiz

 

[asi_kral]

Hocam bir de diğer sayfalara girilen değerleri D:I aralığını sayfa1 de listeyebilirmiyiz

Lütfen 1 Ay sonra sorunuzu tekrar ediniz. Ben bu ay ki taksidi ödedim.
Ben taksit taksit sorulardan sıkılıyorum. Umarım başka birisi yardımcı olur.

 

[ramazan kuyumcu]

Hocam ben ilk soruda peşin peşin sordumdu ama..

 

[asi_kral]

Hocam ben ilk soruda peşin peşin sordumdu ama..

O soruya net açıklama yapmadığınız için atlamışım
Detay verirseniz veya dosya üzerinden örneklerle anlatırsanız makroyu yazıp göndereyim.

 

[ramazan kuyumcu]

Hocam Sayfa1 haricindeki diğer tüm sayfalarda sarı renkle belirtilmiş D4:I36 aralığndaki tüm verileri sayfa1 birde sarı renkle belirtilen D4:I1134 aralğında birleşecek

Şididen elinize sağlık

 

[asi_kral]

Merhaba
Dosyanızda çok veri var aktarım yapmıyor.
İçerisini biraz boşaltın isterseniz.

Neyi aktaracak neye göre aktaracak bir türlü göremedim. İçerisine veri girin lütfen.

 

[ramazan kuyumcu]

Hocam dediğiniz gibi veri ğirişi yaptım ekledim. Sayfalardaki D4:I36 aralığndaki tüm verileri sayfa1 birde birleşecek