aynı verileri farklı sayfada birleştirme

[realenigma]

Biraz araştırdım ama tam istediğim gibi bişey bulamadım

sayfa 1 de deki aynı verilerin sayfa 2 de 6. satırdan itibaren birleştirilmesini istiyorum.

Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Birleştirmek derken istediğiniz tekrar edenleri teke düşürmek mi ?

Sayfa1 deki plakaları kopyalayın.
Sayfa2 A6 hücresine yapıştırın.
Üstü menüden Veri > Veri araçları bölümünden.
Yinelenenleri Kaldırı tıklayın.

. . .

 

[realenigma]

. . .

Birleştirmek derken istediğiniz tekrar edenleri teke düşürmek mi ?

Sayfa1 deki plakaları kopyalayın.
Sayfa2 A6 hücresine yapıştırın.
Üstü menüden Veri > Veri araçları bölümünden.
Yinelenenleri Kaldırı tıklayın.

. . .

aslında bu da işimi görür ama
şöyle bişey olsa ii olurdu

b2 ve c2 hücresinde girilen ay ve yıl'a göre sayfa1 deki bu tarihler arasındaki plakaların yinelenenlerinin kaldırılıp A6 hücresinden itibaren eklenmesi gibi

Teşekkürler...

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.
Ay şeçimi için veri doğrulama tanımladım. Ay isimlerinin yazılışları önemli.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/T-7PKBQDKfQSr

Sub KOD()
    Application.ScreenUpdating = False

    Dim S1     As Worksheet
    Dim S2     As Worksheet
    Dim sat    As Integer
    Dim i      As Integer

    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = 6

    S2.Range("A6:A65536").ClearContents

    For i = 2 To S1.[A65536].End(3).Row
        If Format(S1.Cells(i, "A"), "mmmmyyyy") Like S2.Range("B2") & S2.Range("C2") Then
            If WorksheetFunction.CountIf(S2.Range("A6:A65536"), S1.Cells(i, "B")) = 0 Then
                S2.Cells(sat, "A") = S1.Cells(i, "B")
                sat = sat + 1
            End If
        End If
    Next i

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[realenigma]

. . .

Dosyanız ektedir.
Ay şeçimi için veri doğrulama tanımladım. Ay isimlerinin yazılışları önemli.

Sub KOD()
    Application.ScreenUpdating = False

    Dim S1     As Worksheet
    Dim S2     As Worksheet
    Dim sat    As Integer
    Dim i      As Integer

    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = 6

    S2.Range("A6:A65536").ClearContents

    For i = 2 To S1.[A65536].End(3).Row
        If Format(S1.Cells(i, "A"), "mmmmyyyy") Like S2.Range("B2") & S2.Range("C2") Then
            If WorksheetFunction.CountIf(S2.Range("A6:A65536"), S1.Cells(i, "B")) = 0 Then
                S2.Cells(sat, "A") = S1.Cells(i, "B")
                sat = sat + 1
            End If
        End If
    Next i

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

teşekkür ederim çok yardımcı oldunuz harika olmuş ama sonradan aklıma geldi, bir değişiklik daha gerekiyor mümkünse.


sayfa 1 deki plaka sutünün yanına cinsi diye bir sutün ekleyeceğim (POMPA,SERVİS,LOADER gibi veriler içerecek) ve bu bilgilerinde plakalarla beraber sayfa 2 de yer almasını istiyorum.
tekrar teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Örneğin
20BHR96 plakası için bir satırda POMPA başka bir satırda SERVİS yazabilir mi ?
Bu durumda bu plaka Sayfa2 ye 2 defamı aktarılacak.

. . .

 

[realenigma]

. . .

Örneğin
20BHR96 plakası için bir satırda POMPA başka bir satırda SERVİS yazabilir mi ?
Bu durumda bu plaka Sayfa2 ye 2 defamı aktarılacak.

. . .

yok araç cinsi sabit olacak değişken değil.

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 de C sütununda Cinsi başlığı olduğunu varsayarsak.
Kırmızı ile belirttiğim satırı ilave ederseniz.
Sayfa2 B sütununa Cinsi bilgilerinide getirir.

S2.Cells(sat, "A") = S1.Cells(i, "B")
[COLOR="Red"][B]S2.Cells(sat, "B") = S1.Cells(i, "C")[/B][/COLOR]
sat = sat + 1

. . .

 

[realenigma]

. . .

Sayfa1 de C sütununda Cinsi başlığı olduğunu varsayarsak.
Kırmızı ile belirttiğim satırı ilave ederseniz.
Sayfa2 B sütununa Cinsi bilgilerinide getirir.

S2.Cells(sat, "A") = S1.Cells(i, "B")
[COLOR="Red"][B]S2.Cells(sat, "B") = S1.Cells(i, "C")[/B][/COLOR]
sat = sat + 1

. . .

tamamdır hallettim.
ilginize teşekkür ederim. allah razı olsun.