Çözüldü Tek satırda gösterilmesi hk.

[1903emre34@gmail.com]

Merhaba,

Aynı olanları ve aynı olmayan numaraları (E sütünü) toplanıp, tek bir satırda gösterilmesi şeklide kod oluşturabilir miyiz istenen sayfa2'de yapılmıştır.

 

[Orion1]

Merhaba,

Aynı olanları ve aynı olmayan numaraları (E sütünü) toplanıp, tek bir satırda gösterilmesi şeklide kod oluşturabilir miyiz istenen sayfa2'de yapılmıştır.

Buyurun.

Sub teksatir59()
Dim sat As Long, sh As Worksheet, sonsat As Long
Dim i As Long
Sheets("SAYFA 2").Select
Set sh = Sheets("SAYFA 1")
sat = 5
sonsat = sh.Cells(Rows.Count, "E").End(xlUp).Row
Range("B2:Q" & Rows.Count).ClearContents
For i = 5 To sonsat
    If WorksheetFunction.CountIf(sh.Range("E5:E" & i), sh.Cells(i, "E").Value) = 1 Then
        sh.Range("B" & i & ":Q" & i).Copy Range("B" & sat)
        sat = sat + 1
    End If
Next i
MsgBox "BİTTİ"

End Sub

 

[turist]

Merhaba,

Aynı olanları ve aynı olmayan numaraları (E sütünü) toplanıp, tek bir satırda gösterilmesi şeklide kod oluşturabilir miyiz istenen sayfa2'de yapılmıştır.

Dosyanız eklidir.