mukerrer ve kopyala

[aLLyy07]

merhaba arkadaşlar benim sorunum ekteki dosyada bulunan verilerin 1. sütündaki mükerrer kayitlari bulup o kayıtları sırasıyla kopyalayıp yani ilk önce ilk satırı sonra 2. mükkerrer satırı varsa 3. mükerrer satırı yeni sayfada yada aynı sheette YATAY olarak aynı olanları 1 satıra yapıştırması bu dosyayı herzman standart olarak kullandığım icin herzaman kullanabileceğim bir makro istiyorum. şimdiden teşekkurler

 

[Ayhan Ercan]

Merhaba Sn aLLyy07

Ek Dosyayı "Mükerrer Aktar" düğmesini çalıştırarak İnceleyiniz...

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, k As Range, hcr As Range, son As Long, son2 As Long, i As Long
Set s1 = Sheets(1)
Set s2 = Sheets(2)
Set k = s2.Range("N1")
son = [a65536].End(3).Row
son2 = s1.Range("a65536").End(3).Row
        For i = 2 To son
        k = s2.Cells(i, 1)
            If k = s2.Cells(i - 1, 1) Then GoTo azx
                 x = 1
                 For Each hcr In s2.Range("A" & i & ":A" & son)
                     If hcr.Value = k.Value Then
                         hcr.Columns("a:j").Copy s1.Cells(son2, x)
                         x = x + 11
                     End If
                 Next
                 son2 = son2 + 1
azx:     Next i
End Sub

 

[Gülerim]

merhabala arkadaşlar,
yeni konu açamadım ama bir konuda acil yardım rica ediyorumm..

excel 2007 kullanıyorum..

örneğin; örnektir yazısı olacak açık tonlarla ama sayfama normal yazımı yazabileceğim.. bunu yapmam konusunda bana yardımcı olurmusunuz..?

şimdiden teşekkürler....

 

[aLLyy07]

Çok teşekkur ederim Ayhan ERCAN çok işimi görücek.