Verileri diğer sayfada gösterilmesi

[1903emre34@gmail.com]

Merhaba,

1.gün karşısına manuel olarak AAA LTŞ veya ABC LTD ŞTİ seçildiği zaman, otomatik olarak istatistik sayfasına "A" sütüna 01.01.2016 ve yanında AAA LTD ŞTİ. yazılmasını istiyorum nasıl formül oluşturabiliriz (İstatistik sayfasında manuel olarak yapıldı) Makro olabilir.

http://s3.dosya.tc/server12/4xvnxg/TARIHLER_.zip.html

 

[Asri]

Aşağıdaki kodu "Bu Çalışma Kitabı" bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Dim KeyCells As Range
   
   If Sh.Name = "İSTATİSTİK" Then Exit Sub
   Set KeyCells = Sh.Range("B4:C6")

   If Not Application.Intersect(KeyCells, Target) Is Nothing Then
      Set shista = Sheets("İSTATİSTİK")
      sonsatir = shista.Cells(Rows.Count, "A").End(3).Row + 1
      tarih = Sh.Cells(1, "C").Value
      gunbilgi = Sh.Cells(Target.Row, "A").Value
      yil = Year(tarih)
      ay = Month(tarih)
      gun = Mid(gunbilgi, 1, InStr(gunbilgi, ".") - 1)
      shista.Cells(sonsatir, "A").Value = CDate(gun & "." & ay & "." & yil)
      shista.Cells(sonsatir, "B").Value = Target.Value
   End If
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,

İstatistik sayfasında A sütünda

01.01.2016

01.01.2016 tarihler alt alta sıralanıyor,

02.01.2016

03.01.2016 olması için nasıl değişiklik yapabiliriz

 

[Asri]

Teşekkürler,

İstatistik sayfasında A sütünda

01.01.2016

01.01.2016 tarihler alt alta sıralanıyor,

02.01.2016

03.01.2016 olması için nasıl değişiklik yapabiliriz

Anlamadım.
Dosya üzerinde örnekli gösterebilir misiniz?
Ben sayfalarda her ay için bir tarih gördüm aynı ay içinde farklı tarihler var ise nerede bulunuyor.

 

[1903emre34@gmail.com]

Ekte dosyada;

Sayfa1 (istenen tablo) ve sayfa 2 (kodların ilk hali)

 

[Asri]

Ekte dosyada;

Sayfa1 (istenen tablo) ve sayfa 2 (kodların ilk hali)

Kodu güncelledim.
Kontrol ediniz.