Gönderen Konu: Fark bulma  (Okunma sayısı 2832 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleybolcu

  • İngilizce eğitimi
  • Excelce Onbaşı
  • **
  • İleti: 13
  • Puan +0/-0
  • Cinsiyet: Bayan
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ayşe Öztürkler
  • Doğum Yılınız: 1987
  • İl / İlçe: Hatay/İskenderun
  • İşletim Sisteminiz: Windows Xp
  • Mesleğiniz: İngilizce öğretmeni
  • Office Versiyonunuz: Office Xp
Fark bulma
« : 14 Kasım 2011, 23:46:47 »
Merhaba.

Bir excel dosyasının B sütununda olup, A sütünunda olmayan İngilizce kelimeleri alfabetik sıralamayla C sütununa yazan bir makro programını sizlerden rica ediyorum.

İyi günler.

NOT: Makro programının çalışmasını gösteren örnek dosya ekte yer almaktadır.
:)

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: Fark bulma
« Yanıtla #1 : 15 Kasım 2011, 00:31:47 »
Aşağıdaki gibi olabilir.

Kod: [Seç]
Sub Makro1()
[c:c] = Empty
For i = 1 To Cells(65536, "b").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("a1:a65000"), Cells(i, 2).Value) = 0 Then
    x = Cells(65000, 3).End(xlUp).Row
    Cells(x + 1, 3).Value = Cells(i, 2).Value
    End If
    Next
    Columns("C:C").Sort Key1:=Range("C1")
End Sub

Çevrimdışı voleybolcu

  • İngilizce eğitimi
  • Excelce Onbaşı
  • **
  • İleti: 13
  • Puan +0/-0
  • Cinsiyet: Bayan
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ayşe Öztürkler
  • Doğum Yılınız: 1987
  • İl / İlçe: Hatay/İskenderun
  • İşletim Sisteminiz: Windows Xp
  • Mesleğiniz: İngilizce öğretmeni
  • Office Versiyonunuz: Office Xp
Ynt: Fark bulma
« Yanıtla #2 : 15 Kasım 2011, 20:14:53 »
Çok teşekkür ederim.
:)