O sütununda L,M,N satırlarına göre benzersiz satırlar listesi

[hsayar]

'L,      M,               N,                 O,(Sütun harfleri)
ADR_IL	ADR_ILCE	ADR_MUHTAR	ADR_CD_SKK
EDİRNE	İPSALA	AHIR KÖY	KÖYİÇİ
EDİRNE	İPSALA	AHIR KÖY	KÖYİÇİ
EDİRNE	İPSALA	ALİÇOPEHLİVAN KÖYÜ	KÖYİÇİ
EDİRNE	İPSALA	ALİÇOPEHLİVAN KÖYÜ	KÖYİÇİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	HASTAHANE CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	KABRİSTAN SOKAK
EDİRNE	İPSALA	BAYRAMBEY MAH.	KABRİSTAN SOKAK
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	BUKET SOKAK
EDİRNE	İPSALA	BAYRAMBEY MAH.	BUKET SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	GÜLTAN SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	BÜLENT SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	GÜLTAN SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ÇAKIR SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ÖZKAYA SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ

içinde 23287 satırcık şeklinde kendini tekrarlayan veriler var bunları

EDİRNE	İPSALA	AHIR KÖY	KÖYİÇİ
EDİRNE	İPSALA	ALİÇOPEHLİVAN KÖYÜ	KÖYİÇİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	HASTAHANE CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	ENEZ CADDESİ
EDİRNE	İPSALA	BAYRAMBEY MAH.	KABRİSTAN SOKAK
EDİRNE	İPSALA	BAYRAMBEY MAH.	BUKET SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	GÜLTAN SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	BÜLENT SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ÇAKIR SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ÖZKAYA SOKAK
EDİRNE	İPSALA	ESETÇE-KURTULUŞ MAH.	ATATÜRK CADDESİ
.................

şeklinde düzenleyebileceğim kod nedir?
not: diğer sorum geçerlidir bu sadece bir ilçeye ait adres veritabanıdır.

 

[Skorpiyon]

Sayın hsayar,

Dosyanızdan küçük bir örnek ekler misiniz ?

 

[hsayar]

örnek dosya eklenmiştir

 

[udentr2002]

ekli dosyayı inceleyiniz inşallah istediğiniz gibi olmuştur.

 

[Zeki Gürsoy]

İşlem bittiğinde toplam 304 satır dönüyor.

Sub XXX()
Dim cn As Object, rs As Object
 
Set cn = CreateObject("ADODB.Connection")
 
cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & ThisWorkbook.FullName
 
Set rs = cn.Execute( _
"SELECT DISTINCT ADR_IL, ADR_ILCE, ADR_MUHTAR, ADR_CD_SKK  " & _
"FROM [data$]")
 
[B][COLOR=red]Sheets("Sayfa1").[a1][/COLOR][/B].CopyFromRecordset rs
 
rs.Close
cn.Close
 
End Sub

 

[hsayar]

evet istediğim gibi olmuş. teşekkür ederim

 

[hsayar]

sn anemos sizede teşekkür ederim uzun satırlı sayfalarda baya işe yarayacaktır.

 

[hsayar]

sn hocam başlık satırı 4. satırda olduğu durumlarda nasıl işe yarar bu kodlar
Şimdilik başka sayfaya kopyalayarak ve başlıkları 1.satırdan başlatarak geçici çözüme ulaştım.

ayrıca
2007 2007 Aidat CMK
2007 2007 Aidat cmk

satırlarında cmk ve CMK yi tek satır olarak göstermesi yani büyük küçük harf duyarsız olması mümkünmüdür.

 

[Zeki Gürsoy]

O zaman alanı da yazmalısınız.

FROM [data$A4:F65536]

4. satırı başlık olarak kabul edecektir.

Duyarsız kriter için "Like" kullanın.

 

[hsayar]

hocam like deyimini lütfen örneklermisiniz?

Sub XXX_Anemos()
Dim cn As Object, rs As Object
 
Set cn = CreateObject("ADODB.Connection")
 
cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & ThisWorkbook.FullName
'BYIL    MYIL    GIDER_TURU  DKR MES_MER

Set rs = cn.Execute( _
"SELECT DISTINCT BYIL, MYIL, GIDER_TURU, MES_MER  " & _
"FROM [2007$F4:I65536]")

 
Sheets("Sayfa5").[a1].CopyFromRecordset rs
 
rs.Close
cn.Close
 
End Sub

kodlarında GIDER_TURU, MES_MER başlıklarının büyük küçük harf duyarsız olması için ne yapmalıyım.

 

[hsayar]

Hocam 10 mesajımdaki kodlara
1) like deyimi ilavesi
2) BYIL başlığının değişkene eşlenerek benzersi süzülmesi nasıl olmalıdır.
Mesala BYIL = 2007 olanlar için başlıklar benzersiz süzülecek