Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-10-2017, 19:40   #11
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

https://www.dosyaupload.com/hBcO

birde bu siteye yükledim bakalım bu açılacak mı
sdn123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-10-2017, 20:23   #12
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Maalesef! "Dosya bozuk, açılamıyor." Uyarısı devam ediyor.
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-10-2017, 21:18   #13
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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
sdn123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-10-2017, 22:10   #14
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

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?
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-10-2017, 22:15   #15
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 13:06   #16
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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...
sdn123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 20:25   #17
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Örnek sayfanıza göre düzenlenen kodlar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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("A4:B56789").ClearContents
s3.Range("A4").Resize(z.Count, 2).Value = Application.Transpose(b)
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.

Bu mesaj en son " 08-10-2017 " tarihinde saat 21:30 itibariyle antonio tarafından düzenlenmiştir....
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 21:08   #18
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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...

Bu mesaj en son " 08-10-2017 " tarihinde saat 21:14 itibariyle sdn123 tarafından düzenlenmiştir....
sdn123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2017, 21:32   #19
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 933
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
sdn123 tarafından gönderildi Mesajı Görüntüle
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).
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-10-2017, 19:01   #20
sdn123
 
Giriş: 30/11/2011
Şehir: ankara
Mesaj: 77
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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.
sdn123 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:41


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden