Sütundaki tarihleri birleştirme

[cismail]

Merhaba, ekteki dosyada A sütunundaki tarihleri birleştirip ortalamak istiyorum. (Tek tek oluyor, ama topluca nasıl olur acaba ) Teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz...
Not: Çalışma sayfasının yedeğini alıp öyle deneyiniz.

Sub kod()
Application.DisplayAlerts = False
Set alan = Cells(2, "A")
tarih = alan.Value
For a = 3 To Cells(Rows.Count, "A").End(3).Row
    If Cells(a, "A") <> tarih Then
        alan.Merge
        Set alan = Cells(a, "A")
        tarih = alan.Value
    Else
        Set alan = Union(alan, Cells(a, "A"))
    End If
Next
alan.Merge
With Range("A:A")
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With
Application.DisplayAlerts = True
End Sub

 

[cismail]

Yanıtınıza teşekkür ama bir değişiklik olmadı maalesef.

 

[ÖmerBey]

Kodlar örnek dosyanız için hazırlanmıştır. Asıl dosyanızın formatı farklı ise kodlar görevini yapmayacaktır.

 

[cismail]

OK. Teşekkürler. Çalıştı.

 

[Merhum İdris SERDAR]

.

Alternatif.

.

 

[cismail]

Teşekkürler.

 

[salmax]

teşekkürler çalıştı.