Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Excel dosyasından benzersiz verileri almak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

sadece sayı girlebilir text alanı

Yazar: delideha
sadece sayı girlebilir text alanı oluşturabilirsiniz


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10496
Yayın Tar:09.07.2008
Yazar : MrStepBack
Hit :2170

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

İyi günler Arkadaşlar;
Aşağıdaki gibi bir kod ile ASIL_KİTAP (Sayfa1 - [A] sütunundaki) bilgileri;
HEDEF_KİTAP sayfalarının [A] sütunlarındaki bilgilerle karşılaştırıyorum.
ASIL_KİTAP ta yer alan bilgi HEDEF_KİTAP ta yer alıyorsa o satır boyanıyor.
Bu mantıkla benim istediğim ASIL_KİTAP da olmayıp da HEDEF_KİTAP ta olan
bilgilerin ASIL_KİTAP Sayfa1 in [A] sütunu sonuna eklenmesi, kısacası benzersiz verileri almak istiyorum...
Saygılar ve şimdiden teşekkürler...




Private Sub AraBulEkle_Click()

Dim ASIL_KİTAP As Workbook
Dim HEDEF_KİTAP As Workbook
Dim SVN, SAYFA As Worksheet
Dim SATIR As Integer
Dim BUL

Set ASIL_KİTAP = ActiveWorkbook
Set SVN = ASIL_KİTAP.Sheets("Sayfa1")
Set HEDEF_KİTAP = Workbooks.Open(ActiveWorkbook.Path & "\TaranacakKitap.xls", False, False)

ASIL_KİTAP.Activate
For SATIR = 1 To SVN.[A65536].End(3).Row
If SVN.Cells(SATIR, 1) <> "" Then

For Each SAYFA In HEDEF_KİTAP.Sheets
On Error Resume Next
Set BUL = SAYFA.Columns("A").Find(SVN.Cells(SATIR, 1))
If Not BUL Is Nothing Then
SAYFA.Cells(BUL.Row, 1).Interior.ColorIndex = 6
End If
Next
End If
Next
HEDEF_KİTAP.Close
Application.ScreenUpdating = True
MsgBox " İŞLEM TAMAMLANMIŞTIR.", vbInformation
End Sub




Yorumlar, eklemeler ve düşünceler
        teşekkür ederiz

   lprrsln, 16.07.2008 14:08
   teşekkürler

   bussra, 23.09.2008 19:02
   ........

   Padisay, 26.09.2008 10:30
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin