Excel Hakkında Yardıml
-
Şimdi arkadaşlar Ergoyla çalıştığım dönemden 4600 kişilik müşteri listesi var yaklaşık 5 sene önce
şimdi yeni müşteri listesinide alacağım
istediğim olay şu
Ergo listesinde YEni listede kayıtlı olanları çıkarmak istiyorum
yeni 2 adet dosya olacak yeni listede kayıtlı olmayanları çıkarmam gerek
-
valla hocam iki dosyayıda bir excell tablosuna kopyala ve verileri isim sütununa göre sırala yapıp çiftleri silersin ama baya uzun sürer herhalde, aklıma bu geldi
-
blood_rhyme bunu yazdı
valla hocam iki dosyayıda bir excell tablosuna kopyala ve verileri isim sütununa göre sırala yapıp çiftleri silersin ama baya uzun sürer herhalde, aklıma bu geldi
Yinelenen değeri sil derim hocamda ama öncelik olarak eski listeden silmesi lazım yeni listedeki kayıtlar taze
-
HADİ BUDA
underrrrrrrrrrrrrr upu olsun
under çözer bu olayıda :)
-
bilgisayarına show my pc indir.bağlantı şifresini söyle bağlanayım burdan doğru çözmeye çalışayım. şimdi görmeden birşey diyemicem :)
-
Dj şöyle bir formül var:
=EĞER(DÜŞEYARA(A:A;B:B;1;0)=A1;"var";"yok")
Atıyorum A sutunu eski isim listesi, B sütunu yeni isim listesi diyelim. C sütununa ya da başka bir sütuna bu formülü otomatik kopyala yapıyorsun.
A sütununda olanlar, B sütununda da varsa "var" yazıyor ; A sütununda olanlar B sütununda yoksa "yok" yazıyor.
"var" yerine "var ulan" "Hey Dj play my song" da yazabilirdin de bunu A sütununda eşleştirdiği isme döndürebilirsen aradığın şey budur.
Daha prof deneyimli arkadaşlar senin işi kolayca çözebilir diye düşünüyorum.
-
Şimdi düşününce bir çözüm buldum gibi, herhangi bir sütuna şöyle yazıp otomatik kopyalayarak çoğaltırsan var olan isimleri de yazıyor. Yok olanlara yok diyor.
=EĞER(DÜŞEYARA(A:A;B:B;1;0)=A1;A1;"yok")
=EĞER(DÜŞEYARA(A:A;B:B;1;0)=A2;A2;"yok")
=EĞER(DÜŞEYARA(A:A;B:B;1;0)=A3;A3;"yok")
Uygulamada şöyle oluyor resimden daha net anlarsın.
-
excell Dosyalarını ver iki dakkada çıkartayım.
-
ProBilisim bunu yazdı
excell Dosyalarını ver iki dakkada çıkartayım.
hı hı :)
muhalefet deneyecem hocam yazılımdan liste almaya çalışıyomda uzun sürecek sanırım 5700 kişi yeni liste
-
Sub bilgiler() saysayfa1 = Sheets("Sayfa1").Cells(Rows.Count, "C").End(xlUp).Row saysayfa2 = Sheets("Sayfa2").Cells(Rows.Count, "C").End(xlUp).Row b = 1
d=1 Application.ScreenUpdating = False For x = 2 To saysayfa1
c = 1 For y = 2 To saysayfa2 If Sheets("Sayfa1").Columns(2).Cells(x) = Sheets("Sayfa2").Columns(2).Cells(y) Then For j = 1 To 8 Sheets("Sayfa3").Cells(b, j) = Sheets("Sayfa1").Cells(x, j).Value Next j b = b + 1 c = 2 End If Next y If c = 1 Then For j = 1 To 8 Sheets("Sayfa4").Cells(d, j) = Sheets("Sayfa1").Cells(x, j).Value Next j d = d + 1 End If Next x End Sub
pc_worm tarafından 01/Mar/14 15:01 tarihinde düzenlenmiştir
Bu kodun işini görmesi lazım , exceli aç alt + f11 yap, instert modül de, bu kodu yapıştır üzerinde biraz oynama yapman gerekecek tabi, yapamazsan ya da kodda hata varsa akşam yardım edebilirim.
Sayfa4 ü de oluştur, olanları sayfa 3 e olmayanları sayfa 4 e kopyalar