iki ayrı sayfadan veri listelemek

[sdn123]

Merhaba arkadaşlar excelde iki ayrı sayfadan veri alarak tek bir sayfada listelemek istiyorum.Ama maalesef başaramadım.

1-iki listede de aynı veri olabilir.Eğer iki listedeki veri aynı ise tekini listelesin.

2- verilerin alındığı liste sürekli değişiyor. Bazen 10 hücrede veri varken; bazen 40 hücrede veri olabiliyor.istediğim ; bir listedeki veri bittikten sonra hemen altına diğer listenin (aynı olmayan) verilerinin listelenmesi.(boş hücreleri es geçeçek yani)

Yardımınız için şimdiden teşekürler....

 

[antonio]

Merhaba,
Dosyanızda birleştirilmesini istediğiniz verileri; verilerin alınacağı sayfalar, sütun-satır durumları istediğinizi yansıtacak şekilde ornek bir dosya eklerseniz, yardım alma şansınız çok daha yüksek olacaktır.

 

[sdn123]

http://dosya.co/gylf8dh31kf3/örnek.xls.html

örnek dosya... ilginiz için teşekkürler....

 

[sdn123]

Bir fikri olan yok mu arkadaşlar? Yardımlarınızı bekliyorum. Kolay gelsin herkese...

 

[Ömer BARAN]

Merhaba.

Verdiğiniz harici bağlantı adresinden indirilen dosya "Dosya bozuk. açılamıyor" şeklinde uyarı veriyor.
Örnek belgenizi yenilemenizde yarar var.
.

 

[sdn123]

hocam tekrar denermisiniz ben denedim bir sıkıntı yok....

 

[antonio]

hocam tekrar denermisiniz ben denedim bir sıkıntı yok....

Sayın sdn123,
Dosya yükleme sitelerinde tavsiye edilenlerin uzantılarına dikkat ediniz. dosya.tc genellikle birçok üye tarafından tavsiye edilmektedir. ismi benzer olmakla birlikte uzantısı .co ile biten bu site sürekli virüs yaymaya çalışmaktadır. Çoğu zaman dosya adı ile exe dosyaları bilgisayarlara yüklemeye çalışmaktadır.
Sonuçta dosya.tc ve dosya.web.tr siteleri dışındakilere yüklenen dosyalar virüslü olabilmektedir.

 

[sdn123]

http://s5.dosya.tc/server5/dcpw31/Kopya_ornek.xls.html

dediğiniz gibi dosya.tc yükledim. Yardımlarınızı bekliyorum...tekrar teşekkürler....

 

[antonio]

http://s5.dosya.tc/server5/dcpw31/Kopya_ornek.xls.html

dediğiniz gibi dosya.tc yükledim. Yardımlarınızı bekliyorum...tekrar teşekkürler....

Dosyanız bozuk. İsterseniz kendiniz kendi dosyanızı indirmeye çalışarak görebilirsiniz. Orijinal dosyanızda sorun yoksa, yükleme işleminin tamamlandığından emin olana kadar bekleyiniz. Yükleme işlemi tamamlanmadan gönderilmiş olabilir.

 

[sdn123]

hocam öncelikle ilginiz için teşekürler.

ben dosyayı yükledikten sonra linkin çalışıp çalışmaığını kontrol ettim. şimdi yine kontrol ettiğimde benim pc 'de herhangi bir son çıkmıyor.

Şimdi yiniden yükledim.İnş. bu kez sizde de çalışır....

http://s6.dosya.tc/server11/b1ivbm/Kopya_ornek.xls.html

 

[sdn123]

https://www.dosyaupload.com/hBcO

birde bu siteye yükledim bakalım bu açılacak mı

 

[antonio]

Maalesef! "Dosya bozuk, açılamıyor." Uyarısı devam ediyor.

 

[sdn123]

bu linkler bende şuan takır takır aşılıyor. anlamdım gitti açıkçası.

konuyu artık yazılı olarak anlaymaya çalışacağım:

1- 2 ayrı sayfada veriler var.

2- 1 sayfada ki bazı veriler 2 sayfada da var.

3- İstediğim üçüncü bir sayfada bu verilerin mükerrer olmayacak şekilde listelenmesi.

Ancak 2 sayfadaki verilerin bazıların karşısında sayısal değerler var.bu yüzden 2 sayfadan veriler listelenirken listeye dahil edilmesi karşısında ki hücrede sayısal bir değer olup olmadığına bağlı olacak.Örneğin A1 hücresinde “ali” varsa ve karşısındaki b1 hücresinde sayısal değer 10 sa listeye dahil edilecek.Ancak A1 hücresinde “ali” fakat B1 hücresi boşsa listeye dahil edilmeyecek.

Bu kadar basit bişi

 

[antonio]

Her iki sayfada da sadece A ve B kolonlarında mı veriler var? A kolonundaki verilerin türü nedir? B kolonundaki verilerin türü nedir? Başka kolon varmı? Toplam kaç sütun?
Mükerrer kayıtlar A sütununda mı aranacak?

 

[sdn123]

Her iki sayfada da sadece A ve B kolonlarında mı veriler var?

EVET

A kolonundaki verilerin türü nedir?

METİN

B kolonundaki verilerin türü nedir?

SAYISAL DEĞERLER ( TÜRK LİRASI)

Başka kolon varmı?

YOK

Toplam kaç sütun?

2 SÜTÜN VAR

 

[sdn123]

http://s6.dosya.tc/server11/bx4c5s/liste.rar.html

bu kez rar. lı başka pc de denedim açıldı. inş. sizde de açar...

 

[antonio]

Örnek sayfanıza göre düzenlenen kodlar:

Sub verileri_birleştir()
Dim s3 As Worksheet
Dim ss As Long, ss3 As Long, sh As Worksheet, aranan As String
Dim z As Object, b(), sayfalar As String, sayfa, ilk As Integer
n = 0
s = 0
ReDim b(1 To 2, 1 To 1)
sayfalar = "KPAPG-İKİ TARİH ARASI, Ü.A VB TESLİMLER"
sayfa = Split(sayfalar, ",")
Set z = CreateObject("Scripting.Dictionary")
z.comparemode = vbTextCompare

Set s3 = Sheets(" KONTROL")
ss3 = s3.Range("A56789").End(3).Row
For d = 0 To 1
        Set sh = Sheets(sayfa(d))
        ss = sh.Range("A56789").End(3).Row
        If d = 0 Then
            ilk = 5
        Else
            d = 3
        End If
    For i = ilk To ss
        If sh.Range("A" & i).Value <> "" Then
            aranan = sh.Range("A" & i).Value
            If Not z.exists(aranan) Then
                n = n + 1
                z.Add aranan, n
                z(aranan) = n
                s = z(aranan)
            Else
                s = s + 1
            End If
            ReDim Preserve b(1 To 2, 1 To s)
            b(1, s) = sh.Range("A" & i).Value
            b(2, s) = b(2, s) * 1 + sh.Range("B" & i).Value * 1
        End If
    Next i
Next d
s3.Range("A[COLOR="Red"][B]4[/B][/COLOR]:B56789").ClearContents
s3.Range("A[COLOR="Red"][B]4[/B][/COLOR]").Resize(z.Count, 2).Value = Application.Transpose(b)
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

 

[sdn123]

hocam öncelikle ilginiz için çok teşşekür ederim. Tam istediğim gibi ancak bir iki sorun var.

birincisi veriler listelenmeye a4 Hhücresinden itibaren başlaması gerekirdi
2 si ise "ü.a vb teslimler" sayfasındaki veriler gelmiyor....

bu arada sadece veiler listelenecek. verilerin karşısındaki değerlerin b sününa ATMAMASI gerekiyor...

 

[antonio]

hocam öncelikle ilginiz için çok teşşekür ederim. Tam istediğim gibi ancak bir iki sorun var.

birincisi veriler listelenmeye a4 Hhücresinden itibaren başlaması gerekirdi
2 si ise "ü.a vb teslimler" sayfasındaki veriler gelmiyor....

bu arada sadece veiler listelenecek. verilerin karşısındaki değerlerin b sününa ATMAMASI gerekiyor...

Kodlarda; sondan 3. ve 4. satırlardaki A2 ifadeseni A4 şeklinde değiştiriniz. (Kodlarımda belirtilen değişikliği yaptım).

 

[sdn123]

Hocam öncelikle ilgi ve alakanız için teşekürler ediyorum. Dediğiniz gibi yaptım. Gayet güzel oldu.

Yanlız bir sıkıntı var. "ü.a vb teslimler" sayfasında B sütününde sayısal değer içeren hücrelere karşılık geln A sütünündaki veriler listeye gelmeli. ancak burda B sütününda sayısal bir değer olsun olmasın A sütünündaki bütün verileri listeliyor.